Wörter in RichEdit

[Daniel B]

Moin[Tm],

wie kann ich rausfinden, wieviele Wörter in einem RE drin sind?
Danke.

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Daniel,

klingt jetzt vielleicht ein bisschen blöd, aber:

Zählen ;-)

Wenn Du diese Funktion etwas abwandelst sollte es kein Problem darstellen.
Ich hoffe mal, dass alles selbssprechend ist.

Delphi-Quellcode:

type
  TcsValidCharacters = set of char;

procedure GetWordList(const AsFilePath : string;const AslWordList : TStringList;const AfAddToList : Boolean = false;const AscValidChar : TcsValidCharacters = ['a'..'z','A'..'Z']);

var
  fsFile : TFileStream;
  iPos     : integer;
  iCounter : integer;
  sBuffer  : string;
  iLen     : integer;

begin
  fsFile := TFileStream.Create(AsFilePath,fmOpenRead);
  try
    sBuffer := StringOfChar(#00,fsFile.Size);
    fsFile.Read(sBuffer[1],fsFile.Size);
    iLen     := fsFile.Size;
    iPos     := 1;
    iCounter := 0;
    if not AfAddToList then
    begin
      AslWordList.Clear;
    end;
    while iPos <= iLen do
    begin
      if (sBuffer[iPos] in AscValidChar) then
      begin
        while ((iPos+iCounter) <= iLen) and (sBuffer[iPos+iCounter] in AscValidChar) do
        begin
          inc(iCounter);
        end;
        AslWordList.Add(copy(sBuffer,iPos,iCounter));
        inc(iPos,iCounter);
        iCounter := 0;
      end
      else
      begin
        inc(iPos);
        while (iPos <= iLen) and (not (sBuffer[iPos] in AscValidChar)) do
        begin
          inc(iPos);
        end;
      end;
    end;
  finally
    FreeAndNil(fsFile);
  end;
end;

[Minz]

Hallo Daniel,

wenn du nur die Anzahl brauchst und nicht die Wörter selber, dann könntest du auch die Leerzeichen zählen. Das Ergebnis +1 müsste dann die Anzahl der Wörter sein, wobei dann natürlich Zahlen und so auch als Wörter gezählt werden.

Gruß Minz

[Tpercon]

Der Weg ist gut, nur so einfach geht's nicht :!:
Was ist wenn zwei Leerzeichen hintereinader folgen? Daher bräuchtest du schonmal ne Variable vom Typ boolean die man entsprechend bei Wiederholung setzt.
Außerdem fehlt der Zeilenumbruch als Trennzeichen!
Also mußt wohl noch was :coder:

Gruß

[Minz]

Stimmt natürlich, dachte die Sonderfälle und wat weiß ich, was alles noch anfällt, die ergeben sich dann, falls er den Weg einschlägt. Wollt nur noch nen alternativen Ansatz aufzeigen :)

Gruß Minz