COMO ABRIR arquivo texto e copiar alguns dados

Question

Ol� pessoal gostaria que me ajudassem em como abrir um arquivo texto na forma mais simples e depois copiar alguns dados vejam:00124500401000000JEEPCOVER0001270001245->codigo de pedido, campo----------...

Osocram · Answer

coloque um RichEdit e deixe invivible senaum quiser q apareca....
entaum faca
RichEdit1.Lines.LoadFromFile(�arquivo.txt�);

ou tbm usar o tipo
var
aux :TextFile;

mas esse acho q ficaria um pouco mais complicado.

Infohelp · Answer

O cara deu erro!!!, se puder me explicar melhor

�cannot open file error� o arquivo est� no diret�rio corrente do sistema tentei:
procedure TForm1.Button2Click(Sender: TObject);
Begin
RichEdit1.Lines.LoadFromFile(�pedido.txt�);

end;

Lipe_lacerda · Answer

n�o sei se vou conseguir te ajudar, mas olha o codigo abaixo:

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 EOF (arquivo) 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

V� se vai funcioner ok??
[]� Felipe

Lipe_lacerda · Answer

n�o sei se vou conseguir te ajudar, mas olha o codigo abaixo:

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 EOF (arquivo) 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

V� se vai funcioner ok??
[]� Felipe

Infohelp · Answer

tentei mas ainda d� erro olhe[Error] fiat.pas(67): Incompatible types: �TPersistent� and �Text�Obrigado...

F�rum COMO ABRIR arquivo texto e copiar alguns dados #209449