Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];
Вниз
Как вытащить определенную строку из текста. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.045 c
