Expressões Regulares

[orc 0]

Bom Dia, alguem tem alguma documentação ou link ou algo que fale sobre expressões regulares ???

[orc 0]

alguem sabe usar essa biblioteca TRegExpr , para expressões regulares ???outra coisa : alguem sabe como posso fazer uma busca dentro de um arquivo de texto usando expressões regulares e ao achar o item desejado ele copiar o bloco de texto onde foi encontrado a pesquisa tendo por parametro a quebra de linha ?????

[orc 0]

ninguem conhece expressões Regulares ????

[Rodrigo Miss 1]

Calma rapaw! :rolleyes:

Tenho q confessar kra... Ja trabalhei com ExpReg sim, mais em JS ... Com Delphi desconheço ....

Mesmo assim, dei uma olhada rapidinha no pai Google, e encontrei isso que talvez possa lhe ajudar ....

 

Mais oque você precisa fazer exatamente? tem q ser com Expressções Regulares mesmo ?

[orc 0]

Calma rapaw! :rolleyes:

Tenho q confessar kra... Ja trabalhei com ExpReg sim, mais em JS ... Com Delphi desconheço ....

Mesmo assim, dei uma olhada rapidinha no pai Google, e encontrei isso que talvez possa lhe ajudar ....

 

Mais oque você precisa fazer exatamente? tem q ser com Expressções Regulares mesmo ?

se você possuir uma solução que não precise utilizar expressoes regulares seria de boa ajuda tb

 

bom o que tenho que fazer é assim :

 

1 - Abrir um arquivo de texto todo desgovernado

2 - fazer uma busca nesse arquivo de uma palavra ou frase inserida em um edit

3 - ao achar esta palavra no texto selecionar esse bloco de texto ( tendo como parametro na selecao do bloco de texto para cima uma quebra de linha e para baixo tb uma quebra de linha )

4 - ao ter este texto ja selecionado fazer uma pergunta se desejo mesmo pegar este texto se desejo ele cria um arquivo de texto com este bloco la dentro do contrário ele continua procurando por outra palavra

[Rodrigo Miss 1]

e aew kra, beleza ?

Fiko meio confuso, pois fiz meio correndo aki :unsure:

Mah testei aki, e funcionou beleza. Agora teste ai, e ajuste conforme sua nescessidade ...

 

procedure TForm1.Button1Click(Sender: TObject);var  Arq: TextFile;  Linha, Str: String;  pIni, pFim, x: Integer;begin  Str:= '';  pIni:= 1; pFim:= 1;  AssignFile(Arq, 'C:\teste.txt');  Reset(Arq);  while not EOF(Arq) do  begin	Readln(Arq, Linha);	pIni:= Pos(Edit1.Text, Linha);  //Pega Pos Inicial da string	if (pIni > 0) then  //Ajusta a posicao ini quebrando no espaço ' '	begin	  for x:= pIni -1 downto 1 do	  begin		if (pIni = 1) or (Linha[x] = ' ') then		begin		  Break;		end;		Dec(pIni);	  end;	  for x:= pIni to Length(Linha) do //Pega a posicao final;..	  begin		if (Linha[x] = ' ') then		begin		  Break;		end;		Inc(pFim);	  end;	  Str:= Copy(Linha, pIni, pFim);	end;  end;  ShowMessage(Str);end;

valeu! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif