StringReplace

[futbolcu]

Merhaba,

Kod: Tümünü seç

s := StringReplace(s,'ali','veli',[rfReplaceAll, rfIgnoreCase]);

şeklinde yazdığım zaman sözcükler içerisinde de bulunan 'ali' leri de "veli" lerle değiştiriyor örneğin"zerdali" sözcüğünü zerdveli olarak değiştiriyor. Oysa benim istediğim sadece ali, ALİ, Ali sözcüklerinin yerine "veli" getirmek istiyorum. Visual Basic'de bunu şöyle yapıyordum;

Kod: Tümünü seç

Tekst = Degistir("ali", "veli", Tekst)

Delphi'de bunu nasıl sağlarım

[husonet]

Boşluk kontrolü yapmayı denedinmi.

Kod: Tümünü seç

    s := StringReplace(s,' ali',' veli',[rfReplaceAll, rfIgnoreCase]);

bunun gibi.

Kolay Gelsin...

[futbolcu]

Onu denedim ama olmadı ( tırnak içerisine #32 de ekledim yine olmadı)

Kod: Tümünü seç

  s := StringReplace(s,' ali',' veli',[rfReplaceAll, rfIgnoreCase]);

bu kez ali satırın başındaysa veli olmuyor

[mrmarman]

Merhaba...

- rfReplaceAll ve rfIgnoreCase belirteçleri kullanırken dikkatli olursanız aslında sorun olmayan sorununuzu çözmüş olursunuz.

- rfReplaceAll flağını kullanarak forced (zorunlu) yapılması gereken demişsiniz. Halbu ki zorunluluk burada kelime içinde geçenlerin kapsanıp kapsanmaması tercihiniz olduğunu biliniz...

- Bu flağı kaldırırsanız sadece kelimelere bakılır...

// Edit //

Yukarda yazdığım ifade hatalıdır... Lütfen dikkate almayınız...
Saygılarımla @mrmcop

[futbolcu]

Muharrem Hocam merhaba,

- rfReplaceAll ve rfIgnoreCase belirteçleri kullanırken dikkatli olursanız aslında sorun olmayan sorununuzu çözmüş olursunuz.
- Bu flağı kaldırırsanız sadece kelimelere bakılır...

demişsiniz. Doğrusu çözemedim. Hatta şöyle bir kod denedim. Bu da aynı sonucu veriyor.

Kod: Tümünü seç

memo1.Text:=ansirEplacetext(memo1.Text,' Ali ','veli ');

[fduman]

Bunu StringReplace ile yapamazsın. Önce metini kelime kelime ayırmalısın. Bunu yapmazsan zerdali'deki ali de değişecektir. Sanki makalelerde metni kelime kelime ayırma gibi bir kod görmüştüm.

"Ali Zerdali ali ahmet aliye" gibi bir metin olsun.

Bir döngü içinde kelime kelime ayırınca, kelimeleri tek tek elde edebileceksin. Bu sayede ali'ye eşit olanları değiştirebileceksin.

[mrmarman]

Evet yanlış ifade etmişim.. @coderlord haklı kelimelere bölmek gerekiyor...

[sadettinpolat]

Kod: Tümünü seç

s := StringReplace(s,'$ali$','$veli$',[rfReplaceAll]);

şeklinde yapılırsa cümle içerisinde kelime olarak geçen bütün aliler başarılı bir şekilde veli olur. manuel olarak bir de cümlenin başında ve sonunda ali geçiyor mu diye kontrol ederseniz istediğiniz olmuş olur. daha sonradan işin içine noktalama işaretleri girerse onlar için de biraz uğraşmak gerekir.

$ = boşluk

[futbolcu]

teşekkürler, dediğiniz yöntemle hallettim. Bu arada

Kod: Tümünü seç

memo1.Text:=ansirEplacetext(memo1.Text,' Ali ','veli ');

daha yararlı bir fonksiyon. en azından yanlışlıkla küçük yazılan ali yi de veli olarak değiştiriyor.

[Commandx]

Arkadaşlar true değer nasıl döndürebiliriz?
Burda True değer döndürmek ihtiyacı hasıl olmuştur, aşağıda yarım kalmış fonksiyon üzerinden replace işleminin yapıldığını yapıldıysa true yapılmadıysa false değer döndürmesinide istiyorum

Kod: Tümünü seç

function string_degis( old: string; new: string ): boolean ; 
begin
result:= StringReplace(memo1.Text,old,new,[rfReplaceAll]);
end;

[ikra]

Pos ile text icinde ali var mi diye kontrol et. Varsa deger true döner, yoksa false.

[ikra]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

  function Replace(AText, BText, CText: String): Boolean;
  var
    ReplacedText: String;
  begin
    ReplacedText := StringReplace(AText, BText, CText, [rfReplaceAll]);

    Result := not SameText(AText, ReplacedText);
  end;

begin
  if Replace('ALI TOPU TUT', 'ALI', 'VELI') then
    ShowMessage('Degisti')
  else
    ShowMessage('Degisen Yok');
end;

[aligel54]

Onu denedim ama olmadı ( tırnak içerisine #32 de ekledim yine olmadı)

Kod: Tümünü seç

  s := StringReplace(s,' ali',' veli',[rfReplaceAll, rfIgnoreCase]);

bu kez ali satırın başındaysa veli olmuyor

Bu sorun için de şu şekilde bir çözüme gidebilirsin.
Stringin başına ve sonuna birer boşluk ekle.
Sonra da tüm ' ali ' leri ' veli ' lerle değiştir.
Son olarak da eklediğin baş ve sondaki boşluğu sil.

[Commandx]

Kod: Tümünü seç

function Replace(AText, BText, CText: String): Boolean;
  var
    ReplacedText: String;
  begin
    ReplacedText := StringReplace(AText, BText, CText, [rfReplaceAll, rfIgnoreCase]);
    Result := not SameText(AText, ReplacedText);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aranan,degisen:STRING;
begin
  aranan:=EDIT1.Text;
   if Replace(EDIT1.TEXT , '.', ',')<>true then BEGIN
//    ShowMessage('Degisen Yok');
end;

if  Replace(aranan , '.', ',')=true then BEGIN
   degisen:=StringReplace(aranan, '.', ',',[rfReplaceAll, rfIgnoreCase]);
//showMessage('Degisti');
   EDIT1.Text:=degisen;
   MEMO1.Lines.Add(degisen);  
 End;

İstediğim buydu, kendime göre biraz düzenledim ve result deyiminin fonksiyon içindeki boolean olarak döndüğünü anladım . Teşekkürler