Delphi E Txt (Resolvido)

[Nosdaj]

TUDO BEM PESSOAL, PRECISO DE UMA ROTINA QUE ME EXIBA EM QUATRO EDIT'S, QUATRO VALORES QUE ESTÃO ARMAZENADOS NUM ARQUIVO TXT(EM ORDEM DE POSICIONAMENTO), E UMA ROTINA DE ALTERAÇÃO, OU A ROTINA DE ALTERAÇÃO FUNCIONA DA MESMA MANEIRA QUE A DE INSERIR REGISTROS NO TXT, GRATO PELA ATENÇÃO.

E-MAIL:JADSONLEAO@POP.COM.BR

MESSENGER:NOSDAJ@HOTMAIL.COM

[Progr'amador]

Olá Nosdaj,

cara você num foi muito claro na sua pregunta, existe "1001 formas" de se trabalhar com arquivo texto, o que seria essa "ORDEM DE POSICIONAMENTO" ?

De que forma estão armazenados esses 4 valores no txt? em linha? coluna? okê??

tipo: assim:

VALOR1 VALOR2 VALOR3 VALOR4

ou assim:

VALOR1

VALOR2

VALOR3

VALOR4

Abs. Progr'amador.

[Nosdaj]

e ai beleza programador, é tipo assim, exemplo, tenho CNPJ,SIGLA,RAZÃO SOCIAL E ESTADO, insiro estes valores em um arquivo TXT, quero que quando a pessoa fechar e abrir o sistema novamente estes valores inseridos apareçam nos seus respectivos campos caso ela queira alterar, pois posteriormente nesta sequencia que aparece lá no arquivo txt(CNPJ,SIGLA,RAZÃO SOCIAL E ESTADO) será inserido em uma base de dados interbase.Se você tiver tambem uma rotina de exportação e importação ira me ajudar muito, grato pela atenção.

[Progr'amador]

Olá Nosdaj,

beleza, mas vamos supor que esse arquivo tenha mais de uma linha, qual linha ira pros edit's? sendo que são 4 edit's e se o arquivo tem 3 linhas por exemplo (4x3=12) ele não podera jogar os 12 valores nos 4 edit's, entendeu? Ou você quer fazer tipo uma pesquisa no arquivo txt e selecionar determinada linha? Ou esse arquivo só tem uma linha mesmo?

De qualquer forma ae vai alguns exemplos.

usando 4 edit's:

procedure TForm1.Button1Click(Sender: TObject);
var ArqTxt : TextFile;
    linha  : string;
begin
  AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
  Reset(ArqTxt);
  Readln(ArqTxt, Linha);
  Edit1.Text := Copy(Linha,1,5);
  Edit2.Text := Copy(Linha,6,10);
  Edit3.Text := Copy(Linha,11,15);
  Edit4.Text := Copy(Linha,16,20);
  Closefile(ArqTxt);
end;

*Dessa forma os edits ira receber os valores da primeira linha, independente do numero de linhas. um outro exemplo, só que usando o Memo, dessa forma virar pro memo todoas as linhas do arquivo.

procedure TForm1.Button1Click(Sender: TObject);
var ArqTxt : TextFile;
    linha  : string;
begin
  AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
  Reset(ArqTxt);
  Readln(ArqTxt, Linha);                             
  while not eof(ArqTxt) do begin
     Readln(ArqTxt, Linha);
     Memo1.Lines.Add(Linha);
  end;
  Linha := '';     
  Closefile(ArqTxt);
end;

Vê se alguma dessas formas serve pro seu caso.

Qualquer dúvida posta ae, falou!!!

Abs. Progr'amador.

[Nosdaj]

beleza programador, o negocio é o seginte exemplo: tenho 2 edits, um vai receber o cnpj da cooperativa e o outro recebera a sigla; lá no arquivo TXT vai mostrar assim: (5241547854;cooperfarma), como faço para mostrar os mesmos valores que foram inseridos em outros dois edit's.

[Progr'amador]

Olá Nasdaj,

descupa ae cara, é que eu demoro pra entender as coisas... hehhee

Pelo que eu entendi, você quer trazer somente ultimo insedo, né?

com base no eu exemplo (5241547854;cooperfarma):

procedure TForm1.Button1Click(Sender: TObject);
var ArqTxt : TextFile;
    linha  : string;
    i : integer;
begin
 AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
 Reset(ArqTxt);
 Readln(ArqTxt, Linha);
 while not eof(ArqTxt) do begin
    Readln(ArqTxt, Linha);
    i := Length(Linha);
    Edit1.Text := Copy(Linha,1,10);
    Edit2.Text := Copy(Linha,12,i);
 end;
 Linha := '';
 Closefile(ArqTxt);
end;

Abs. Progr'amador.

[Nosdaj]

programador, tem jeito de eu pegar qualquer tamanho ate o final da virgula ai pula a virgula e pega o tamanho do outro registro ate a virgula e assim consecutivamente, sem depender de tamanho conforme o seu exemplo Edit1.Text := Copy(Linha,1,10); porque os dos edit's poderiam ser (524;farma).

[Progr'amador]

programador, tem jeito de eu pegar qualquer tamanho ate o final da virgula ai pula a virgula e pega o tamanho do outro registro ate a virgula e assim consecutivamente, sem depender de tamanho conforme o seu exemplo Edit1.Text := Copy(Linha,1,10); porque os dos edit's poderiam ser  (524;farma).

Olá Nosdaj,

agente arruma um jeito, hehehe

só que no exemplo você ta usando ponto e virgula (;), Ex: (524;farma)

ae vai:

procedure TForm1.Button1Click(Sender: TObject);
var ArqTxt : TextFile;
   linha, virgula : string;
   i, nx, tam : integer;
begin
   AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
   Reset(ArqTxt);
   Readln(ArqTxt, Linha);
   while not eof(ArqTxt) do begin
      Readln(ArqTxt, Linha);
      i := Length(Linha);
      for nx:=1 to i do begin
         virgula := Copy(Linha,nx,1);
         if virgula = ';' then
            tam := nx;
      end;
      Edit1.Text := Copy(Linha,1,tam-1);
      Edit2.Text := Copy(Linha,tam+1,i);
   end;
   Linha := '';
   Closefile(ArqTxt);
end;

Caso esteja usando virgula mesmo é só mudar aqui: if virgula = ',' then

Abs. Programador.

[Nosdaj]

porque será que não esta funcionando? Não aparece nada, o outro exemplo aparecia mas sem ser em ordem.

procedure TFrameCadastro.BitBtn4Click(Sender: TObject);

var ArqTxt : TextFile;

linha, virgula : string;

i, nx, tam : integer;

begin

AssignFile(ArqTxt,'c:\cooperativa\cooperativas.txt');

Reset(ArqTxt);

Readln(ArqTxt, Linha);

while not eof(ArqTxt) do begin

Readln(ArqTxt, Linha);

i := Length(Linha);

for nx:=1 to i do begin

virgula := Copy(Linha,nx,1);

if virgula = ';' then

tam := nx;

end;

edtCNPJ.Text := Copy(Linha,1,tam-1);

edtSigla.Text := Copy(Linha,tam+1,i);

end;

Linha := '';

Closefile(ArqTxt);

end;

[Progr'amador]

cara eu fiz um teste aki, copiei o eu código e funcionou,

verifique se o arquivo ta correto!

Abs. Progr'amador.

[Nosdaj]

programador não sei porque não da certo aqui, mas me diz uma coisa, não seria melhor eu usar sem virgula colocando cada valor inserido um em baixo do outro.

Exemplo:

coopfarma

393

uldlld

nosdaj

programadot

Ai no caso ele contaria como linhas, uma em baixo da outra, se você tiver o código de inserção assim e o código para exibir novamente nos edit's sem a preocupação com o tamanho do que é inserido, acho que será mais fácil pra mim implementar, valeu pela força.

[Progr'amador]

Olá Nosdaj,

é possível sim, mas o número de linhas sempre será o mesmo? tipo, se for 5 edit's sempre será 5 linhas no txt.

Abs. Progr'amador.

[Nosdaj]

o que eu acho engraçado programador é que naquele código que você me deu, se tiver lá por exemplo jadson;leao;silva , ele não traz nada nos edit's mas se eu coloco

jadson;

leao;

silva

um em baixo do outro ele traz o silva no primeiro edit

[Progr'amador]

Pergunto dinovo:

O número de linhas sempre será o mesmo?

Se for 5 edit's sempre será 5 linhas no txt. (por exemplo)

Abs. Progr'amador.

[Nosdaj]

desculpe por não ter entendido, sim o número de linhas será fixo, no caso 6 edit's

[Progr'amador]

Tenta esse:

procedure TForm1.Button1Click(Sender: TObject);
var ArqTxt : TextFile;
  linha : string;
  i : integer;
begin
  AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt');
  Reset(ArqTxt);
  i := 0;
  while not eof(ArqTxt) do begin
     Readln(ArqTxt, Linha);
     i := i + 1;
     if i = 1 then Edit1.Text := Linha;
     if i = 2 then Edit2.Text := Linha;
     if i = 3 then Edit3.Text := Linha;
     if i = 4 then Edit4.Text := Linha;
     if i = 5 then Edit5.Text := Linha;
     if i = 6 then Edit6.Text := Linha;
  end;
  Linha := '';
  Closefile(ArqTxt);
end;

Abs. Progr'amador.

[Nosdaj]

como eu posso inserir pra que ele leia daquela maneira linha por linha, no código que você mandou?

ficando desta maneira no arquivo txt

nome

sigla

endereço

um em baixo do outro?

pois testei o código que você mandou e deu certo só que funciona se estiver um em baixo do outro.

[Progr'amador]

e num era assim qu você queria???? um em baixo do outro?

[Nosdaj]

Agora é pra inserir um em baixo do outro dentro do arquivo TXT?

Ficando em linhas assim:

nome

endereço

telefone

e por ai vai

aquele código seu só funciona se estiver um em baixo do outro.

grato por sua ajuda!

[Progr'amador]

Então, problema resolvido!

Fechando o tópico...