Kelime Değiştirme

[quiet1day]

Tüm yorumlar için teşekkür ediyorum bir konu içerisinde birçok yararlı bilgi oldu. Herkeşe ben rep : )

[baqz]

(07-02-2018, Saat: 01:34)hyperxman Adlı Kullanıcıdan Alıntı: Allah allah yaw, az önce onu kodluyordum. Kalp kalbe karşı imiş

var
 UpdatelenmisHali: String;
begin
 UpdatelenmisHali := StringReplace(Memo1.Lines.Text, 'Merhaba', 'Selam', [rfReplaceAll, rfIgnoreCase]);
 ShowMessage(UpdatelenmisHali);
end;

 Kod için teşekkürler, yazmış olduğunuz kodu fonksiyona çevirecek olursam;

Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

[SimaWB]

Yukarıda Cyber'in yazdığı fonksiyonlara bakarsanız AnsiReplaceText tam da sizin KelimeDegistir'in yaptığını yapıyor. Yeniden fonksiyon tanımlamak gereksiz.

[quiet1day]

Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor

[Halil Han BADEM]

(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs  değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor

Mesela fonksiyon hazırlayan olmuş(@baqz) yapman gereken şu;

Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');

KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');

Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.


Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.

[quiet1day]

(18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı:

(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs  değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor

Mesela fonksiyon hazırlayan olmuş(@baqz) yapman gereken şu;

Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');

KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');

Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.


Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.

Çalışırlığını denediniz mi hocam ben yapamadım da ? Function'u tanımlayıp

KelimeDegistir(memo1.Text, 'Herkez', 'Herkes');

şeklinde denedim

[Halil Han BADEM]

(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı:

(18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı: Mesela fonksiyon hazırlayan olmuş(@baqz) yapman gereken şu;

Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');

KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');

Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.


Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.

Çalışırlığını denediniz mi hocam ben yapamadım da ? Function'u tanımlayıp

KelimeDegistir(memo1.Text, 'Herkez', 'Herkes');

şeklinde denedim

 Memo1.Lines.Text diye dener misin bir olacak mı diye?

[quiet1day]

(19-05-2018, Saat: 17:34)hyperxman Adlı Kullanıcıdan Alıntı:

(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı: Çalışırlığını denediniz mi hocam ben yapamadım da ? Function'u tanımlayıp

KelimeDegistir(memo1.Text, 'Herkez', 'Herkes');

şeklinde denedim

 Memo1.Lines.Text diye dener misin bir olacak mı diye?

Olumsuz

[Halil Han BADEM]

Merhaba,


Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...





Buyurun kodları da atayım;

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
 TForm1 = class(TForm)
   LabeledEdit1: TLabeledEdit;
   LabeledEdit2: TLabeledEdit;
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Guncellendi: String;
begin
Guncellendi := KelimeDegistir(Memo1.Lines.Text, LabeledEdit1.Text, LabeledEdit2.Text);
Memo1.Lines.Text := Guncellendi;
end;

end.

[quiet1day]

(19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: Merhaba,


Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...





Buyurun kodları da atayım;

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
 TForm1 = class(TForm)
   LabeledEdit1: TLabeledEdit;
   LabeledEdit2: TLabeledEdit;
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Guncellendi: String;
begin
Guncellendi := KelimeDegistir(Memo1.Lines.Text, LabeledEdit1.Text, LabeledEdit2.Text);
Memo1.Lines.Text := Guncellendi;
end;

end.

Hocam çok teşekkür ederim emeğinize sağlık