[Delphi]/[Pascal] Задай вопрос, получи ответ

#11

20.05.2010, 22:08

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 52

Цитата:

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

Доброго времени суток :-) Помогите)

Код:

sid:= cgi.Strings[135]; 
Delete(sid,1,28);
sid становится такой src="img2img.cgi?img=ba2eb0f65e4f6436b48795169ae403d5" /> <i>→</i>'

Вопрос: Как выдрать текст "ba2eb0f65e4f6436b48795169ae403d5"

Длина текста может быть разной. Будьте добры кусочек кода.

P.S пробовал так: sid:=Copy(sid,Pos(sid,'"'),Pos(sid,'"'); Не выходит...

PHP код:


		
			
  function ParserBlock(var Page:string; const Param1,Param2:string):string;

  var

    BeginPos,

    EndPos:integer;

    TempPage:string;

  begin

    BeginPos:=AnsiPos(Param1,Page)+length(Param1);

    delete(Page,1,beginPos-1);

    BeginPos:=AnsiPos(Param1,Page)+length(Param1);

    EndPos:=AnsiPos(Param2,Page);

    Result:=copy(page,1,EndPos-1);

  end;

В Text будет твой номер.

PHP код:


		
			
text:=ParserBlock(sid,'img=','" />');

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

[Wi-Fi, BT] Задай вопрос - получи ответ!

Alexsize

Беспроводные технологии/Wi-Fi/Wardriving

2569

10.05.2026 13:27

[jQuery] - Задай вопрос, получи ответ

Isis

PHP

25.12.2009 03:25

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

Создать сделку

Мои сделки

Сделка

ESCROW ADMIN PANEL