20.05.2010, 22:08
|
|
Участник форума
Регистрация: 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=','" />');
|
|
|