Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.08;
Скачать: 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 вся ветка

Текущий архив: 2002.08.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-24046
Kviz
2002-07-25 20:06
2002.08.08
Народ, ПОМОГИТЕ!!! Как узнать какие параметры при запуске проге были заданы и присвоить их все в строковую переменную. Ну, типа прога наша “delphi.exe”, юзверь его запустит “delphi.exe rulez, rulez and rulez” мне нужно, чтобы прога переменной “s” пр


14-24220
Anatoly Shkodin
2002-07-14 11:35
2002.08.08
Спонсор-рекламодатель


3-23895
Александр Рогань
2002-07-17 18:15
2002.08.08
Динамическая загрузка формы из файла !!!


3-23957
werewolfDS
2002-07-18 11:51
2002.08.08
Бухгалтерские проводки


1-24059
Arhangel
2002-07-25 13:32
2002.08.08
Меню