Скачать: CL | DM;

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

← →
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;
Ну а дальше сам

---

← →
Феликс ©   (2002-07-26 13:47) [2]

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));

так не проще?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c