1

Есть таймер в котором каждые 3 секунды выполняется цикл поиска ключевого слова !help из TStringList который содержит исходный код страницы с чатом:

  fnd:='!help';
  Ishodnik.Clear;
  Ishodnik.Add(GetHtml(WB_Doc));
  for i:=0 to Ishodnik.Count - 1 do
    if pos(fnd, Ishodnik.Strings[i]) > 0 then 
    begin
      Label1.Caption:='Ключевое слово найдено';
      SpeedButton2.Click;
    end 
    else 
      Label1.Caption:='Ключевое слово отсутствует';

Как присвоить порядковый номер строке в которой было найдено ключевое слово и игнорировать его при повторном сканировании? Пробовал присвоить Object найденной строке со значением 1, но при проверке в label получал значение -1.

UPD: Теперь строка TStringList содержащая исходный html код страницы разбита на строки после символа ">" (TStringList содержит 14300 строк):

  fnd:='!help';
  Ishodnik.Clear;
  Ishodnik.Delimiter:='>';
  Ishodnik.DelimitedText:=GetHtml(WB_Doc);
  for i:=0 to Ishodnik.Count - 1 do
  if pos(fnd, Ishodnik.Strings[i]) > 0 then
  begin
    Label1.Caption:='Ключевое слово найдено';
    SpeedButton2.Click;
  end
  else
    Label1.Caption:='Ключевое слово отсутствует';
11
  • У Вас в Ishodnik всего одна строка - какой порядковый номер? "Пробовал присвоить Object..." - покажите код.
    – user176262
    9 сен 2016 в 19:01
  • Хотите сказать список строк получаемый из исходного кода html страницы заносится в StringList в виде одной строки?
    – Alexey0001
    9 сен 2016 в 19:04
  • ShowMessage(IntToStr(Ishodnik.Count));
    – user176262
    9 сен 2016 в 19:06
  • Действительно.. Одна.. А писали список строк..Тогда всё становится ещё сложнее, по крайней мере для меня. Присваивал Object так: Ishodnik.AddObject(Ishodnik.Strings[i], TObject(1));
    – Alexey0001
    9 сен 2016 в 19:09
  • Вам должны подойти TStringList.Delimiter и TStringList.DelimitedText. Только надо 1. разобраться разделяются ли html строки в тексте страницы и чем, и 2. не использовать TStringList.Objects для запоминания индексов, так как все содержимое списка Ishodnik полностью обновляется.
    – user176262
    9 сен 2016 в 19:28

1 ответ 1

1
type
TForm1 = class(TForm)
...
private
  fPreviousIndex: integer;
  procedure Search;
...
end;

implementation

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  fPreviousIndex := -1;
end;

procedure TForm1.Search;
var
  i: integer;
  foundNew: boolean;
begin
  ...
  foundNew := false;
  for i := fPreviousIndex + 1 to Ishodnik.Count - 1 do
  begin
    if Pos(fnd, Ishodnik.Strings[i]) > 0 then
    begin
      foundNew := true;
      fPreviousIndex := i;
      break;
    end;
  end;
  if foundNew then
  begin
    Label1.Caption := 'Ключевое слово найдено';
    SpeedButton2.Click;
  end
  else
    Label1.Caption := 'Ключевое слово отсутствует';
end;
13
  • Пока не могу понять по какой причине, но сообщение в label "Ключевое слово отсутствует" при том что фактически оно присутствует.
    – Alexey0001
    9 сен 2016 в 21:10
  • Убедитесь, что Вы правильно/полно перенесли мой код к себе.
    – user176262
    9 сен 2016 в 21:11
  • Причину установил - моя невнимательность. Забыл добавить Ishodnik.Clear;Ishodnik.Delimiter:='>'; Ishodnik.DelimitedText:=GetHtml(WB_Doc);. Но почему то реакция идет дважды. Т.е. ответное сообщение в чат поступает два раза (SpeedButton2.Click).
    – Alexey0001
    9 сен 2016 в 21:14
  • У нас с Вами происходит что-то вроде диалога, но Вы отвечаете каким-то своим мыслям. Что такое "реакция" и "ответное сообщение"?
    – user176262
    9 сен 2016 в 21:18
  • Эмм, прошу прощения. SpeedButton2.Click отправляет сообщение в чат и теперь это происходит дважды. Т.е. находит !help и отвечает в чат Testing help message дважды.
    – Alexey0001
    9 сен 2016 в 21:21

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.