PEGAR DUAS COLUNAS NO ARQ TXT
galera o problema eh o seguinte tenho duas colunas no arquivo.txt
nome preco
01 50.0
01 25 .0
ah questao eh seguinte, eu tenho q pega um campo por vez, soh q no arquivo texto q eu tenho q ler, nao foi dado espaço entre os arquiivos, e sim um tab, sendo assim nao tm como saber quando acaba um campo..................
alguem tm alguma ideia d como ler campo por campo(seguindo a ordem das linhas????)
nome preco
01 50.0
01 25 .0
ah questao eh seguinte, eu tenho q pega um campo por vez, soh q no arquivo texto q eu tenho q ler, nao foi dado espaço entre os arquiivos, e sim um tab, sendo assim nao tm como saber quando acaba um campo..................
alguem tm alguma ideia d como ler campo por campo(seguindo a ordem das linhas????)
Dah uma olhada vê c ajuda !
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=85230
Espero ter ajudado !
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=85230
Espero ter ajudado !
teste o exemplo abaixo:
Dim sLinha as String
Dim aCampos() as Variant
Dim iCount as Integer
Open "NomeDoArquivo.TXT" For Input As #1
Line Input #1, sLinha
aCampos = Split(sLinha, vbTab)
For iCount = 1 To Ubound(aCampos)
MsgBox aCampos(iCount)
Next iCount
Close #1
Dim sLinha as String
Dim aCampos() as Variant
Dim iCount as Integer
Open "NomeDoArquivo.TXT" For Input As #1
Line Input #1, sLinha
aCampos = Split(sLinha, vbTab)
For iCount = 1 To Ubound(aCampos)
MsgBox aCampos(iCount)
Next iCount
Close #1
Tópico encerrado , respostas não são mais permitidas