Pegar e-mail de txt

[Full Burn 0]

Boa tarde a todos,Preciso pegar endereços de e-mail de um arquivo txt.A estrutura do txt, que é gerado automaticamente, é a seguinte:Nome;Endereço de correio eletrônico;Endereço residencial;Cidade residencial;CEP residencial;Estado residencial;País residencial;Telefone residencial;Endereço comercial;Cidade comercial;CEP comercial;Estado comercial;País comercial;Telefone comercial;Empresa;CargoNome1;email1@email1.com.br;;;;;;;;;;;;;;Nome2;email2@email2.com.br;;;;;;;;;;;;;;Nome3;email3@email3.com.br;;;;;;;;;;;;;;Nome4;email4@email4.com.br;;;;;;;;;;;;;;Nome5;email5@email5.com;;;;;;;;;;;;;;Ler o txt eu já consegui, agora preciso pegar somente os endereços de e-mail. Como fazer?Agradeço qualquer ajuda.Abraços a todos,..::Full Burn::..

[Rato de Fórum 0]

use a função split pra separar tudo em array...por exemplo...var = split(var)ai pra ler... basta utilizar var(0) por exemplo... e pra contar o array utilize o ubound...por exemploubound(var)

[joacatito 0]

Como você conseguiu ler o txt?

[Full Burn 0]

A leitura do txt foi feita da seguinte forma:Const forReading = 1, forWriting = 2, forAppending = 8Set Fso = CreateObject("Scripting.FileSystemObject")Set ObjFile = Fso.GetFile("caminhodo.txt")Set objStream = ObjFile.OpenAsTextStream(forReading,false)Texto = ObjStream.ReadAllMas preciso agora de uma forma de ler linha por linha, pois vou precisar pegar o nome do cara e o e-mail para gravar em banco de dados.É possível?Agradeço qualquer ajuda.Abraços..::Full Burn::..

[Rato de Fórum 0]

sim... é possível.. só fazer o seguinte..

 

 

valor = split(Texto)for i=0 to ubound(valor)Set rs=Conexao.Execute("Insert into table (email) values ('"& valor(i) &"')")next

[Full Burn 0]

Bom dia Rato,Em primeiro lugar, muito obrigado pela força.Uma dúvida, desta forma como você disse, onde ele vai selecionar o nome e o e-mail separado para que eu possa gravar no BD?Obrigado mais uma vez.Abraços..::Full Burn::..

[Rato de Fórum 0]

pra que eu possa explicar melhor... como tá gravado em seu txt?!?!mas passando por cima... a função split, separa qualquer texto em array... e a função ubound conta qtos valores ficaram nesse array...mas como você disse q tem nome e email juntos, será necesário fazer uma alteração nesse código q passei... por isso, seria bom, você passar como tah gravado as informações em seu txt...

[Full Burn 0]

A estrutura usada no txt é a seguinte:

A estrutura do txt, que é gerado automaticamente, é a seguinte:Nome;Endereço de correio eletrônico;Endereço residencial;Cidade residencial;CEP residencial;Estado residencial;País residencial;Telefone residencial;Endereço comercial;Cidade comercial;CEP comercial;Estado comercial;País comercial;Telefone comercial;Empresa;CargoNome1;email1@email1.com.br;;;;;;;;;;;;;;Nome2;email2@email2.com.br;;;;;;;;;;;;;;Nome3;email3@email3.com.br;;;;;;;;;;;;;;Nome4;email4@email4.com.br;;;;;;;;;;;;;;Nome5;email5@email5.com;;;;;;;;;;;;;;

Consegui ler todo o conteúdo e listar os e-mails com o código abaixo:Const forReading = 1, forWriting = 2, forAppending = 8Set Fso = CreateObject("Scripting.FileSystemObject")Set ObjFile = Fso.GetFile("caminhodo.txt")Set objStream = ObjFile.OpenAsTextStream(forReading,false)Texto = ObjStream.ReadAllTexto = Split(Texto, ";")conta = 16total = ubound(texto)While not conta >= Total Response.Write(texto(conta)& ";") conta = conta + 15WENDO resultado foi a listagem de todos os e-mail separando-os por ";" mas sempre que algum e-mail tem "-" ele separa.E preciso pegar separadamente cada nome e e-mail para gravar no BD.Agradeço se puder ajudar.Abraços..::Full Burn::..

[Rato de Fórum 0]

se não tiver com pressa, eu peço q espere um pouco, logo mais eu bolo um código pra você...

[Full Burn 0]

Opa... Agradeço muito.Assim que conseguir poste então que eu pego aqui.Muito obrigado e um grande abraço...::Full Burn::..

[Full Burn 0]

Rato,

 

Boa tarde,

 

Consegui montar o código. De qualquer forma, muito obrigado pelo empenho em me ajudar.

 

O código que eu montei ficou assim:

 

Const forReading = 1, forWriting = 2, forAppending = 8Set Fso = CreateObject("Scripting.FileSystemObject")Set ObjFile = Fso.GetFile("e:\vhosts\clickweb.com.br\subdomains\imah\httpdocs\admin\email.txt")Set objStream = ObjFile.OpenAsTextStream(forReading,false)Texto = ObjStream.ReadAllLinha = Split(texto, vbCrlf)conta = 1total = ubound(Linha)Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open MalaWhile not conta >= Total	DetailLinha = Split(Linha(conta), ";")	wnome = DetailLinha(0)	wemail = DetailLinha(1)	ComandoSQL = "INSERT INTO mala (Nome,Email) "   	ComandoSQL = ComandoSQL & " VALUES ( '"	ComandoSQL = ComandoSQL & wnome & "', '"	ComandoSQL = ComandoSQL & wemail & "')"				Set Produto = Conexao.Execute(ComandoSQL)				Set Produto = Nothing		conta = conta + 1WEND   	Conexao.CloseobjStream.CloseSet Fso = nothingSet objStream = nothing

Funcionou e tá gravando perfeitamente no banco.

 

Mais uma vez muito obrigado e, precisando de alguma coisa, tamos ae também.

 

Abraços

 

..::Full Burn::..

[Rato de Fórum 0]

q bom q conseguiu, pois eu fiquei ocupado o dia inteiro e nem tinha conseguido montar o codigo pra você...

[Full Burn 0]

Obrigado mais uma vez pela ajuda.Um grande abraço...::Full Burn::..