Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
lvlkoo
.NET C#,ASP.NET MVC
426 / 381 / 177
Регистрация: 16.10.2010
Сообщений: 1,565
Завершенные тесты: 2
1

Поиск слова

30.06.2011, 00:43. Просмотров 521. Ответов 2
Метки нет (Все метки)

Ребят, есть некоторый код для поиска колва опредленных слов в тексте..но его нужно немного переделать.Загвоздка в том что оно считает слово если после него есть пробел,если нету...не считает.
Поясню. Допустим искомое слово "for(" если в тексте пресудствует "for( " то его считает,а если допустим
"for(i...)"то не считает.Помогите
Вот код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1Click(Sender: TObject);
var
   WantedWord, text, word_temp: String;
   i, j, n: Integer;
begin
   WantedWord:='for(';
   n:=0;
 
   for i:=0 to EnterText.Lines.Count-1 do
   begin
      text:=EnterText.Lines[i]+' ';
      j:=1;
      while j<=Length(text) do
      begin
         word_temp:='';
         while text[j]<>' ' do
         begin
            word_temp:=word_temp+text[j];
            j:=j+1;
         end;
         if word_temp=WantedWord then n:=n+1;
         j:=j+1;
      end;
   end;
 
   if n>0 then ShowMessage('Found words count: '+IntToStr(n));
   end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2011, 00:43
Ответы с готовыми решениями:

Поиск слова в тексте и присвоение переменной этого слова
Здравствуйте. Помогите пожалуйста решить проблему. Есть файл index.html в нем...

Поиск слова
Поиск слова с наибольшим вхождением заданного символа. Как я понял слово должно...

Поиск слова
Привет Вот смотрите у нас есть программа на ней кнопка допустим Время И при...

Поиск слова в файле
помогите пожалуйста реализовать следующее: ввожу в edit слово &quot;ежедевная&quot;,...

Поиск слова в WebBrowser
В WebBrowser загружается html страница. Как с помощью Edit организовать поиск...

2
Arcor
4899 / 1846 / 387
Регистрация: 20.11.2009
Сообщений: 5,964
Записей в блоге: 1
30.06.2011, 01:04 2
ну нужно завести библиотеку искомых слов, иначе такого интеллекта нету у компилятора как у человеческой головы
0
Mawrat
12827 / 5735 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
30.06.2011, 03:56 3
lvlkoo, перебор слов в тексте можно организовать так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = [
    ' ', '.', ',', ':', ';', '!', '?', '+', '-', '*', '\',
    '(', ')', '[', ']', '{', '}', #9, #10, #13
  ];
var
  S, sW : String;
  i, Pos1, Len, LenW : Integer;
begin
  Memo2.Clear;
  //Исходный текст.
  S := Memo1.Text;
 
  Len := Length(S);
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Длина слова.
      LenW := i - Pos1 + 1;
      //Само слово.
      sW := Copy(S, Pos1, LenW);
      //Распечатка слов в Мемо2.
      Memo2.Lines.Add('Слово: "' + sW + '".');
    end;
  end;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2011, 03:56

Поиск слова в файле
Мне по заданию нужно искать слово в файле, я воспользовался функцией POS, но...

Поиск слова в файле
Здравствуйте. Есть такой код: procedure TForm22.Button1Click(Sender: TObject);...

Поиск слова в файле
помогите пожалуйста разобраться. есть файл, в нём текст, слова разделяются...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru