benzer, aynı kelimeler

[sr1111]

merhaba
yazi dosyamda benzer ayni kelimeler var bunlarin sadece birisnin kalmasini istiyorum digerlerin silinmesini. nasil yapabilirim. ms wordde de olsa çözüm olabilir.
mesela elma armut gibi gecen 20 tane kelime geciyor dosya icinde sadece bir tane kalmasini istiyorum. digerlerin silinmesini.

[sabanakman]

Eğer tabloda bulunan kayıtlardan sileceksen Bknz..:viewtopic.php?f=27&t=23641

[sr1111]

tesekkurler ben memo1 alaninda bulunanlari silmek istiyorum.

[SHURZAN]

Ben bunun benzeri çalışma yapmıştım.
Şu mantıkla TStringList'e strinleri tek tek alıyorum ve alırken "Duplicates" özelliğini aktif ediyorum
Şöyleki ;
BenimStringlistem->Sorted = true;
BenimStringlistem->Duplicates = dupAccept;

sonra for döngüsüyle tüm alacaklarımı satır satır alıyorum. Eğer kelimeyse kelimleri tek tek alıyorum StringList'in he satırına bir kelime gelicek şekilde.
böylelikle aynı olanlar alt alta gelmiş olacak

Sonar bu listede birden fazla aynı olanları satır satır karşılaştırarak delete edebilirsin.

böylece elimizde her kelime/String den sadece bir tane kalıyor artık bundan sonrası sana kalmış bunları yeniden yan yanamı yazarsın yoksa liste olarakmı Yada BenimStringlistem->SaveToFile("Liste.txt"); şeklinde mi yazarsın bu sana kalmış.

Tabi daha faklı önerilerde olacaktır benim ilk aklıma gelen böyle bir algoritma.

Not: Yukarıdaki algoritmayı kodlardım ama ancak c++ ile bu da kafanı karıştırabilirdi.

Umarım yardımcı olabilmişimdir.

[true_false]

daha basit olarak textin içinde devamlı tekrar eden kelimeyi bul ve ondan sonra gelenleri sil
örnek:
memomuzun içine

mehmet ali ali zeytin börek çörek
kremalı ali ali çörek börek ali

yazdığımızı varsayalım

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
VAR
textim,aratext,ara2text:string;
sontext:string;
ilkyer:integer;
bul:string;
begin
bul := 'ali';
textim := Memo1.Text;
  ilkyer := pos(bul,textim)+ length(bul);
  aratext:= copy(textim,1,ilkyer);
  ara2text := copy(textim,length(aratext),length(textim));
  while pos(bul,ara2text)> 0 do
     delete(ara2text, pos(bul,ara2text) , length(bul) );
   sontext := aratext + ara2text;
   Memo1.Text := sontext;
end;

ben trimlemedim trimleyip sıfır kayıpla halledersin
kolay gelsin