Erro Na Localização De Uma Palavra..

[tuliod]

Olá pessoal!! :D

Tudo bem aí?

preciso de uma ajuda de vocês.. por favor..

o problema é o seguinte:

utilizo este código para localizar uma palavra em um .txt:

n = FreeFile()   'Abre o arquivo txt
Open "texto.txt" For Input As #n
Do Until EOF(1)
Input #n, linha   'Le as linhas
coisa = Split(linha, ";")   'Separa os itens das linhas pelo sinal ";"
List1.AddItem (coisa(0))   'Adciona o primeiro item de todas as linhas em um list
If coisa(0) = txtprimeiroitem.Text Then   ' Se o primeiro item do txt é igual ao campo então....
MsgBox "O primeiro item do txt é igual ao campo"   ' Abre uma msgbox
End If
Loop
Close #n

Supondo que no arquivo texto.txt as informações estejam assim:

99teste;ovelha
fe1e188;coelho
casa124nova;jacare
098formiga;lagartixa

... o list é preenchido da seguinte forma:

99
fe
casa
098

Ou seja... o programa le só o primeiro tipo de caracteres que aparece (letra ou numero)..

tem alguma solução para que ele leia os dois tipo de caracteres?

Agradeço desde já!

Obrigado pela atenção!!

Túlioo!!

[Graymalkin]

Experimente utilizar Line Input ao invés de somente Input.

Abraços,

Graymalkin

[tuliod]

obrigadoo

funciono perfeitamente!!

Túlio