Hmm hocam regex ile olmazmı? Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

regex yapılabilir. fakat bu her web sitesi için yeniden regex demek olur. akşam java ve php deki class ları inceleyip delphide o işlemlere uygun birşey yazmayı deniyecem. inşallah güzel bir sınıf çıkarırım. Ne zaman birşey ğrenmek istesem, Birden Vaktim Kalmıyor?

Function ArayiAl : WideString; begin Delete(Text, 1, pos + Length -1); Result := Copy(Text, 1, Pos -1); end; Geçici Çzüm Ne zaman birşey ğrenmek istesem, Birden Vaktim Kalmıyor?

Bu fonksiyonları kullanabilirsin, function ExtractTextInsideGivenTagEx :string;var StartPos1, StartPos2, EndPos: integer; i: Integer;begin result :=''; StartPos1 := Pos ; EndPos := Pos ; StartPos2 :=0;for i := StartPos1 + length +1to EndPos doif Text ='>'thenbegin StartPos2 := i +1; break;end;if(StartPos2 >0)and(EndPos > StartPos2)then result := Copy(Text, StartPos2, EndPos - StartPos2);end; rnek kullanımExtractTextInsideGivenTagEx ;Sonuç Çıktısı: text I want to keep benim amacım gelişmiş bir komponent ti sorunumu çzmüştüm. benimkinden daha gelişmiş bir fonksiyon güzelmiş ama tam olarak istediğim değil neyse şu oyunu bitireyim bi class yazacam kesin bu iş için Ne zaman birşey ğrenmek istesem, Birden Vaktim Kalmıyor?

Merhaba Arkadaşlar, javada ve php de kullandığım bazı classlarda $renk = $rnk->('div ',0); gibi bir kodla bulduğu div elementi ve içinde id tagı varsa ve bu tag renklere eşitse o divin içeriğini $renk değişkenine aktarır. delphide bunu yapabilecek bir komponent var mı? hazır birşey olursa güzel olur olmazsa oturup yazmaktan başka çare yok ama uğraşmak istemiyorum bununla bilen varsa yardımlarınızı bekliyorum... Ne zaman birşey ğrenmek istesem, Birden Vaktim Kalmıyor?

Bu fonksiyonları kullanabilirsin, function ExtractTextInsideGivenTagEx :string;var StartPos1, StartPos2, EndPos: integer; i: Integer;begin result :=''; StartPos1 := Pos ; EndPos := Pos ; StartPos2 :=0;for i := StartPos1 + length +1to EndPos doif Text ='>'thenbegin StartPos2 := i +1; break;end;if(StartPos2 >0)and(EndPos > StartPos2)then result := Copy(Text, StartPos2, EndPos - StartPos2);end; rnek kullanımExtractTextInsideGivenTagEx ;Sonuç Çıktısı: text I want to keep kipnos tarafından 27/May/14 12:12 tarihinde düzenlenmiştir