BUSCAR DADOS DE ARQUIVOS TXT

EVERSON.PASETTO 02/01/2011 21:44:42
#360889
Tenho um bloco de notas que fica em C:\Dados.txt
Nela tem um codigo 12345 na primeira linha
Na segunda tem Nome do Usuario..

Tenho os campos
txtCodigo
txtNome


Como capturar cada dados via codigo?
RODRIGOFERRO 02/01/2011 21:59:15
#360892
Posta um exemplo do Arquivo TXT, assim podemos discutir como podemos capturar os dados, e como podemos dar SPLIT nesses dados.

Abraços
FEDERHEN 03/01/2011 08:19:07
#360905 Resposta escolhida
DIM intFreeFile AS INTEGER
DIM strPrimeiraLinha AS STRING
DIM strSegundaLinha AS STRING

strPrimeiraLinha=[Ô][Ô]
strSegundaLinha=[Ô][Ô]
intFreeFile = FREEFILE
OPEN ([Ô]C:\Dados.txt[Ô]) FOR INPUT AS #intFreeFile
IF EOF(intFreeFile)=False Then
LINE INPUT #intFreeFile, strPrimeiraLinha
IF EOF(intFreeFile)=False Then
LINE INPUT #intFreeFile, strSegundaLinha
ENDIF
ENDIF
CLOSE #intFreeFile
EVERSON.PASETTO 03/01/2011 13:28:49
#360952
O codigo esta muito bom..
Mas olhem o anexo

Notem que existe um espaço na parte superior do documento..
Como faço para pegar as duas primeira linhas que tem dados?
MARCELO.TREZE 03/01/2011 15:15:46
#360957
assim

Dim Arq as Long
Dim Linha As String
Dim Cont As Integer
Cont = 0
Arq = FreeFile
Open [Ô]c:\dados.txt[Ô] For Input As Arq [txt-color=#007100][ô]Abre o arquivo para leitura[/txt-color]    
Do Until EOF(Arq) [txt-color=#007100][ô]Lê o arquivo ate o fim[/txt-color]
Line Input #Arq, Linha[txt-color=#007100] [ô]Puxa o que esta escrito na linha, passando de uma em uma linha[/txt-color]           
       If Linha <> [Ô][Ô] Then
              Cont = Cont + 1
            If Linha = 1 Then txtCodigo.Text = Linha
            if Linha = 2 Then txtNome.Text = Linha
       End If
Loop
Close Arq
FEDERHEN 03/01/2011 15:41:51
#360960
CODIGO AJUSTADO:


Dim intFreeFile As Integer
Dim strPrimeiraLinha As String
Dim strSegundaLinha As String

strPrimeiraLinha = [Ô][Ô]
strSegundaLinha = [Ô][Ô]
intFreeFile = FreeFile
Open ([Ô]C:\Dados.txt[Ô]) For Input As #intFreeFile
Do Until EOF(intFreeFile) Or strPrimeiraLinha <> [Ô][Ô]
Line Input #intFreeFile, strPrimeiraLinha
strPrimeiraLinha = Trim(strPrimeiraLinha)
Loop
Do Until EOF(intFreeFile) Or strSegundaLinha <> [Ô][Ô]
Line Input #intFreeFile, strSegundaLinha
strSegundaLinha = Trim(strSegundaLinha)
Loop
Close #intFreeFile
Tópico encerrado , respostas não são mais permitidas
Voltar