TXT

USUARIO.EXCLUIDOS 28/11/2006 16:27:53
#186805
OLa galera estou com um probleminha estou abrindo um arquivo .txt em listview, estou fazendo pelo exemplo do vb
comLocalzar.FileName = "*.txt"
comLocalzar.ShowOpen
Endereco = comLocalzar.FileName
Open Endereco For Input As #1
Do Until EOF(1)
Set lvwItem = lvwContato.ListItems.Add(, , Input(LOF(1),#1))
txtTo.Text = Input(LOF(1), #1)
Loop
Close #1
Eu gostaria que sistema colocasse os email um em baixo do outro como faço isso
LIONHEART 28/11/2006 17:23:55
#186817
Resposta escolhida
troca essa linha:
txtTo.Text = Input(LOF(1), #1)

por essa:


Dim texto as string, x as variant, i as integer
texto = Input(LOF(1), #1)
x = split(texto, vbcrlf) 'imagino que esteja cada e-mail numa linha dentro do arquivo texto

for i = lbound(x) to ubound(x)
Set lvwItem = lvwContato.ListItems.Add(, , x(i))
next
Tópico encerrado , respostas não são mais permitidas