| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вытащить определенную строку из текста.
Xomer © (2002-07-26 12:25:00)Есть такие строки:
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. Как такое сделать? Очень нужен исходник. Заранее благодарен.
Феликс (2002-07-26 13:47:00) [1]
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));
так не проще?
Kouzmine Mike (2002-07-26 12:28:00) [2]P := Pos("Content-Leng",S);
if P <> 0 then
for I := P to Length(S) do
if S[P] := ":" then Break;
Ну а дальше сам
| |
