LER ARQUIVO TXT TABULADO
Galera,
Como eu faço pra ler um arquivo TXT que tem os dados tabulados ?
Obrigado.
Como eu faço pra ler um arquivo TXT que tem os dados tabulados ?
Obrigado.
vc quer ler de que forma, msgbox, em um text ou jogar para algum lugar?
Quero pegar as infos que estão nesse arquivo e gravar num banco de dados SQL Server.
Primeiro voce deve saber qual porsicao inicia o campo e qual o tamanho dele.
Open Arquivo_Texto For Input As #1
Screen.MousePointer = vbHourglass
Do While Not EOF(1)
Line Input #1, Linha
If Linha = "" Then
Exit Do
End If
Campo01 = Left(Mid(Linha, 1, 5), 5)
Campo02 = Left(Mid(Linha, 10,5), 5)
Campo03 = Left(Mid(Linha, 15,5), 5)
Campo04 = Left(Mid(Linha, 20,5), 5)
Campo05 = Left(Mid(Linha, 25,5), 5)
Loop
Close #1
Screen.MousePointer = vbDefault
Depois grava o conteudo dos Campos?? no banco.
Espero que ajude.
Open Arquivo_Texto For Input As #1
Screen.MousePointer = vbHourglass
Do While Not EOF(1)
Line Input #1, Linha
If Linha = "" Then
Exit Do
End If
Campo01 = Left(Mid(Linha, 1, 5), 5)
Campo02 = Left(Mid(Linha, 10,5), 5)
Campo03 = Left(Mid(Linha, 15,5), 5)
Campo04 = Left(Mid(Linha, 20,5), 5)
Campo05 = Left(Mid(Linha, 25,5), 5)
Loop
Close #1
Screen.MousePointer = vbDefault
Depois grava o conteudo dos Campos?? no banco.
Espero que ajude.
Cara, depende, vc pode fazer de várias formas, mostre como está formatado esse txt que aàfica mais fácil de ajudar, vlw
Galera,
Ja descobri como fazer.
Meu arquivo esta tabulado mas não tem campo com dimesões definidas.
Fiz a abertura do arquivo, leio a linha e com o comando SPLIT, divido as minhas infos em uma array.
Vlw pela ajuda.
Ja descobri como fazer.
Meu arquivo esta tabulado mas não tem campo com dimesões definidas.
Fiz a abertura do arquivo, leio a linha e com o comando SPLIT, divido as minhas infos em uma array.
Vlw pela ajuda.
Tópico encerrado , respostas não são mais permitidas