Wörter zählen

[awk]

Das ist eine einfache Aufgabe. Die folgenden Zeilen sollten dein Problem lösen.

Delphi-Quellcode:

function TokenCount(const cText: String): integer;
    var s: string;
        nPos: integer;
    begin
     result:=0;

     s:=trimright(cText);

     nPos:=Pos(#32,s);

     if (nPos=0) and (length(s)>0) then inc(result);

     while nPos>0 do 
     begin
      inc(Result);
      System.Delete(s,1,nPos);
      s:=trimleft(trimright(s));

      nPos:=Pos(#32,s);
     end;
     
    end;

Liebe Grüße aus dem Süden