TXT
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
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
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
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