Статистика слов в тексте с Delphi

Question

Я использую Delphi 7. Хотелось бы подсчитать количество повторений каждого слова в большом тексте (500 слов). Как я мог это сделать?

Answer 1

вот что-то вроде грубой силы. он использует список строк и сохраняет количество каждого слова, отлитого как объект в элемент списка.

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

Я не помню никаких встроенных функций Delphi, которые непосредственно это делают. Но простой метод O (n * Log (n)) заключается в сортировке слов, а затем их сканировании и подсчете.

Answer 3

Если мы говорим о количестве слов в текстовой строке, то что вы могли бы сделать, это разобрать строку и определить слова. Добавьте слова на карту, где идентификатором является слово it self, а значение - число. Это число увеличивается, если слово, которое вы найдете в строке, уже существует на карте.

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 

Поскольку я не знаю delphi, что хорошо, я попытался предоставить вам пример псевдокода.

Answer 4

От ФФК strutils библиотеки:

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 (тест, [ ' '!? '','', '', '', # 10, # 13]); будет хорошей первой попыткой. Он предназначен для простых вычислений по величине, поскольку он, например, не заботится о сокращенных словах.

Конечно, если вы передадите это как домашнее задание, вас, вероятно, попросят объяснить его работу.

Answer 5

a TSTringList также может использоваться для «списка слов». Пропустите все ваши слова и добавьте всех и каждого в tStringlist в качестве нового элемента. Когда вы закончите, у вас есть счет TOTAL, чтобы определить уникальные слова, отсортировать список и в цикле увидеть, отличается ли текущее слово от предыдущего ... если это так, то увеличивайте количество уникальных слов.