RSILVA
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 29/12/2005 16:44 hs
Como leio um arquivo separado por ';'. joao;11111;... preciso pegar cada informação para gravar em uma tabela. |
|
|
|
|
|
vitor
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 30/12/2005 07:10 hs
Dim textfile As String
Dim textfields() As String Open "C:222.txt" For Input As #1 Len = 255
While Not EOF(1)
Input #1, textfile
textfields() = Split(textfile, ";")
If UBound(textfields()) > -1 Then
msgbox textfields(0) msgbox textfields(1) end if
End If
Wend |
|
|
|
RSILVA
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/12/2005 10:22 hs
Outra Ajuda... Esqueci de informar q são varias linhas no arquivo joao;11111;teste paulo;22222;testetete maria antonia;333;tesretetetete. Como faço, com o código acima? |
|
|
|
vitor
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/12/2005 12:03 hs
Enquanto nao for final do arquivo ele vai lendo todas as linhas. O WHILE e para ler todas as linhas do arquivo. Faça um teste com o codigo acima usando um arquviso de 2 ou tres linhas para teste. |
|
|
|
