Arquivo de texto ( Busca )

[orc 0]

Boa tarde , gostaria de saber se tem como fazer assim :

 

pegar um arquivo de texto fazer uma busca nele por exemplo Clarice ai a partir deste nome eu gostaria de selecionar o texto que está acima até o ENTER e abaixo até o Enter TB , ou seja selecionaria e copiaria o texto cuja a Clarice estiver dentro que come em um Enter e termine em um Enter tem como fazer isso ???

 

 

395-2007-068-15-00-8 RT Clarice da Silva Rodrigues X Gs Plásticos

Ltda. + 1 Tomar ciência da sentença, conforme resumo do dispositivo,

abaixo transcrito: Julgados PROCEDENTES EM PARTE os pedidos formulados

por CLARICE DA SILVA RODRIGUES, em face da 1ª reclamada G.S.

PLÁSTICOS LTDA., nos termos da fundamentação. Valor da condenação,

provisorimente arbitrado: R$ 15.000,00. Custas pela 1ª reclamada no

importe de R$ 300,00. Obs.: Texto completo da sentença disponível no site

do Tribunal www.trt15.gov.br , no campo de acompanhamento processual

nº do processo, ano, nº da origem = 068 .

 

521-2007-068-15-00-4 RT Edite Maria de Castro X Gs Plásticos Ltda. +

1 Tomar ciência da sentença, conforme resumo do dispositivo, abaixo

transcrito: Julgados PROCEDENTES EM PARTE os pedidos formulados por

EDITE MARIA DE CASTRO, em face da 1ª reclamada GS PLÁSTICOS LTDA. ,

nos termos da fundamentação. Valor da condenação, provisorimente arbitrado:

R$ 20.000,00. Custas pela 1ª reclamada no importe de R$ 400,00.

Obs.: Texto completo da sentença disponível no site do Tribunal

www.trt15.gov.br , no campo de acompanhamento processual nº do processo,

ano, nº da origem = 068 .

 

528-2007-068-15-00-6 RT Marcia Aparecida Belamoglie X Gs Plásticos

Ltda. + 1 Tomar ciência da sentença, conforme resumo do dispositivo,

abaixo transcrito: Julgados PROCEDENTES EM PARTE os pedidos formulados

por MARCIA APARECIDA BELAMOGLIE, em face da 1ª reclamada GS

PLÁSTICOS LTDA. , nos termos da fundamentação. Valor da condenação,

provisorimente arbitrado: R$ 20.000,00. Custas pela 1ª reclamada no

importe de R$ 400,00. Obs.: Texto completo da sentença disponível no site

do Tribunal www.trt15.gov.br , no campo de acompanhamento processual

nº do processo, ano, nº da origem = 068 .

[marcio.theis 3]

O que pode fazer é usando um RichEdit que fica mais simples, dando um FindText() no texto desejado, ao encontrar a posição que esta o texto, começa a percorrer o texto para trás usando o for ... downto ... do e depois vai para frente usando for ... to ... do, encontrando as posições de início e fim do texto conforme o enter que deseja...

[orc 0]

marcio se eu não tenho aonde começa ou termina o texto como faço pra utilizar o for , fiquei confuzo agora ???

[marcio.theis 3]

Você vai ter posição de início pelo texto que esta procurando, pois primeiro localiza ele no texto pelo FindText, ele vai retornar a posição que o texto inicia, a partir dele você consegue voltar ou avançar na busca pelo enter...

[orc 0]

como faço pra pegar a posição inicial e final usando find text do richedit ??

[marcio.theis 3]

Neste tópico mostra como pegar, inclusive tem alguns buscas sobre um determinado texto...

[orc 0]

Neste tópico mostra como pegar, inclusive tem alguns buscas sobre um determinado texto...

 

????

 

fala sobre host ???

[marcio.theis 3]

Neste tópico mostra como pegar, inclusive tem alguns buscas sobre um determinado texto...

 

????

 

fala sobre host ???

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_tongue.gif

Tente neste tópico...

[bdexterholland 0]

o stringlist não tem o método findtext?

se tiver, você precisaria descobrir em qual linha está...

 

 

...com o richedit, dá pra fazer utilizando o findtext, depois caretpos.x e depois richedit.lines.strings[caretpos.x]...

 

 

você pegar justamente a linha com a palavra...

 

faz uns testes aí, agora eu não posso testar agora porque o meu delphi tá trabalhando em uma outra busca [demoraaada]

[orc 0]

marcio tava tentando utilizar aquele esquema do topico mais ele só funciona com strings diferentes pq se manda ver a posição ini9cial da string inicial e depois a posição final da mesma ele vai procurar outra ai da errado

[marcio.theis 3]

No caso somente sugeri como base para você desenvolver especifico como quer agora...

Fiz um aqui, pode ser otimizado e melhorado, mas pode usar como base... segue:

 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
	x, vPosIni, vPosFim: integer;
	vProcesso: string;

	function Pedaco(str: string; posIni, posfim: integer):string;
	var
		s: string;
		x: integer;
	begin
	s:='';
	for x:=posIni to posFim do
		begin
		if length(str) >= x then
			s:=s + str[x];
		end;
	Pedaco:=Trim(s);
	end;
begin
//Procura pela palavra desejada
vposIni:=RichEdit1.FindText('Clarice',0,length(RichEdit1.Text),[]);
if vposIni > -1 then
	begin
	//Procura pelo início e fim da linha da palavra
	for x:=vposIni downto 1 do
		begin
		if (RichEdit1.Text[x] = #13) then
			Break;
		end;
	vposIni:=x;
	for x:=vposIni + 1 to length(RichEdit1.Text) - 1 do
		begin
		if (RichEdit1.Text[x] = #13) then
			Break;
		end;
	vProcesso:=Pedaco(RichEdit1.Text,vposIni,x);
	if vProcesso <> '' then
		begin
		//Procura pela linha inteira
		vposIni:=RichEdit1.Lines.IndexOf(vProcesso);
		if vposIni > -1 then
			begin
			//Procura o enter antes da linha
			for x:=vPosIni downto 0 do
				begin
				if RichEdit1.Lines.Strings[x] = '' then
					Break;
				end;
			vPosIni:=x + 1;
			//Procura o enter final da linha
			for x:=vPosIni to RichEdit1.Lines.Count - 1 do
				begin
				if (RichEdit1.Lines.Strings[x] = '') then
					Break;
				end;
			vPosFim:=x;
			vProcesso:='';
			for x:=vPosIni to vPosFim do
				vProcesso:=vProcesso + RichEdit1.Lines.Strings[x];
			if vProcesso <> '' then
				ShowMessage(vProcesso);
			end;
		end;
	end;
end;