EXTRAIR EMAILS
Como extrair emails de um arquvo .CSV e .TXT alguém sabe?
Se não me engano estes arquivos vem separados com ; ou outro tipo de separador basta tratar como txt os 2 .. isso deve ajudar http://www.macoratti.net/txt_arqs.htm
Mas como se faz para extrair os emails?
Posta um arquivo CSV contendo alguns e-mails de teste.
Independente de como o e-mail esteja dentro do arquivo, (um email por linha, vários emails na mesma linha, separados por virgula ou ponto e virgula) eu quero que o sistema/rotina identifique (acredito que através do simbolo @) estes e-mails e puxe eles para um lixtbox ou textbox e coloque cada e-mail em uma linha.
Faca um split usando um delimitador especifico do arquivo (ponto-e-virgula por exemplo)
ALCIRTEODORO pelo que vejo o que vc esta querendo e bem complexo, pois você quer importar de um arquivo sem padrao nenhum...não gosto disso pois eu acho que tudo deve ter um padrao mais vai ai a ideia ... primeiro, você tenta verificar qual e o seprador , acho que sempre deve ter um, e vamos dizer vc usa o commando instr(string,[Ô];[Ô]) .. achou vc carrega em uma variavel e usa ela no slipt como sugerido pelo webmaster .. ai depois com a array carregado vc usa como quiser .. list ..grid..banco de dados.. Pense que pelo @ e muito mais complero pois vc identificaria o meio do email , depois teria de saber aonde começa e aonde termina ... seria muito complexo ... mais ate da para fazer .. você pode usar um esquema recursivo ... tipo assim
Dim posIni as long
posIni = instr(1,vEmail,[Ô]@)
ai vc acharia o email completo (inicio e fim)
ai vc chamaria depois de novo
so que assim
posIni =instr (posIni +1,vemail,[Ô]@[Ô])
ai depois chamria de novo assim iria pegando 1 por um os @ porem o complicado seria completar o inicio e o fim do email.
Dim posIni as long
posIni = instr(1,vEmail,[Ô]@)
ai vc acharia o email completo (inicio e fim)
ai vc chamaria depois de novo
so que assim
posIni =instr (posIni +1,vemail,[Ô]@[Ô])
ai depois chamria de novo assim iria pegando 1 por um os @ porem o complicado seria completar o inicio e o fim do email.
Obrigado pelas dicas. Achei este exemplo http://www.macoratti.net/strings.htm que fala do SPLIT no site do Macoratti. Não querendo abusar dos amigos, sou um pouco leigo, como faria uma rotina para primeiro pegar o Delimitador e com base nisso extrair os e-mail?
PS: Vejam em anexo os dois tipos de arquivos.
PS: Vejam em anexo os dois tipos de arquivos.
Citação:TECLA escreveu:
Posta um arquivo CSV contendo alguns e-mails de teste.
Veja acima, já postei...
Encontrei as funções mid(), instr(), split(), left(), right() que acredito que vou precisar para extrair os e-mails. Postei no anexo acima dois arquivos um TXT e outro CSV como faço para extrair os emails destes arquivos?
Ou melhor ainda especificar um delimitador como ; ou , e com base neste delimitador extrair os emails?
Ou melhor ainda especificar um delimitador como ; ou , e com base neste delimitador extrair os emails?
Tópico encerrado , respostas não são mais permitidas