Postada em 22/03/2012 09:43 hs
Amigos bom dia.
Resolvi colocar novamente meu tópico pois mudou um pouco.
Descobri que o problema não é na rotina abaixo, ou seja não totalmente.
Private Sub Command1_Click()
Dim s As String
Dim f As Integer
f = FreeFile 'Pega o numero do arquivo a ser aberto caso tenha mais de um arquivo aberto.
Open Text1.Text For Input As #f ' abre o arquivo
Text1.Text = ""
Do Until EOF(f)
Line Input #f, s
Text2.Text = Text1.Text & Replace(s, vbCrLf, " ")
Loop
Close #f ' fecha o arquivo
End Sub
Pois o arquivo que recebo lê apenas uma vez, se eu copiar o conteúdo e colar em uma nova pagina funciona como eu preciso, ou seja a rotina lê linha a linha.
Creio que tem alguma marcação ou algo parecido no texto que eu não consigo visualizar e esta atrapalhando.
Alguem já passou por um situação desta?
Obrigado a todos.
|
