2 kelime arasını alıp gerisi silme

[sako]

Edite girilmiş beir metinde 2 kelime arasını silmek istiyorum. Daha önceki konularda bulamadım.Örnek aşağıdaki gibi:

<burası silinecek> burası kalacak <burası silinecek>

[SimaWB]

sorunuzu biraz daha açar mısınız lütfen? "2 kelime arasını silmek istiyorum" demişsiniz ama verdiğiniz örnekte iki kelime arası "silinmeyecek" deniliyor. Örneğin "kelime1 kelime2 kelime3 kelime4 kelime5 kelime6" şeklinde bir cümle girilmişse nasıl davranılacak?

[sako]

Hocam özür dilerim yanlış yazmışım. Ortadaki kısım kalacak baş taraflardaki belirttiğim kelimeler silinecek.

[SimaWB]

Sadece belirli kelimeler silinecekse StringReplaceişinizi görebilir. StringReplace'de yeni değer olarak boşluk atarsanız olur gibi.

Kod: Tümünü seç

Edit1.Text := StringReplace(Edit1.Text, 'Aranacak', '',  [rfReplaceAll])

Ama ben hala verilen bilginin yetersiz olduğu kanısındayım

[akdatilla]

merhaba
size birkaç komut açıklayayım:
pos: bir string içerisinde bir kelimeyi arar ve bulunursa pozisyonunu verir.
delete: bir stringin istenilen pozisyondan itibaren istenilen sayıda karakteri silmek için kullanılır.
uppercase yada ucase tam hatırlamıyorum sonuçta bir stringi büyük harfe çevirir. Bunu küçük büyük harf ayrımından kurtarmak için kullanabilirsiniz.
birde buna benzer komutları ansi ile başlayanları var (ansipos gibi) onları da bir araştırın (gerekirse).

sanırım bu komutlar işinizi görebilir.
kolay gelsin.

[sako]

Sadece belirli kelimeler silinecekse StringReplaceişinizi görebilir. StringReplace'de yeni değer olarak boşluk atarsanız olur gibi.

Kod: Tümünü seç

Edit1.Text := StringReplace(Edit1.Text, 'Aranacak', '',  [rfReplaceAll])

Ama ben hala verilen bilginin yetersiz olduğu kanısındayım

Şöyle bir örnek veriyim o zaman.

<title> selam ben sako </title>

<title> ve</title> silinecek aradaki metin kalacak...

[doktoraltun]

Kod: Tümünü seç

Edit1.Text := StringReplace(Edit1.Text, '<title>', '*',  [rfReplaceAll]);
Edit1.Text := StringReplace(Edit1.Text, '</title>', '¿',  [rfReplaceAll]);
edit2.Text:=copy(edit1.Text,pos('*',edit1.text)+1,pos('¿',edit1.text)-2);

[SimaWB]

Sadece belirli kelimeler silinecekse StringReplaceişinizi görebilir. StringReplace'de yeni değer olarak boşluk atarsanız olur gibi.

Kod: Tümünü seç

Edit1.Text := StringReplace(Edit1.Text, 'Aranacak', '',  [rfReplaceAll])

Ama ben hala verilen bilginin yetersiz olduğu kanısındayım

Şöyle bir örnek veriyim o zaman.

<title> selam ben sako </title>

<title> ve</title> silinecek aradaki metin kalacak...

StringReplace olur bence
Delphi 2009 ve sonrası için TStringBuilder'a gözatın isterseniz.