Ler arquivo Texto

[mvurban 0]

Olá galera, preciso de uma ajuda urgente. Não sei nada de VB, mais saco de ASP. To percisando fazer o seguinte em VB: Dado um arquivo texto (.txt) tenho que ler linha a linha e extrair seus dados para um banco em sql. Só preciso saber como faço para ler esse arquivo e extrair os dados. O arquivo está assim:

 

Linha 1-> 12345 Jose da silva 34 12/10/1976

Linha 2-> 34567 Marcos Filisberto 2 10/08/1979

 

Eu tenho a coluna inicial e final de cada informacao.

 

Precioso tambem pegar o nome do arquivo como parametro, assim:

extrator.exe arquivo.txt

[cassitos 2]

bem...

 

em ASP você já usou o (File System Object) ?

 

no vb já vem Project/References..., selecione o Microsoft Scripting Runtime (ou só Scripting Runtime).

 

depois, declare o objeto FSO:

 

Dim MyFSO as new scripting.filesystemobject

Dim MyStream as new textstream

para abrir um arquivo texto por exemplo:

 

set mystream = myfso.opentextfile(caminho, ForReading)

depois p/ ler o conteúdo deste arquivo é simples:

 

Dim sTexto as string

 

while mystream.AtEndOfStream=false

doevents

stexto = mystream.readline 'passa o conteúdo da linha atual do arquivo para uma variável

'a partir daí você pode trabalhar com esta variável.

wend

agora você precisa saber o formato deste arquivo, os campos estão delimitados por tamanho fixo das colunas?

ex:

coluna codigo: tamanho fixo 10 caracteres

coluna nome: tamanho fixo 100 caraceters

coluna data: tamanho fixo 10

 

é muito importante saber como está a estrutura, p/ agilizar.

[cassitos 2]

p/ pegar parametros enviados p/ executável:

 

utilize o Command$ do VB:

 

ex: extrato.exe arquivo.txt

 

o Command$ será arquivo.txt.

[mvurban 0]

Valeu mesmo.