Retornar strings depois de uma busca...

[Gustavo R Ferreira 0]

Boa tarde galera,

 

Estou fazendo uma rotina para procurar detrerminados valores de uns dados em um arquivo texto. Já consegui fazer o programa encontrar o texto procurado, mas preciso retornar os dados que estão após ele.

 

Exemplo do texto:

 

_IGALCUSTOMERCOD=5200

_IGALCUSTOMERNAME=M.E.M.OTICAS LTDA

_OWFRAMEDIAGONALE=56.03;56GTHK=3.5;3.45

LDDRSPH=1.17;0.96

LDDRCYL=0.01;0.01

LDDRAX=141.4;39

LDNRSPH=3.64;3.42

LDNRCYL=0.16;0.16

LDNRAX=98.9;81.1

LDADD=2.55;2.54

_OWBORDERNASAL=2.94;2.63

_OWBORDERTEMPORAL=2.48;2.98

_OWBORDERTOP=3.2;3.19

_OWBORDERBOTTOM=3.17;3.19

THNP=2.3;2.3

THNA=200;330

THKP=3.21;3.25

THKA=70;250

 

Este texto mostra valores para produção de uma lente oftalmica. Preciso colocar em Edits separados os valores apresentados após o sinal de igual sendo:

 

LDNRSPH=3.64;3.42

edtLadoDireito = 3.64

edtLadoEsquerdo = 3.62

 

Reparem que cada campo tem tamanhos diferentes , por isso estou tendo dificuldade em retornar tal informação.

 

Vale ressaltar que eu só tenho a string que contem o nome do campo (LDNRSPH=), eu preciso pegar toda a informação depois do campo. Este arquivo é uma resposta de um cálculo, então só tenho os nomes dos campos e preciso retornar para o meu form os resultados.

 

 

Agradeço a ajuda de todos

[ZueRa 0]

Olá amigo, boa noite.

Veja, já que todos os possíveis resultados estão após o "=" você pode fazer uma varredura nestes dados e copiar o que está depois do sinal de igual e, ir colocando-os em TEdits.

 

Abraço.

[Gustavo R Ferreira 0]

Olá amigo, boa noite.

Veja, já que todos os possíveis resultados estão após o "=" você pode fazer uma varredura nestes dados e copiar o que está depois do sinal de igual e, ir colocando-os em TEdits.

 

Abraço.

Fala ae Zuera,

 

Eu para exatamente isso que eu preciso de ajuda http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

- poderia me mandar algum código para tentar fazer esta "varredura" ?

 

Obrigado

[marcio.theis 3]

Uma das formas que pode fazer:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

	function RetornaValorDepoisIgual(str: string): string;
	var
		x: integer;
		ret: string;
		captura: boolean;
	begin
	ret:='';
	captura:=False;
	for x:=1 to Length(str) do
		begin
		if (not captura) then
			begin
			if (str[x] = '=') then
				captura:=True;
			end
		else
			ret:=ret + str[x];
		end;
	RetornaValorDepoisIgual:=ret;
	end;

begin
ShowMessage(RetornaValorDepoisIgual('TESTE=123;456'));
end;