Como ler arquivo tipo 400 posições ???


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Como ler arquivo tipo 400 posições ???

JGD
não registrado

Postada em 17/05/2004 14:33 hs

Olá Pessoal.

Tenho que ler e tratar um arquivo texto, tipo aqueles que
a gente gera para enviar para bancos (cobrança bancária 400 posições).
O problema é que eu nunca precisei ler e tratar tal arquivos..

1) Alguem aí teria um exemplo de como abril, ler e copiar o conteúdo
deste arquivo para um outro ou uma tabela access (preferenciamento) ou sql server ?

Considerando delimitadores, campos e branco, etc. ( algum laço por ex.)

2) Na pratica sei que a parte mais importante do arquivo é
o "DETALHE"... + o que eu faço com o "HEADER" e o "TRAILLER" do arquivo
neste caso ?

Agradeço qualquer ajuda.

Abraço

JGD

MrBytes

SAO PAULO
SP - BRASIL

Postada em 17/05/2004 14:40 hs

espero que isso te ajude

Function AbreArquivo(sArquivo As String)
Dim iARQ As Integer
Dim sLinha As String
Dim sResult As String

iARQ = FreeFile
Open App.Path  & sArquivo For Input As iARQ
Do Until EOF(iARQ)
    Line Input #iARQ, sLinha
    sResult = sResult + Chr(13) & Chr(10) + sLinha
Loop

AbreArquivo = sResult

Close iARQ
End Function

http://vaza.me/eneiO

MrBytes

SAO PAULO
SP - BRASIL

Postada em 17/05/2004 14:41 hs

espero que isso te ajude

Private Sub Form_Load()
Text1 = "***************************** Historico de Login *****************************"
Text1 = Text1 & Chr(13) & Chr(10) & AbreArquivo("acessos.txt")
If ADM = False Then Command2.Enabled = False
End Sub

Function AbreArquivo(sArquivo As String)
Dim iARQ As Integer
Dim sLinha As String
Dim sResult As String

iARQ = FreeFile
Open App.Path  & sArquivo For Input As iARQ
Do Until EOF(iARQ)
    Line Input #iARQ, sLinha
    sResult = sResult + Chr(13) & Chr(10) + sLinha
Loop

AbreArquivo = sResult

Close iARQ
End Function

Abraços

MrBytes

http://vaza.me/eneiO

JGD
não registrado

Postada em 17/05/2004 20:16 hs

MrBytes

Muito obrigado pela função

Vai me ajudar muito.

Obrigado mesmo !

Abraço

JGD

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR