Tenho um arquivo txt, e estou fazendo a leitura dele. Só que quero fazer essa leitura até encontrar um [ENTER]. Qual o código do [ENTER]??? Estou colocando:

 

If &Dados = chr(13). Esta certo isso? Ele nunca entra nessa condição.

tenta vbnewline amigo.

 

at+

inclua um textbox em seu form no tamanho desejado de preferencia grande o suficiente para ler todo o arquivo, altere a propriedade multiline para true agora cole este código em seu form

 

pode ser feito também em um modulo veja.

 

Function AbreArquivo(sArquivo As String) As String

 Dim iARQ as Integer

 Dim sLinha As String

 Dim sResult As String

 

iARQ=FreeFile

Open sArquivo For Input as iARQ

Do While Not EOF(iARQ)

Line Input #iARQ,sLinha

 

sResult=sResult + Chr(13) & Chr(10) + sLinha

 

Loop

 

AbreArquivo=sResult

 

Close iARQ

 

End Function

 

 

para usar é simples:

 

em um botão cloque o seguinte código

 

Text1.Text=AbreArquivo("c:\texto.txt")

 

 

e pronto

 

você pode utilizar desta função em outros objetos, como o listbox, listview, RichtextBox, etc....

 

 

até

 

Ramirez, vc tem que ler caractere por caractere.

 

FOR A = 1 TO LEN(TEXT1.TEXT)

    IF MID(TEXT1.TEXT,A,1) = CHR(13) THEN

         MSGBOX "ACHEI"

    END IF

NEXT

 

Roberto