copy

[Droniwe]

Заранее изменяюсь но есть небольшая проблем ка а именно выдергивание из текста помогите выдернуть
кусок исходного текста

E..(....:...MX.......P.U.D...1.....b.............C..~3z.'/.~..n`X......1....Ya......E....f.]w?\.....y....E.q..C`.."T.6.I.........O?e....Y0..9../.[.6......W_:...V1#.H.......K1...re.E...i%...>.z;.......Y.S.."...y..&ck_.^..-1.L..P.!.1..FC1t.B]"@/....ig..2.......N_.(....W.h..f..+#..r.$FZr....}?....z..a.*..&...36..j...0.`t..1..Q.....G.}.`....m.J.u..V...F..........1.#......#c_W8....U.....^Suw...+.VJM.....i...5.t...t...2.:bWWP.j.6..2.hR.:.X.8=.O..{...........[.7d....1%M..:.......e.W.?.....cb.........GG.w..SS.|7....:D...BV.EevW


E...e.@...k.....N....+.P..[....zP..#...GET /player/logo/282042142003775.png HTTP/1.1..Accept: */*..Accept-Language: ru-RU..Referer: http://tvbest.com.ua/player/uppod.swf..x-flash-version: 10,2,153,1..Accept-Encoding: gzip, deflate..If-Modified-Since: Thu, 17 Feb 2011 18:39:56 GMT..User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRSPUTNIK 2, 4, 0, 270; .NET CLR 1.1.4322; InfoPath.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)..Host: uppod.ru..Connection: Keep-Alive....


E...e.@....N....^...-.P.G....Q{..............C...4GET /6d003ca4de24eac1b289a9d87e4b0166/film/s/1992/snayper.flv HTTP/1.1..Accept: */*..Accept-Language: ru-RU..Referer: http://tvbest.com.ua/player/uppod.swf..x-flash-version: 10,2,153,1..Accept-Encoding: gzip, deflate..User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRSPUTNIK 2, 4, 0, 270; .NET CLR 1.1.4322; InfoPath.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)..Host: s3.tvbest.net..Connection: Keep-Alive....


E...(|@.7...N........P.+...z..]dP..?n...HTTP/1.1 304 Not Modified..Server: nginx..Date: Sat, 04 Feb 2012 20:47:29 GMT..Last-Modified: Thu, 17 Feb 2011 18:39:56 GMT..Connection: keep-alive....


E....$@.7...^.......P.-..Q{.G.}....R..............CHTTP/1.1 200 OK..Server: nginx..Date: Sat, 04 Feb 2012 20:35:21 GMT..Content-Type: text/html..Connection: keep-alive..X-Powered-By: PHP/5.2.17..Content-Length: 51....File 'film/s/1992/snayper.flv' can not be read.<br>

А нужно вытянуть

/6d003ca4de24eac1b289a9d87e4b0166/film/s/1992/snayper.flv

[Кольша]

s:=ваш код;
s:=copy(s,pos('Q{..............C...4GET ',s)+length('Q{..............C...4GET '),pos(' HTTP/1.1..Accept: *',s)-1);

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

[Кольша]

а лучше вот функция парс

function pars(a,b,s:string):string;////a-откуда начинаем    b-где заканчиваем       s- сама строка где парсить
var
t:string;
begin
t:=copy(s,pos(a,s)+length(a),length(s));
result:=copy(t,1,pos(b,t)-1);
end;

[Человек_Борща]

Регулярные выражения лучше всего..

[Droniwe]

Сообщение от Кольша

а лучше вот функция парс

function pars(a,b,s:string):string;////a-откуда начинаем    b-где заканчиваем       s- сама строка где парсить
var
t:string;
begin
t:=copy(s,pos(a,s)+length(a),length(s));
result:=copy(t,1,pos(b,t)-1);
end;

Функция супер только

E...e.@....N....^...-.P.G....Q{..............C...4GET /6d003ca4de24eac1b289a9d87e4b0166/film/s/1992/snayper.flv HTTP/1.1..Accept: */*..Ac

строка может меняться на

 E...e.@....N....^...-.3.G....о{..............C...7GET /6d003ca4de24eac1b289a9d87e4b0166/film/s/1992/snayper.flv HTTP/1.1..Accept: */*..Ac

То есть постоянны в этой строке только GET / и .flv но GET / не уникален и встречается и до этой строки и после

[Аватар]

1. ищем 'GET /'
2. ищем следующий за ним '.flv'
3. ищем следующий за найденным в 1 'GET /'
4. если он между найденным в 1 и 2 то переход от него на 2
5. иначе нашли

[Droniwe]

Сообщение от Аватар

1. ищем 'GET /'
2. ищем следующий за ним '.flv'
3. ищем следующий за найденным в 1 'GET /'
4. если он между найденным в 1 и 2 то переход от него на 2
5. иначе нашли

спс так и сделал

function parsflv(a,b,s:string):string;////a-откуда начинаем    b-где заканчиваем       s- сама строка где парсить
var
t:string;
begin

t:=copy(s,pos(a,s)+length(a),length(s));
t:=copy(t,1,pos(b,t)+length(b));
if  pos(a,t) >0   then begin
  while pos(a,t)>0 do
    begin

t:=copy(t,pos(a,t)+length(a),length(t));
     end;
result:=t;
end
  else
  result:=t;
end;