Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
5 / 5 / 4
Регистрация: 26.08.2010
Сообщений: 261
1

Поиск слова в тексте и присвоение переменной этого слова

03.05.2013, 17:26. Просмотров 1294. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите пожалуйста решить проблему.
Есть файл index.html в нем есть слово, допустим "Армагедон". Нужно найти это слово в тексте и присвоить переменной s
Затем поставить условие:
Delphi
1
2
3
4
if s <> 'Армагедон' then
ShowMessage('Не найдено')
else
WebBrowser1.navigate('index.html')
Пробую делать так, но ничего не получается:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
var
s : string;
begin
Memo1.Lines.LoadFromFile('index.html');
s:=Memo1.Text;
if AnsiPos('Армагедон', s) = 0 then
ShowMessage('Поиск не дал результатов');
if AnsiPos('Армагедон', s) <> 0 then
WebBrowser1.Navigate(ExtractFilePath(paramstr(0))+'index.html');
except
ShowMessage('Не найдено');
end;
end;
Помогите пожалуйста решить проблему. И может можно как то сделать что бы вообще обойтись без Memo?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2013, 17:26
Ответы с готовыми решениями:

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

Поиск слова в файле и запись предложени после этого слова
Допустим есть файл, в нем несколько предложений, &quot;Шла саша по шоссе и сосала сушку.&quot; на нужно...

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

Поиск определенного слова в строке и замена определенного символа после этого слова
Представим что у нас есть следующая строка: &quot;Дядя Петя 10 раз ударил дядю Васю, но дядя Вася...

3
Непрофессионал
2654 / 2243 / 356
Регистрация: 26.07.2011
Сообщений: 9,706
Записей в блоге: 1
03.05.2013, 17:44 2
во-первых, кодировка. во-вторых, в файле index.html действительно есть это слово? может быть, там скрипт, который при загрузке, подгружает это слово в составе какого-то текста?
0
5 / 5 / 4
Регистрация: 26.08.2010
Сообщений: 261
03.05.2013, 17:46  [ТС] 3
нет там есть это слово
А если его нет то тогда должно выдаваться сообщение. Насчет кодировки ничего не понял.
Если это обычный текстовый файл, без разметки HTML просто сохранен с расширением html а не txt
0
263 / 109 / 26
Регистрация: 16.03.2013
Сообщений: 272
03.05.2013, 19:31 4
Не до конца понял суть вопроса Получается, нужно проверить файл index.html на наличие слова, если есть - открыть файл index.html в браузере, если нет - сообщить об этом? Так или что-то упустил?
Можно это сделать без memo, с помощью tstringlist:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
slist: tstringlist;
begin
  slist := tstringlist.Create;
  slist.LoadFromFile('index.html');
  s:=ansiuppercase(slist.Text);
  if AnsiPos('АРМАГЕДОН', s) = 0 then
    ShowMessage('Поиск не дал результатов')
  else
//  WebBrowser1.Navigate(ExtractFilePath(paramstr(0))+'index.html');
  WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'index.html');//Application.ExeName нагляднее чем paramstr(0), хотя результат один и тот же
  slist.Free;
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2013, 19:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

присвоение ASCII кода последних 2 символов слова переменной
здравствуйте! мне нужна помощь! мне нужно решить следующую задачу: &quot;найти сумму АSCII кодов...

Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга
1)В строке удалить введённое буквосочетание. 2)Определить количество повторений в тексте заданного...

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

Поиск слова в тексте
Делаю прогу по поиску заданного слова в тексте. Здесь я привел не весь текст, т.е. прога работатае...


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

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

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