Ajuda com Agenda Telefonica

Question

Seguinte tenho um Txt com as seguinte informacoes:Funcionarios:Nome: FulanoTelefone: 412535Email: eu@globo.com:Tesouraria:Nome: Fulano 2Telefone: 4241252email: hua@globo.comalguem sabe alguma de forma...

Facc · Answer

[quote:99d24eb351=�bertu�]Seguinte tenho um Txt com as seguinte informacoes:Funcionarios:Nome: FulanoTelefone: 412535Email: eu@globo.com:Tesouraria:Nome: Fulano 2Telefone: 4241252email: hua@globo.comalguem sabe alguma de forma de fazer com que quando eu abrir esse txt, ele identificar o :Funcionarios: e enviar o Campo Nome: para o Edit1, Telefone pro Edit 2.... e qndo identificar Tesouraria enviar o Nome pro Edit 5 e o Telefone pro Edit6 ! alguem sabe alguma coisa ? ja procurei string replace e nao consigui fazer funcionar :) vlw[/quote:99d24eb351]Acredito que de para trabalhar igual INIFILES. Busque aki no forum...

Bertu · Answer

Nao da por 1 motivo... Inifiles ele busca no arquivo a string [NOME] , precisa ter o [ ] ! e minha agenda ja ta toda inserida no txt eh mto grande, nao vale apena editar o arquivo! =/...

Bertu · Answer

alguem tem alguma ideia ? Massuda ?...

Obrunno · Answer

Use a seguinte fun��o:function ObterTermo(APosicao: Integer; ASeparador,ALinha: String): String;var  sAux: TStringList;begin  Result:=��;  sAux:=TStringList.Create;  sAux.Text:=StringReplace(ALinha,ASeparador,#1310,[rfReplaceAll, rfIgnoreCase]);  if APosicao <= sAux.Count then    Result:=sAux.Strings[APosicao-1];  sAux.Free;end; Utiliza��o: ObterTermo(2, �:�, �Nome: Cicraninho�); retornar� �Cicraninho�ou Edit5.text := ObterTermo(2, �:�, �Nome: Cicraninho�);Use dicas de arquivos de texto para abri-lo e varrer todas as linhas. Da� vc pode fazer uma filtragem:if ObterTermo(1, �:�, �Nome: Cicraninho�) = �Nome� thenlinha contem o nome...if ObterTermo(1, �:�, �Nome: Cicraninho�) = �Telefone� thenlinha contem o telefone...e assim vai!!!...

Bertu · Answer

aee blzz... so q como ponho pra funciona num Memo, aqui da um erro :S...

Bertu · Answer

axo qn ao funcionou...

Martins · Answer

[quote:a10ed731c8=�bertu�]aee blzz... so q como ponho pra funciona num Memo, aqui da um erro :S[/quote:a10ed731c8]Qual o erro q d�?Boa sorte!...

Bertu · Answer

Nao ta retornando o numero do telefone e nem o nome da pessoa! A ideia seria pegar o Nome: e aparti do : inserir em um Campo Edit! E a mesma coisa com telefone, so que nao ta retornando alguma ideia ?

Obrunno · Answer

Como j� falei antes...Use a fun��o ObterTermo que postei acima.Edit5.text := ObterTermo(2, �:�, �Nome: Fulano�); // A fun��o vai mandar pro Edit5 o texto �Fulano�;Edit6.text := ObterTermo(2, �:�, �Telefone: 3424-3215�); // A fun��o vai mandar pro Edit6 o texto �3424-3215�;e assim por diante....

Obrunno · Answer

Quanto ao erro no MEMO...Tente fazer o teste para o edit como te mostrei.Depois veja se est� tendando adicionar no memo assim:memo1.lines.add(ObterTermo(2, �:�, �Telefone: 3424-3215�));Flw�s...

Bertu · Answer

simm vlw d+, mais o problema eh que eu coloco essa funcao do Edit5 no evento OnChange do Memo... dae nao retorna nada! em qual evento eu colocaria ?...

F�rum Ajuda com Agenda Telefonica #357508