Arquivo TXT e MEMO

Delphi

30/12/2003

Olá pessoal,

Turma como fazer para importar o cnteúdo de um arquivo TXT para um campo MEMO da minha tabela.

E Como fazer para exportar o conteúdo do campo MEMO Da minha tabela para um arquivo TXT.

Arquivo TXT em linha.

Sds.
JC


Wizard

Wizard

Curtidas 0

Respostas

Delphibond

Delphibond

30/12/2003

dbmemo.savetofile(´nome do arquivo.txt´); // salva pra TXT

dbmemo.loadfromfile(´nome do arquivo.txt´); //carrega de um TXT

precisar tou no mail abaixo (talvez até online).


GOSTEI 0
Emiyasaki

Emiyasaki

30/12/2003

Só complementando:

DBMemo1.Lines.LoadFromFile(´arquivo.txt´);


DBMemo1.Lines.SaveToFile(´arquivo.txt´);


Claro, se o dataset estiver em modo de edição ou inserção. Não se esqueça o [i:b4b8321530]Post[/i:b4b8321530] depois.


GOSTEI 0
Delphibond

Delphibond

30/12/2003

oioi,
por favor verifique seu e-mail,
tentei responder mas não consigo.
Ah, para resolvermos mais rápido você poderia me encontrar no mensageiro MSN MESSENGER (delphibond@msn.com) ou no ICQ 267882479.

Valeu..
T+


GOSTEI 0
Delphibond

Delphibond

30/12/2003

Segue abaixo um exemplo simples de como fazer a conversão de arquivos .TXT para DB e DB para .TXT. Para jogar os valores para variáveis (como vc disse) é só substituir os campos das tabelas pela variável correspondente. (não usa o memo para conversão mas acho aque será útil)

Colar um componente Table e um DataSource ao seu Form;
&61680;Fazer as ligações normais do Table a tabela;
&61680;Duplo click sobre o componente Table;
&61680;Adicionar os campos a lista de Fields;
&61680;Colar um botão no Form;
&61680;No evento onClick do botão, digitar o seguinte:

Exemplo para fazer a conversão de arquivo .TXT para DB.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT : TextFile;
Entrada: String;
Begin
AssignFile(TXT,Çliente.TXT’);

Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;



Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;

Exemplo para fazer conversão de arquivo DB para TXT:

Procedure TForm1.BitBtn2Click(Sender: TObject);
var F: TextFile;
I: Integer;
Begin
AssignFile(F, ‘Cliente.TXT’);
Rewrite(F);
Table1.First;
While not Table1.Eof Do
Begin
Writein(F, Table1Codigo.Value + Table1Nome.Value);
Table1.Next;
End;
CloseFile(F);
End;


GOSTEI 0
Delphibond

Delphibond

30/12/2003

Segue abaixo um exemplo simples de como fazer a conversão de arquivos .TXT para DB e DB para .TXT. Para jogar os valores para variáveis (como vc disse) é só substituir os campos das tabelas pela variável correspondente. (não usa o memo para conversão mas acho aque será útil)

Colar um componente Table e um DataSource ao seu Form;
&61680;Fazer as ligações normais do Table a tabela;
&61680;Duplo click sobre o componente Table;
&61680;Adicionar os campos a lista de Fields;
&61680;Colar um botão no Form;
&61680;No evento onClick do botão, digitar o seguinte:

Exemplo para fazer a conversão de arquivo .TXT para DB.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
TXT : TextFile;
Entrada: String;
Begin
AssignFile(TXT,Çliente.TXT’);

Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;



Table1Codigo.Value:= Copy(Entrada,01,05);
Table1Nome.Value:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;

Exemplo para fazer conversão de arquivo DB para TXT:

Procedure TForm1.BitBtn2Click(Sender: TObject);
var F: TextFile;
I: Integer;
Begin
AssignFile(F, ‘Cliente.TXT’);
Rewrite(F);
Table1.First;
While not Table1.Eof Do
Begin
Writein(F, Table1Codigo.Value + Table1Nome.Value);
Table1.Next;
End;
CloseFile(F);
End;

Falow

T+


GOSTEI 0
POSTAR