Lendo e-mails de um arquivo TXT

[millhouse 0]

Bom diaPessoal , seguinte to com um TXT com os seguintes dados:3;'C';'Andréa';'andrea@motorola.com.br';'Cultura e Clima Organizacional';3;'I';'Marcos';'PCP Básico';'Jul/05';3;'I';'João';'PCP Avançado';'Nov/05';3;'C';'Pedro';pedro@motorola.com.br';'Cultura e Clima Organizacional';3;'I';'Fotsa';'PCP Básico';'Jul/05';3;'I';'Foes';'PCP Avançado';'Nov/05';3;'I';'Foes';'PCP Avançado';'Nov/05';3;'I';'Foes';'PCP Avançado';'Nov/05';preciso recuperar deste arquivo somente os e-maile os interessados de cada de e-mailque seriam as linhas onde comtem essa informação 3;'I';exemplo e-mail = andrea@motorola.com.brinterresados = 3;'I';'Marcos';'PCP Básico';'Jul/05';3;'I';'João';'PCP Avançado';'Nov/05';e os interessado preciso que esteja dentro de um array para que dps possa buscar os dadosto sem ideia de como fazer issoagradesço desde jáattThiago A. Wachholz

[Marcelo Barcellos 0]

Colega usando FSO e Array, dá para fazer o que você quiser com essas informações.Veja

Set objFso = Server.CreateObject("Scripting.FileSystemObject")Set oFile = objFso.OpenTextFile("C:\meutxt.txt",ForReading)txArquivo = objFile.ReadAlloFile.CloseSet objFso = NothingvarTotal = split(txArquivo,Vbcrlf)For i = 0 To ubound(varTotal) varParcial = split(varTotal(i),";") Response.write varParcial(0) & "<br>" Response.write varParcial(1) & "<br>" Response.write varParcial(2) & "<br>" Response.write varParcial(3) & "<br>" Response.write varParcial(4) & "<br>"Next