Manipular Arquivo
Estou utilizando o Delphi 7, preciso pegar o conteudo de um arquivo (.txt)e dividir ele em strings. por exemplo:
dentro do meu arquivo tem os seguintes dados:
a1b23nb43lklsjvsjl77789
eu tenho q separar os 3 primeiros digitos, e jogar em uma variavel, os outros 5 em outras, e assim por sucessivamente.
alguem pode me auxilar como eu devo fazer?
desde de já agradeço
[ ] ´ Felipe
dentro do meu arquivo tem os seguintes dados:
a1b23nb43lklsjvsjl77789
eu tenho q separar os 3 primeiros digitos, e jogar em uma variavel, os outros 5 em outras, e assim por sucessivamente.
alguem pode me auxilar como eu devo fazer?
desde de já agradeço
[ ] ´ Felipe
Lipe_lacerda
Curtidas 0
Respostas
Ulissesn
23/01/2004
Caro Amigo,
Pegue o conteúdo e jogue numa variavél Auxiliar e depois faça um copy da mesma para pegar
Ex:
Aux:=Readln(File);
Aux1:=Copy(Aux,1,3);
Espero ter ajudado.....
Ulisses
Pegue o conteúdo e jogue numa variavél Auxiliar e depois faça um copy da mesma para pegar
Ex:
Aux:=Readln(File);
Aux1:=Copy(Aux,1,3);
Espero ter ajudado.....
Ulisses
GOSTEI 0
Vanius
23/01/2004
Boa tarde.
é + - assim. no www.clubedelphi.com.br em dicas e exemplos tem um outro exemplo.
procedure Tform1.Button1OnClick(......);
var
Arquivo : TextFile;
Linha : String;
begin
Assign(Arquivo, ´c:\arquiov.txt´); //Associa variavel Arquivo ao arquivo TXT.
Reset(Arquivo); // abre o arquivo
Table1.Open;
while NOT Arquivo.EOF do
begin
ReadLn(Arquivo, Linha); //´captura´ a linha do Arquivo para a variavel Linha
//Read apenas le a linha, ReadLn le e pula para a proxima linha
table1.Insert;
table1.FieldByName(´Nome´).Value := Copy(Linha, 01, 30); // copia 30 caracteres da variavel Linha apartir da posicao 01;
table1.FieldByName(´Cidade´).Value := Copy(Linha, 31, 15); // copia 15 caracteres da variavel Linha apartir da posicao 31;
Table1.Post;
end; //end do while
Close(Arquivo);
Table1.Close;
end; //end da procedure
Acho q é so isto.
Se der algum erro é q estou fazendo de cabeça, sem consultar.
abraços,
Vanius
é + - assim. no www.clubedelphi.com.br em dicas e exemplos tem um outro exemplo.
procedure Tform1.Button1OnClick(......);
var
Arquivo : TextFile;
Linha : String;
begin
Assign(Arquivo, ´c:\arquiov.txt´); //Associa variavel Arquivo ao arquivo TXT.
Reset(Arquivo); // abre o arquivo
Table1.Open;
while NOT Arquivo.EOF do
begin
ReadLn(Arquivo, Linha); //´captura´ a linha do Arquivo para a variavel Linha
//Read apenas le a linha, ReadLn le e pula para a proxima linha
table1.Insert;
table1.FieldByName(´Nome´).Value := Copy(Linha, 01, 30); // copia 30 caracteres da variavel Linha apartir da posicao 01;
table1.FieldByName(´Cidade´).Value := Copy(Linha, 31, 15); // copia 15 caracteres da variavel Linha apartir da posicao 31;
Table1.Post;
end; //end do while
Close(Arquivo);
Table1.Close;
end; //end da procedure
Acho q é so isto.
Se der algum erro é q estou fazendo de cabeça, sem consultar.
abraços,
Vanius
GOSTEI 0