Joe, te respondi no dia 17, com um exemplo... mas se não leste, aí vai
de novo
Ok Mr Joe McBaker. There it Goes!!!
Aí vai!!!
Vamos supor que você tem uma linha de 240 caracteres, e nela você tem de
ler 3 campos.
campo_1 vai do caractere 1 ao 80
campo_2 vai do caractere 81 ao 160
campo_3 vai do caracteres 161 ao 240
lembrando de que você estará lendo um arquivo existente no disco
faça o seguinte!!!
Usando parte do exemplo do próprio Delphi...
...
var
F: TextFile;
S: string;
begin
if OpenDialog1.Execute then { Abre a Caixa de dialogo de abertura de
arquivo}
begin
AssignFile(F, OpenDialog1.FileName); { atribui à variável, o
arquivo selecionado na caixa de diálogo }
Reset(F); {Aqui estou realmente
abrindo o arquivo}
Readln(F, S); { Lê a primeira linha }
Datasetcampo_1.asString := copy(s,1,80); {Atribuo valores aos campos}
DatasetCampo_2.asSString := copy(s,81,80);
DatasetCampo_3.asSString := copy(s,161,80);
CloseFile(F);
end;
end;
É claro que para ler todas as linahs você usará um laço de repetição tipo
Repeat
until <condição>
ou
While <condição> do
begin
end...
espero ter ajudado!!!
Sds
Emanuel Coutinho
Joe McBaker wrote:
>
> > ola Emanuel
> >
> > como disse sou iniciante
> >
> > tem como me dar um exemplo pratico com linhas de commandos
> >
> > obrigado
> >
> >
> > > Joe
> > >
> > > Crie uma variavel do tipo TextFile
> > >
> > > Use a funçao Readln para ler cada linha do arquivo
> > > Use a função copy para ler os blocos do texto de cada linha
> > >
> > > é como ler um arquivo CNAB seja 400 ou 240.
> > >
> > > Se precisar de ajuda mais específica avise-me!!!
> > >
> > >
> > > Sds
> > > Emanuel Coutinho
> >
> >
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
> ------------------------------------------------------------------------
> Links do Yahoo! Grupos
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
> ------------------------------------------------------------------------
> Esta mensagem foi verificada pelo E-mail Protegido Terra
> <http://www.emailprotegido.terra.com.br/>.
> Scan engine: VirusScan / Atualizado em 17/09/2004 / Versão: 1.5.2
> Proteja o seu e-mail Terra: http://www.emailprotegido.terra.com.br/
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
