Doppelte Einträge entfernen?

[smart]

Wie kann man aus einem TMemo doppelte Einträge löschen ?

[turboPASCAL]

Wie liegen denn diese doppelten Einträge vor ?

Hallo bla blabla Hallo

oder:

Hallo
Bla Babla
Hallo
blablabla

[yankee]

Zitat:

Zitat von smart

Wie kann man aus einem TMemo doppelte Einträge ?

Da fehlt das löschen in deinem Satz.
Wie meinst du das? In einer Memo steht üblichwerweise nur Text und meinst du da doppelte Wörter? Naja, wahrscheinlich icht. Ich gehe mal davon aus, dass du eine Memo dafür "mißbrauchst" wofür es eigentlich TListBox gibt. Du hast nämlich in jeder Zeile ein WOrt und du willst die doppelten finden.
Dann stellt sich noch die Frage, ob die Liste sortiert ist. Das würde die Sache nämlcih vereinfachen. Anosnsten einfach alles mit allem vergleichen:

Delphi-Quellcode:

for i :=Memo.Lines.Count -1 downto 1 do for i2 :=Memo.Lines.Count -1 downto 1 do
begin
    if (i<>i2) and (Memo.Lines.Strings[i] =Memo.Lines.Strings[i2]) then Memo.Lines.Delete(i2);
end;

Also so ungefähr. Musst du mal probieren... Oder noch ein paar Infos posten. Ich fürchte mein Code ist nicht so ganz richtig, aber der Grundgedanke hilft dir villeicht...

[smart]

Zitat:

Zitat von turboPASCAL

Wie liegen denn diese doppelten Einträge vor ?

Hallo bla blabla Hallo

oder:

Hallo
Bla Babla
Hallo
blablabla

So

Hallo Hallo Blabla..

Und sollte das rauskommen:

Hallo Blabla..

[smart]

Ich habe folgendes mal versucht:

Delphi-Quellcode:

sl := TStringList.Create;
       try
          For Z := 0 To Memo.Lines.Count -1 do
              begin
                   with sl do
                       begin
                             Sorted := True;
                             Duplicates := dupIgnore;
                             Add(Memo.Lines[Z]);
                        end;
                  Memo.Lines.Assign(sl);
               end;
           finally
           sl.Free;
          end;

Klappt aber nicht. Wohl ein Denkfehler!

[malo]

Also erstmal solltest du den String aufteilen, bei jedem Leerzeichen einen neuen String anfangen. Dazu hilft dir bestimmt die TStringList und die Properties Delimiter und[/oh]DelimitedText[/oh]. Du solltest auch über die Suche fündig werden...

Wenn du dann die "neue" Stringliste hast, kannst du anfangen zu suchen. Du könntest dir nun z.B. den ersten Eintrag nehmen und dann per Schleife die StringListe durchgehen. Wenn ein doppelter Eintrag gefunden wurde --> Löschen. Sollte mit 2 For-Schleifen leicht zu machen sein ;)

Du brauchst aber keine Doppelposts zu machen. Dieses Board unterstützt eine sogenannte Edit-Funktion :roll: (@Mods: Evtl. Beiträge zusammenfassen...)

//edit: Auf deinen Code kann ich jetzt nicht näher eingehen, da müsste ich mich erstmal näher mit den Properties Duplicate und Sorted auseinandersetzen :duck:

[smart]

Zitat:

Zitat von yankee

Zitat:

Zitat von smart

Wie kann man aus einem TMemo doppelte Einträge ?

Da fehlt das löschen in deinem Satz.
Wie meinst du das? In einer Memo steht üblichwerweise nur Text und meinst du da doppelte Wörter? Naja, wahrscheinlich icht. Ich gehe mal davon aus, dass du eine Memo dafür "mißbrauchst" wofür es eigentlich TListBox gibt. Du hast nämlich in jeder Zeile ein WOrt und du willst die doppelten finden.
Dann stellt sich noch die Frage, ob die Liste sortiert ist. Das würde die Sache nämlcih vereinfachen. Anosnsten einfach alles mit allem vergleichen:

Delphi-Quellcode:

for i :=Memo.Lines.Count -1 downto 1 do for i2 :=Memo.Lines.Count -1 downto 1 do
begin
    if (i<>i2) and (Memo.Lines.Strings[i] =Memo.Lines.Strings[i2]) then Memo.Lines.Delete(i2);
end;

Also so ungefähr. Musst du mal probieren... Oder noch ein paar Infos posten. Ich fürchte mein Code ist nicht so ganz richtig, aber der Grundgedanke hilft dir villeicht...

Es handel sich dabei um ein Editor. Klappt auch nicht. Doppelte bleiben.

[yankee]

Zitat:

Zitat von smart

Hallo Hallo Blabla..

Und sollte das rauskommen:

Hallo Blabla..

Also schon sortiert und hintereinander.
Das einfachste ist wohl das:
besorg dir Explode und mach dann folgendes (ungetetste):

Delphi-Quellcode:

procedure antidoppelte(theMemo: TMemo);
var temp: TStringDynArray;
    i2: integer;
begin
    for i:=0 to theMemo.Lines.Count -1 do
    begin
        temp :=Explode(' ', theMemo.Lines.Strings[i]);
        theMemo.Lines.Strings[i] :='';
        for i2:=0 to length(temp) -1 do if (i2 =length(temp) -1) or (temp[i2] <> temp[i2+1]) then theMemo.Lines.Strings[i] :=theMemo.Lines.Strings[i]+ ' ' +temp[i];
    end;
end;

Also so mal vom Grundgedanke her. Könnte sogar sien, dass diese procedure sofort läuft *gg*

[yankee]

sry doppelpost, da stand immer nur Sending request to... udn dann dachte ich, der htte sich aufgehangen, war nicht der Fall.

EDIT:
@smart: Bei deiner Methode stehen dann nachher die wörter in einer anderen Rheinfolge da, weil du sortierst!

[mschaefer]

Moin, moin, Heike,

also ich würde vom Prinzip alle Wörter des Memos in eine sowie ihre Startpostion Stringliste eintragn und dann hier nach doppelten suchen. Dafür kannst Du auf MEmo.Lines.Text zugreifen, dann hast Du keine Zeilenprobleme, da Deine Wiederholungen ehedem nicht Zeilengebunden sind.

Na so´n Teilansatz kommt hier ma´n an:

Delphi-Quellcode:

      function PosCharEnh
      (   const  Ch   : Char;
          const  S    : string;
                Start : Integer = 1)
                      : Integer;
      var
              I, N: Integer;
      begin
              Result := 0;
              N := Length (S);
              if Start < 1 then
                      Start := 1;
              if (N = 0) or (Start > N) then
                      Exit;

              for I := Start to N do
              begin
                      if S [I] = Ch then
                      begin
                              Result := I;
                              Exit;
                      end;
              end;
      end;


  procedure BuildList
  var MyList : TStringList;
  vat MyPosFront  : integer;
  vat MyPosEnd    : integer;
  begin
      MyPosFront := 1
      MyPosEnd   := 2;
      while PosCharEnh( ' ', MemoLines.Text, MyPosFront ) > 0 do
      begin
            // Wortende ermitteln
            MyPosEnd := PosCharEnh( ' ', MemoLines.Text, MyPosEnd );
            // Wort in Liste
           MyList.Add(  copy (MyPosFront, MyPosEnd-MyPosFront, Inttostr(MyPosFront) + '|' Inttostr(MyPosEnd) + '|'MemoLines.Text) );           
             
           // Suchpostionen neu setzen
           MyPosFront := MyPosEnd;
           MyPosEnd   := MyPosFront+1;
      end;
  end;

Soweit zum Listenaufbau, irgendwie lauert da wieder Arbeit für mich...

Grüße // Martin

[dahead]

Zitat:

Zitat von smart

Ich habe folgendes mal versucht:

Delphi-Quellcode:

sl := TStringList.Create;
       try
          For Z := 0 To Memo.Lines.Count -1 do
              begin
                   with sl do
                       begin
                             Sorted := True; //hier
                             Duplicates := dupIgnore; //hier
                             Add(Memo.Lines[Z]);
                        end;
                  Memo.Lines.Assign(sl);
               end;
           finally
           sl.Free;
          end;

Klappt aber nicht. Wohl ein Denkfehler!

du solltest die zuweisung von eigenschaften auch niemals in einer schleife aufrufen.
am besten weist du "Sorted := True; Duplicates := dupIgnore" nach dem Create zu.
so als allgemeiner tipp.

[smart]

Habt schon mal vielen Dank, für die zahlreichen Antworten und Anregungen. Bin aber noch am testen! Ich hatte schonmal - vor einiger Zeit - das gleiche Probl. und auch ne ganz einfache Lösung. Leider finde ich die nicht mehr.

Heike.

[shmia]

Zitat:

Zitat von smart

Hallo Hallo Blabla..
Und sollte das rauskommen:
Hallo Blabla..

Also ist das Problem doch reduziert auf
"doppelte Wörter getrennt durch Whitespaces aus einem STRING entfernen."
Also liest man ein Wort nach dem anderen, und bucht es in eine Stringliste ein.
Sollte ein frisch gelesenes Wort nicht in der Stringliste vorhanden sein,
dann wird es in den Ausgabestring geschrieben.
Mit diesem Kochrezept dürfte es dann kein Problem sein, dies in Delphi Code umzusetzen.

[smart]

Zitat:

Zitat von shmia

Zitat:

Zitat von smart

Hallo Hallo Blabla..
Und sollte das rauskommen:
Hallo Blabla..

Also ist das Problem doch reduziert auf
"doppelte Wörter getrennt durch Whitespaces aus einem STRING entfernen."
Also liest man ein Wort nach dem anderen, und bucht es in eine Stringliste ein.
Sollte ein frisch gelesenes Wort nicht in der Stringliste vorhanden sein,
dann wird es in den Ausgabestring geschrieben.
Mit diesem Kochrezept dürfte es dann kein Problem sein, dies in Delphi Code umzusetzen.

Das Problem ist nur, wie willst Du den Text Wort für Wort einlesen? Die Wörter sind ja nicht einzeln abgespeichert!

[Nils_13]

An deiner Stelle würde ich alle verschiedenen Wörter in eine ListBox hinzufügen, die im TMemo stehen (es muss die richtige Reihenfolge sein, sonst läufts nicht).
Dann überprüfst du ob in der ListBox mehrere vesrchiedene Einträge sind und wie viele (in Zahlen, es uss ja immer einer übrig bleiben, oder ?). Letztendlich musst du noch die ganzen Einträge im Memo hintereinander schreiben.

[smart]

Gibt es in Delphi eine Routine oder Befehl, wo man sagen kann, lösche alle Zeichen vom Anfang der Zeile bis zum nächsten Leerzeichen in dieser Zeile? Denn im Prinzip, sind die Doppelten Wörter immer am Anfang.

„Hallo Hallo Herr Mustermann“

[shmia]

Zitat:

Zitat von smart

Gibt es in Delphi eine Routine oder Befehl, wo man sagen kann, lösche alle Zeichen vom Anfang der Zeile bis zum nächsten Leerzeichen in dieser Zeile? Denn im Prinzip, sind die Doppelten Wörter immer am Anfang.

„Hallo Hallo Herr Mustermann“

Ja, geklaut aus der JCL:

Delphi-Quellcode:

function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

[100nF]

hi,

hab da auch mal was gecodet...
ist aber noch nicht fertig aber hab jetzt keine zeit mehr, ich denke, das kannst du auch selber noch fertig schreiben

Delphi-Quellcode:

function Split(const fText: String; const fSep: Char; fTrim: Boolean=false; fQuotes: Boolean=false):TStringList;
var vI: Integer;
    vBuffer: String; 
    vOn: Boolean; 
begin
  Result:=TStringList.Create; 
  vBuffer:=''; 
  vOn:=true;
  for vI:=1 to Length(fText) do 
  begin 
    if (fQuotes and(fText[vI]=fSep)and vOn)or(Not(fQuotes) and (fText[vI]=fSep)) then
    begin 
      if fTrim then vBuffer:=Trim(vBuffer); 
      if vBuffer='' then vBuffer:=fSep;
      if vBuffer[1]=fSep then 
        vBuffer:=Copy(vBuffer,2,Length(vBuffer)); 
      Result.Add(vBuffer);
      vBuffer:='';
    end;
    if fQuotes then
    begin
      if fText[vI]='"' then
      begin
        vOn:=Not(vOn);
        Continue;
      end;
      if (fText[vI]<>fSep)or((fText[vI]=fSep)and(vOn=false)) then
        vBuffer:=vBuffer+fText[vI];
    end else
      if fText[vI]<>fSep then
        vBuffer:=vBuffer+fText[vI];
  end;
  if vBuffer<>'' then
  begin
    if fTrim then vBuffer:=Trim(vBuffer);
    Result.Add(vBuffer);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var s1: tstringlist;
    i, i2: integer;
    s: string;
begin
  s1 := tstringlist.Create;
  for i:=0 to memo1.Lines.Count-1 do
  begin
    s1.Clear;
    s := memo1.Lines.Strings[i];
    s1 := split(s, ' ', true);
    s := s1.Strings[0];       // nicht sicher, falls s1.count = 0, musst du ändern
    for i2:=1 to s1.Count-1 do
      if pos(s1.Strings[i2], s) = 0 then  // das darf man nicht mit pos() lösen, den fehler bemerkst du sicher selbst.
        s := s+' '+s1.Strings[i2];
    memo1.Lines.strings[i] := s;
  end;
end;

[smart]

Vielen Dank an Euch alle! Damit weiter gekommen.