Postada em 19/12/2006 08:40 hs
Tem sim, e é uma rotina relativamente simples:
dim algo as string
dim Conteudo as string
Open "C:\pasta\arquivo.txt" for input as #1
Do While Not Eof(1)
Line Input #1, Conteudo
'Aqui a variável "conteudo" contém a linha atual do arquivo texto
'O comando line input serve para pegar os dados de uma linha
'Como temos um do...while, todo o arquivo é percorrido, do começo ao fim
'Agora você tem que ter o lay-out do arquivo em mãos e separar os dados
'com a função Mid
algo = mid(conteudo,1,4)
'aqui a variável "algo" conterá os 4 primeiros caracteres da linha atual
'faça o mesmo para todos os outros dados
SQL = "Insert Into Tabela(Campo) Values(" & algo & ")"
cn.execute SQL
'Aqui a instrução SQL está feita usando os valores obtidos do banco,
'você vai ter que montá-la de acordo com a sua tabela.
Loop
Close #1
Flw! Qualquer coisa Post!
|
