Notepad-dan yazilari secmek

[rahim_azeri]

Yeniden merhaba arkadaslar..Kardasler notepad-da coklu yazilarim var,bu yazilarin icerisinde bana lazim olan yazilar parantez icerisinde,ben notepad-dan bu parantez icerisinde olan sozleri nasil secib excelde ve ya access tablosunda yaza bilirim.

[conari]

Parse diye aramalısınız.

[rahim_azeri]

Kardes bene lazim olan sozlerin hepsi farkli amma hepsi parantez icerisinde,delphi ile ve ya her hansi proqramla bu sozleri secmek mumkunmu?

[rahim_azeri]

Arkadaslar sunu bilen birisi yokmu? Delphi ile boyle bir sey yapmaq mumkunmu??? mesela notpadi ac basla okumaqa şu "(" simvola catanda basla kopyalamaqa ve ")" su simvolda kopyalamayi bitir ,kopyaladiqini past ele excele ve kaldiqin yerden okumaqa davam et.. eger bilen varsa lutfen yardim etsin...tesekkurler...!

[Battosai]

Üşenmedim yazdım. Bayadır delphi kodu yazmıyordum alıştırma mahiyetinde oldu

Kod: Tümünü seç

function parseText(const text:AnsiString):TStringList;
var
i,first,last:integer;
S:AnsiString;
List:TStringList;
Begin
List:=TStringList.Create;
 for I := 0 to length(text)  do
   Begin
     if(text[i]='(') then
       first:=i;
     if(text[i]=')') then
       Begin
        last:=i;
        S:=copy(text,first+1,last-first-1);
        list.Add(S);
        last:=0;
        first:=0;
       End;
   End;
Result:=List;
End;

Kullanım;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines:=parseText(Memo1.Text);
end;

[rahim_azeri]

Allah senden min razi olsun kardesh bu bana cooooook yardimci oldu....Tesekkurler....!