1 / 1 / 0
Регистрация: 13.10.2019
Сообщений: 41
1

Регулярное выражение

14.11.2019, 12:20. Показов 545. Ответов 0
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//отправка запроса
  try
    PostData := TStringList.Create;
    PostData.Clear;
    Memo1.Text := IdHTTP1.POST
      ('http://bseu.by/schedule/',
      PostData);
  except
    on e: Exception do
      PostData.Free;
  end;
 
  str:=memo1.Text;
  faculty := TRegEx.Create('<option value="(\d+?)">(.*?)</option>');
  ArrayFaculty := faculty.Matches(str);
  for i := 0 to ArrayFaculty.Count-1 do
  begin
    combobox1.Items.Add(ArrayFaculty.Item[i].Result('$1'));
  end;
Вылетает с ошибкой "Successful match required".

Если подобное написать для одного значения, то всё работает.

Delphi
1
2
faculty := TRegEx.Create('<option value="(\d+?)">(.*?)</option>');
 showmessage(faculty.Match(str).Result('$1');
Гуглил, но ничего не нашёл. Каким образом записать для Matches такое?

Добавлено через 22 минуты
Спасибо. Разобрался сам.
Может кто-то столкнётся с подобной нехваткой знаний. Держите.

Delphi
1
2
3
4
5
6
7
8
9
10
str:=memo1.Text;
  faculty := TRegEx.Create('<option value="(\d+?)">(.*?)</option>');
  ArrayFaculty := faculty.Matches(str);
  for i := 0 to ArrayFaculty.Count-1 do
 
  begin
    //combobox1.Items.Add(ArrayFaculty.Item[i].Value);
      for j := 1 to ArrayFaculty.Item[i].Groups.Count-1 do
    combobox1.Items.Add(ArrayFaculty.Item[i].Groups.Item[j].Value);
  end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2019, 12:20
Ответы с готовыми решениями:

Регулярное выражение
Доброго времени суток! Нужно спарсить следующий html код: &lt;tr&gt; &lt;td&gt;Текст1&lt;/td&gt; &lt;td&gt;Текст2&lt;/td&gt;...

Регулярное выражение
В регулярках не селен, подскажите регулярное выражение что бы спарсить между title=&quot; и user=&quot; В...

Регулярное выражение
В проекте используется TRegExpr. Помогите составить выражение для отображения &quot;Russian Federation,...

Регулярное выражение
&lt;tr&gt;&lt;td colspan=&quot;5&quot; class=&quot;wday&quot;&gt;среда (4.12.2019)&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt;&lt;td...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2019, 12:20

Не работает регулярное выражение
День добрый! &lt;tbody&gt; &lt;tr&gt;&lt;td class=&quot;first time noWrp tl&quot;&gt;16.02.2016 - 02.05.2016&lt;/td&gt; &lt;td...

Сложное регулярное выражение
Здравствуйте. Мне нужно найти в тексте 4 варианта заголовков: (\d+)(\.)(\d+)(\s)(+) 1.345...

Регулярное выражение с исключением
Добрый день! Никак не могу написать регулярку для проверки номеров телефонов. Дело в том что...

Составить регулярное выражение
всем привет. алгоритм такой: пользователь вбивает запрос, открываем результаты в TWebBrowser и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru