Ler Txt (Resolvido)

[Guest ANONIMO INICIANTE]

GALERA É O SEGUINTE, TENHO QUE LER UM ARQ TXT...SEU LAYOUT É ESTE ABAIXO:

1669275;CARLOS MURILO ROCHA;1;2;MEDIC1;MEDIC2;MEDIC3

1669663;ZELMA MARIA MOREIRA;2;1;MEDIC1;MEDIC2;MEDIC3

1669745;MARCINELE FONSECA GUIMARAES;2;3;MEDIC1;MEDIC2;MEDIC3

1675239;MARIA DOS REIS DA SILVA;1;1;MEDIC1;MEDIC2;MEDIC3

1675303;CLAUDINEY DE ALMEIDA CAMPELO;1;1;MEDIC1;MEDIC2;MEDIC3

alguém PODE ME AJUDAR??

BRIGADIM

[Vivendo&Aprendendo]

Você quer ler ele e fazer o que?

Explique melhor o seu problema para podermos ajudar

Vlw

[Guest ANONIMO INICIANTE]

é o seguinte, vou ler e colocar cada dado em seu campo, EDITS

JÁ os medics vou colocar no mesmo MEMO da seguinte forma.

MEDIC1

MEDIC2

MEDIC3

VALEU

[Vivendo&Aprendendo]

Amigão estou fazendo um exemplo aki, mas me responde uma coisa sempre vai ser essa mesma quantidade de dados:

Numero

Nome

Numero

Numero

Medic

Medic

Medic

falou

[Guest anonimo iniciante]

OLHA COLEGA.....

NUMERO

NOME

NUMERO

NUMERO

SERAO SEMPRE ESTES, MAS OS MEDICS não...SERAO ALEATORIOS.

PODE TER UM COMO PODE TER 50

valeu

[Guest ANONIMO INICIANTE]

alguém PODE ME AJUDAR??????

POR FAVOR......

[Kikonanet]

Olá,

Dê uma olhada neste tópico, acho q pode te ajudar.

http://scriptbrasil.com.br/forum/index.php?showtopic=55349

Abs.

Kiko

[Guest - anonimo -]

ate da...mas so em parte.....

quando chega nos medicamentos....COMO FAÇO PRA DAR QUEBRA DE LINHA..

PARA QUE NO MEMO APARECAM ASSIM OS DADOS

MEDIC1

MEDIC2

.

.

.

[Progr'amador]

ola,

tente implementar isso:

Memo1.Lines.Add("variavel");

abs. Progr'amador.

[Guest - ANONIMO -]

de uma olhada ..por favor.

AssignFile(ArqTxt,'C:\PROCORDIS.txt');

Reset(ArqTxt);

Achou := False;

while not eof(ArqTxt) do begin

Readln(ArqTxt, Linha);

Codigo := Copy(Linha,1,Pos(';',Linha)-1);//NUM PACIENTE

delete(Linha,1,Pos(';',Linha));

Cliente := Copy(Linha,1,Pos(';',Linha)-1);//NOME PACIENTE

delete(Linha,1,Pos(';',Linha));

Leito := Copy(Linha,1,Pos(';',Linha)-1);//NUM LEITO

delete(Linha,1,Pos(';',Linha));

Atendimento := Copy(Linha,1,Pos(';',Linha)-1);//NUM ATENDIMENTO

delete(Linha,1,Pos(';',Linha));

x := Length(Linha) - Length(Atendimento);

Medicamento := Copy(Linha,Pos(';',Linha)+1,x);

if trim(EditNProntuario.text) = Codigo then

begin

EditNomePaciente.Text := Cliente;

ComboBoxLeito.Text := Leito;

ComboBoxNAtendimento.Text := Atendimento;

MemoVaiParaPrescricao.Lines.Add(Medicamento);

Achou := True;

Exit;

end;

end;

Linha := '';

Closefile(ArqTxt);

if not Achou then

begin

//LE DADOS TXT PIC

AssignFile(ArqTxt,'C:\PACIENTES.txt');

Reset(ArqTxt);

Achou := False;

while not eof(ArqTxt) do

begin

Readln(ArqTxt, Linha);

Codigo := Copy(Linha,1,Pos(';',Linha)-1);// NUM PRONTUARIO

delete(Linha,1,Pos(';',Linha));

Cliente := Copy(Linha,1,Pos(';',Linha)-1);//NOME PACIENTE

delete(Linha,1,Pos(';',Linha));

Atendimento := Copy(Linha,1,Pos(';',Linha)-1);//NUM ATENDIMENTO

x := Length(Linha) - Length(Codigo);

if trim(EditNProntuario.text) = Codigo then

begin

EditNomePaciente.Text := Cliente;

ComboBoxNAtendimento.Text := Atendimento;

Achou := True;

Exit;

end;

end;

Linha := '';

Closefile(ArqTxt);

if not Achou then

begin

EditNomePaciente.Text := '';

ComboBoxNAtendimento.Text := '';

ShowMessage('Prontuário não encontrado!'+#13+'Comece uma nova prescrição para este paciente');

EditNomePaciente.SetFocus;

end;

end;

berigadu

[Progr'amador]

ve se isso resolve:

procedure TForm1.Button1Click(Sender: TObject);

var

  linha, codigo : string;

  i, x : integer;

  ArqTxt : TextFile;

  achou : boolean;

begin

  AssignFile(ArqTxt,'C:\PROCORDIS.txt');

  Reset(ArqTxt);

  i := 0;

  achou := False;

  while not eof(ArqTxt) do begin

    i := i + 1;

    Readln(ArqTxt,linha);

    Codigo := Copy(Linha,1,Pos(';',Linha)-1);

    x := Length(Linha) - Length(Codigo);

    if Trim(EditNProntuario.Text) = Codigo then begin

       achou := True;

       Delete(linha,1,Pos(';',linha));

       EditNomePaciente.Text:= Copy(linha,1,pos(';',linha)-1);

       Delete(linha,1,Pos(';',linha));

       ComboBoxLeito.Text := Copy(linha,1,pos(';',linha)-1);

       Delete(linha,1,Pos(';',linha));

       ComboBoxNAtendimento.Text := Copy(linha,1,pos(';',linha)-1);

       Delete(linha,1,Pos(';',linha));

       MemoVaiParaPrescricao.Clear;

       while Pos(';',linha) > 0 do begin

          MemoVaiParaPrescricao.Lines.Add(Copy(linha,1,pos(';',linha)-1));

          Delete(linha,1,Pos(';',linha));

       end;

      MemoVaiParaPrescricao.Lines.Add(linha);

       Break;

    end;

  end;

  Closefile(ArqTxt);

  if not Achou then begin

     EditNomePaciente.Text := '';

     ComboBoxLeito.Text := '';

     ComboBoxNAtendimento.Text := '';

     MemoVaiParaPrescricao.Clear;

     ShowMessage('Prontuário não encontrado!'+#13+'Comece uma nova prescrição para este paciente');

     EditNProntuario.SetFocus;

  end;

end;

Abs. Progr'amador.