Как спарсить текст такой?

@Desdichado2013 · Регистрация: 02.07.2014

Author24 — интернет-сервис помощи студентам

У меня есть код с Get запроса и надо спарсить все слова за критереем: все буквы большие , включает цифры и точно 25 символов ( пример JZH32AOX9BHS9XTYD4MEPE2M1 ) . Как мне это реализовать? Слышал как-то через регулярные выражения , но я вообще там 0 . Подскажите плз

@NIKOLAYY · 07.03.2016, 12:11

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

Слышал как-то через регулярные выражения

Да такой текст тока так и можно спарсить.
Держи! https://vk.com/doc109267511_28... 59c5ddd655

Примерно этим шаблоном, или немножко другим можно, я его не проверял, проверяй сам.
[0-9A-Z]{25}

@Desdichado2013 · 07.03.2016, 14:02 **[ТС]**

Вот часть Get запроса. Выражение всё ок находит , но только 1 слово , а должно 3 раза в этом случае

Кликните здесь для просмотра всего текста

/style_css/css_4/ipb_mlist_addon.css,public/style_css/css_4/ipb_styles
.css,public/style_css/css_4/ipb_common.css,public/style_css/css_4/cal
endar_select.css,public/style_css/css_4/private_data.css,public/style_
css/css_4/ipb_ckeditor.css,public/style_css/prettify.css" />

<!--[if lte IE 7]>
<link rel="stylesheet" type="text/css" title='Main'

<meta property="og:updated_time"
content="1457346608" />

<meta property="og:description"
content="

.

спасибого еще

Скрытый текст

AYWUS0EP5RHCDL1QP0CB8362K

благодарю

Скрытый текст

IE3MPXBM2QIFISA12FTUTSO3W

спасибо
еще! )

Скрытый текст

Z3UE8GU5L1LA57H0TY4XP9LHP

Вот код мой:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var html:string;
var RegEx: TRegExpr;
i:integer;
begin
html:=idhttp1.Get(edit1.text);
RegEx:=TRegExpr.Create;
RegEx.Expression :=  '([0-9A-Z]{25})';
for I := 1 to 20 do
  begin
if RegEx.Exec(html) then
 begin
  Memo1.Lines.add(RegEx.Match[i]);
 end;
 end;
 
end;

@CheshireesCat · 07.03.2016, 14:14

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

for I := 1 to 20 do

а почему до 20
счёт точно с 1 а не с 0?

@NIKOLAYY · 07.03.2016, 15:08

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

а должно 3 раза в этом случае

Находит 3 раза, замени Memo1 на текст который скачиваеш или что там у тебя.

Delphi

var
  RegEx: TRegExpr;
  html: string;
begin
  html:= Memo1.Text; //исходная строка
  RegEx := TRegExpr.Create;
  RegEx.Expression := '([0-9A-Z]{25})';
  if RegEx.Exec(html) then
    repeat
      Memo2.lines.Add(RegEx.Match[0]);
    until not RegEx.ExecNext;
end;

@Desdichado2013 0 / 0 / 0 Регистрация: 02.07.2014 Сообщений: 24
		1
	Как спарсить текст такой? 07.03.2016, 04:44. Показов 539. Ответов 4 Метки нет (Все метки) У меня есть код с Get запроса и надо спарсить все слова за критереем: все буквы большие , включает цифры и точно 25 символов ( пример JZH32AOX9BHS9XTYD4MEPE2M1 ) . Как мне это реализовать? Слышал как-то через регулярные выражения , но я вообще там 0 . Подскажите плз 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	07.03.2016, 12:11	2
	Сообщение от Desdichado2013 Слышал как-то через регулярные выражения Да такой текст тока так и можно спарсить. Держи! https://vk.com/doc109267511_28... 59c5ddd655 Примерно этим шаблоном, или немножко другим можно, я его не проверял, проверяй сам. [0-9A-Z]{25} 0

@CheshireesCat 88 / 84 / 43 Регистрация: 02.05.2015 Сообщений: 766
	07.03.2016, 14:14	4
	Сообщение от Desdichado2013 for I := 1 to 20 do а почему до 20 счёт точно с 1 а не с 0? 0

	07.03.2016, 15:08