Statistiques des mots dans un texte avec Delphi

Question

J'utilise Delphi 7. Je voudrais compter le nombre de répétitions de chaque mot dans un grand texte (500 mots). Comment pourrais-je le faire?

Answer 1

Voici une sorte de méthode de force brute de le faire. il utilise une liste de chaînes et stocke le nombre de mots cast en tant qu'objet dans l'élément de liste.

var 
    i : integer; 
    iCount : integer; 
    idxFound : integer; 
    someText : string; 
    s : TStringList; 
    oneWord : string; 

begin 
    someText := 'this that theother and again this that theother this is not that'; 
    oneWord := ''; 

    s := TStringList.Create; 
    for i := 1 to length(someText) do begin 
    if someText[i] = ' ' then begin 
     idxFound := s.indexof(oneWord); 
     if idxFound >= 0 then begin 
     iCount := integer(s.objects[idxFound]); 
     s.Objects[idxFound] := TObject(iCount + 1); 
     end 
     else begin 
     s.AddObject(oneWord, TObject(1)); 
     end; 
     oneWord := ''; 
    end 
    else begin 
     oneWord := oneWord + someText[i]; 
    end; 
    end; 

    if oneWord <> '' then 
    if idxFound >= 0 then begin 
     iCount := integer(s.objects[idxFound]); 
     s.Objects[idxFound] := TObject(iCount + 1); 
    end 
    else begin 
     s.AddObject(oneWord, TObject(1)); 
    end; 

    // put the results on the screen in a text box. 
    memo1.Text := ''; 
    for i := 0 to s.Count - 1 do 
    memo1.Lines.Add(intToStr(integer(s.Objects[i])) + ' ' + s[i]); 

Answer 2

Je ne me souviens pas des fonctions Delphi intégrées qui le font directement. Mais une simple méthode O (n * Log (n)) serait de trier les mots puis de les scanner et de les compter.

Answer 3

Si nous parlons du nombre de mots dans une chaîne de texte, ce que vous pourriez faire était d'analyser la chaîne, et d'identifier les mots. Ajoutez les mots à une carte, où l'identificateur est le mot lui-même, et la valeur un nombre. Ce nombre est augmenté si le mot que vous trouvez dans la chaîne existe déjà dans la carte.

map<string, int> 
foreach word in string 
    if word is in map 
     map[word] = map[word] + 1 
    else 
     map[word] = 1 
    end if 
end for 

Puisque je ne connais pas bien Delphi, j'ai essayé de vous fournir un exemple de pseudo-code.

Answer 4

de la bibliothèque de la FPC:

function WordCount(const S: string; const WordDelims: TSysCharSet): Integer; 

var 
P,PE : PChar; 

begin 
    Result:=0; 
    P:=Pchar(pointer(S)); 
    PE:=P+Length(S); 
    while (P<PE) do 
    begin 
    while (P<PE) and (P^ in WordDelims) do 
     Inc(P); 
    if (P<PE) then 
     inc(Result); 
    while (P<PE) and not (P^ in WordDelims) do 
     inc(P); 
    end; 
end; 

wordcount (test, [ ' '! '','', '', '', # 10, # 13]); serait une bonne première tentative. Cela signifiait pour des calculs de magnitude simple, car il p. Ex. ne prend pas soin des mots abrégés.

Bien sûr, si vous le présentez comme devoir, il vous sera probablement demandé d'expliquer son fonctionnement.

Answer 5

un TSTListe peut également être utilisé pour la "liste de mots". Exécutez tous vos mots et ajoutez chacun à la liste tString en tant que nouvel élément. Lorsque vous avez terminé, vous avez un compte TOTAL, pour déterminer les mots uniques, trier la liste, et dans une boucle, voir si le mot actuel est différent du mot précédent ... si c'est le cas, incrémenter le nombre de mots uniques.