распарсить сторку

[bulldog5293]

не могу распарсить правельно строку

PHP код:

<meta http-equiv="refresh" content="20; url="> 


пробывал так

var
ni, h:integer;
O:=string;
...
ni:=pos('refresh" content="',O);
if ni<>0 then begin
O:=copy(O,ni+18,length(O)-ni-18);
O:=copy(O,1,pos(';',O)-1);
showmessage(h);
    h:= O;
...

но h выходит пустым

[ArtGrek]

издеваешся?

var
ni, h:-integer;
O:=string;
...
ni:=pos('refresh" content="',O);
if ni<>0 then begin
O:=copy(O,ni+18,length(O)-ni-18);
O:=copy(O,1,pos(';',O)-1);

где здесь упоминаеца h чтоб она не была пустои???
или ты думаеш если в var написал ее(с ошибкои ni, h:-integer; ), она примет желаемое тобои значение?

[bulldog5293]

ну ошибся в минусе пока код переносил, ситлуация не изменилась

[ArtGrek]

ну ты даеш)
что б h не было равно 0, надо зделать где нибудь h := 5

P.S.или хотябы h := не нулю

[bulldog5293]

подскажи как правельне распарсить

<meta http-equiv="refresh" content="20; url=">

просто вместо 20 и другое число стоять может, а мой вариант не в какую работать не хочет

[Пепел Феникса]

var i,ref_time:integer;
     s:string;
begin
 s:='<meta http-equiv="refresh" content="20; url=">';
 i:=pos('http-equiv',s);
 i:=posex('content=',s,i);
 i:=i+length('content=')+1;
 ref_time:=StrToInt(Copy(s,i,posex(';',s,i)-i));

примерно так.

[bulldog5293]

 ref_time:=StrToInt(Copy(s,i,posex(';',s,i)-i));

ругается
E2010 Incompatible types: 'string' and 'Integer'

[Пепел Феникса]

теперь внимательно пересмотри код, у меня ref_time имеет тип integer.
прежде чем копипастить, стоит разобратся хоть немного.

[bulldog5293]

да я знаю, что ref_time имеет тип integer, я просто не как не могу привыкнуть из одной переменной в другую переносить, как в этом случае
Сделал так

var s,a,ref_time:string;
i:integer;
begin
 s:='<meta http-equiv="refresh" content="20; url=">';
 i:=pos('content="',s);
 i:=posex(';',s,i);
 i:=i+length(';')-2;
		begin
			a := s[i];
			showmessage(a);

но результат только одно число и в данном примере это 0

[bulldog5293]

Вопрос снят, всем спс