PROBLEMA NA LEITURA DE ARQUIVO TEXTO
Olá Galera!
Não estou conseguindo ler um determinado arquivo texto linha a linha, sempre no primeiro loop está me retornando o arquivo texto por inteiro, eu preciso ler linha a linha da mesma forma que é apresentado quando o arquivo é aberto pelo WordPad.
Alguém poderia me dar uma dica de que forma posso resolver isso?
Estou usando esta rotina abaixo para fazer a leitura do arquivo:
Anexei Também um exemplo do Arquivo Texto a ser lido:
Não estou conseguindo ler um determinado arquivo texto linha a linha, sempre no primeiro loop está me retornando o arquivo texto por inteiro, eu preciso ler linha a linha da mesma forma que é apresentado quando o arquivo é aberto pelo WordPad.
Alguém poderia me dar uma dica de que forma posso resolver isso?
Estou usando esta rotina abaixo para fazer a leitura do arquivo:
Citação:Dim F As Long, sdados As String
F = FreeFile
Open MeuArquivoTexto For Input As #F
Do While Not EOF(F)
Line Input #F, sdados
MsgBox sdados [ô]Deve apresentar uma linha de cada vez
Loop
Close #F
Anexei Também um exemplo do Arquivo Texto a ser lido:
LVFIOROT grato pela sua Atenção!
Se você observar verá que a linha é separada por ENTER!
Eu já sabia que pelo note pad não é possivel ter uma visualização linha a linha e que pelo WordPad isso é possivel. E que também é possivel importar via Excel.. porem eu não sei como fazer isso via código!
Se você observar verá que a linha é separada por ENTER!
Eu já sabia que pelo note pad não é possivel ter uma visualização linha a linha e que pelo WordPad isso é possivel. E que também é possivel importar via Excel.. porem eu não sei como fazer isso via código!
Poste o LAYOUT do arquivo de texto.
Olá LVFIOROT, GRATO PELA SUA COLABORAÇÃO!
Eu fiz o teste com a sua solução e funcionou perfeitamente, porem eu já tinha solucionado da forma abaixo:
Eu fiz o teste com a sua solução e funcionou perfeitamente, porem eu já tinha solucionado da forma abaixo:
Citação:[ô]NECESSÃRIO FAZER REFERENCIA ao [Ô]Microsoft Scripting Runtime[Ô]
Dim fso As New FileSystemObject
Dim fTextFile As Object
Dim sLinha As String
Set fTextFile = fso.OpenTextFile(CtrlRelPedidosCompra.Text, 1)
While fTextFile.AtEndOfStream <> True
sLinha = fTextFile.ReadLine
MsgBox sLinha
Wend
fTextFile.Close
Tópico encerrado , respostas não são mais permitidas