Как вытащить определенную строку из текста.

← →
Xomer (2002-07-26 12:25) [0]

Есть такие строки:

HTTP/1.1 200 OK
Date: Fri, 26 Jul 2002 08:25:45 GMT
Server: Apache/1.3.26 (Unix) Debian GNU/Linux
Last-Modified: Sat, 29 Apr 2000 15:55:47 GMT
ETag: "debba0-5187-390b0603"
Accept-Ranges: bytes
Content-Length: 20871
Connection: close
Content-Type: image/jpeg

Их надо просканировать и вытащить строку Content-Length: 20871
. Вернее не саму строку, а число т.е 20871. Как такое сделать? Очень нужен исходник. Заранее благодарен.

← →
Kouzmine Mike (2002-07-26 12:28) [1]

P := Pos("Content-Leng",S);
if P <> 0 then
for I := P to Length(S) do
if S[P] := ":" then Break;
Ну а дальше сам

var p,i:integer; s:string; begin s:=memo1.Lines.Strings[6]; i:=pos("Content-Leng",S); if i<>0 then i:=pos(":",S); edit1.text:=copy(s,i+2,length(s));

так не проще?

Как вытащить определенную строку из текста. Найти похожие ветки