Подсчет слов

[Stanislav]

Здравствуйте.

Задача собствено такая:

Предположем имеется файл с текстом мне нужно посчитать сколько раз встречается слово например форум.

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

Подскажите пожалуйсто (советом, кодом) как бы это осуществить?

Заранее благодарен.

[russian-stalker]

Создай массив с знакоми припинания, и проверь, сначало просто слово, а потом с массивом

[puporev]

Если чисто по Паскалевски, то так:

k:=0;
for i:=1 to length(text) do
   if i=pos('форум',text) then
      begin
       k:=k+1;
       delete(s,i,5));
   end;

Хотя в Делфи наверное есть специальная процедура поиска.

[Stanislav]

Сообщение от puporev

Если чисто по Паскалевски, то так:

k:=0;
for i:=1 to length(text) do
   if i=pos('форум',text) then
      begin
       k:=k+1;
       delete(s,i,5));
   end;

Хотя в Делфи наверное есть специальная процедура поиска.

Хотелось бы надеется на это.. есть еще вариант в дельфиворд есть описание функции: поиск по ричедиту, можно эту функцию в цикл поместить и так до конца файла... да вариантов куча... просто хотелось бы понять как попроще что-ли и правильнее..

[russian-stalker]

Pos - самое удобное.

[Gorychev]

Создай обьект класса TStringList, загрузи в него файл с помощью LoadFromFile, пройдись по всем записям циклом for, поставь условие внутри цикла - если функция Pos возвратила не нулевое значение, то значит слово найдено - счетчик +1.
Роs возвращает позицию вхождения последовательности символов в заданной строке, если ничего не найдено возвращает 0.
О классе TStringList почитайте тут

[dr.Chas]

Сообщение от Stanislav

Хотелось бы надеется на это.. есть еще вариант в дельфиворд есть описание функции: поиск по ричедиту, можно эту функцию в цикл поместить и так до конца файла... да вариантов куча... просто хотелось бы понять как попроще что-ли и правильнее..

а зачем тебе так всё усложнять, это тебе подходит.

[KORN]

а мне кажется этот пример работать не будет...

на вскидку я могу предложить 2 варианта это если пробежаться циклом по всему тексту:

for i:=1 to length(text) do
if ansilowercase(copy(text, i, 5))='форум' then
inc(j);

либо через pos, но там надо будет удалять все слова после каждого раза... т.е. если к примеру есть текст: "я пришел на форум? а форум был поломан" то при первом проходе он наткнется на первое слово, а при втором проходе и последующих он так же будет натыкаться на первое слово форум т.к. эта функция ищет от начала текста...

следовательно нашли слово и удалили и увеличили результат...

[puporev]

а мне кажется этот пример работать не будет...

Если кажется, креститься надо.
Вы невнимательно прочитали код. Там же написано

delete(s,i,5));

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

[Gorychev]

просто хотелось бы понять как попроще что-ли и правильнее..

Алгоритм:

Создай обьект класса TStringList, загрузи в него файл с помощью LoadFromFile, пройдись по всем записям циклом for, поставь условие внутри цикла - если функция Pos возвратила не нулевое значение, то значит слово найдено - счетчик +1.

плюс то что сказал KORN

следовательно нашли слово и удалили и увеличили результат...

Реализация:

function GetCountWordInFile(const Text_file: string; Find_word: string; const Case_flag: integer): integer;
var str: TstringList; i, word_count: integer; s: string;
begin
word_count:= 0;
if FileExists(ExtractFilePath(application.ExeName) + Text_file) then
begin
 try
  str:= TStringList.Create;
  str.LoadFromFile(Text_file);
   if Case_flag = 1 then Find_word:= AnsiUpperCase(Find_word);

    for i:=0 to str.Count - 1 do
    begin
        s:= str[i];
        if Case_flag = 1 then   s:= AnsiUpperCase(s);
         while (pos(Find_word, s) <> 0) do
           begin
             delete(s, pos(Find_word, s), length(Find_word));
             inc(word_count);
           end;
    end;
  finally
   Str.Free;
 end;
end
else
  showmessage('Файл ' + ExtractFilePath(application.ExeName) + Text_file + ' не найден');
  result:= word_count;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // описание параметров GetCountWordInFile
  // первый параметр - имя текстового файла (файл должен находится в одной папке с проектом)
  //второй - искомая строка
  // третий: 0 - поиск с учетом регистра, 1 - без учета регистра
  caption:= inttostr(GetCountWordInFile('load.txt', 'forum', 1));
end;

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