VPF::Как разбить строку на подстроки

G'Nor

Дата 26.12.2002, 23:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

192.168.99.254 - oleg [23/Dec/2002:21:15:12 +0300] "GET http://counter.rambler.ru/top100.cnt?294098 HTTP/1.0" 200 936

сгенерированная прокси сервером. мне надо написать прогу анализатор такого вот файла. соостветственно надо разбить строки на подстроки засунуть все в массив. а вот знаний моих пока на это не хватает. использую вот такой код

Код

         while NOT EOF(f) do begin
                readln(f,s);
                for i:=1 to n+1 do begin
                p:=pos(' ',s);
                buf:=copy(s,p+1,Length(s)-p);
                end;
                Memo1.Lines.Add(buf);
         end;

Но он выдирает только ip. а дальше не хочет.

Song

Дата 26.12.2002, 23:58 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

В лучшем случае у тебя цикл будет от 1 до 1

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Vit

Дата 27.12.2002, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


procedure TForm1.Button1Click(Sender: TObject);
  var f:textfile;
      i:integer;
      s:string;
  function getbefore(substr, str:string):string;
  begin
   if pos(substr,str)>0 then
     result:=trim(copy(str,1,pos(substr,str)-1))
   else
     result:='';
  end;
  function getafter(substr, str:string):string;
  begin
   if pos(substr,str)>0 then
     result:=trim(copy(str,pos(substr,str)+length(substr),length(str)))
   else
     result:='';
  end;
begin
  AssignFile(f, 'F:\1\a');
  reset(f);
  while NOT EOF(f) do
    begin
      readln(f,s);
      Memo1.Lines.Add('IP: '+GetBefore('-',s));
      Memo1.Lines.Add('Name: '+GetBefore('[',GetAfter('-',s)));
      Memo1.Lines.Add('Time: '+GetBefore(']',GetAfter('[',s)));
      Memo1.Lines.Add('Request: '+GetBefore('"',GetAfter('"',s)));
      Memo1.Lines.Add('--------------');
    end;
  CloseFile(f);
end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Black_Joker

Дата 3.1.2003, 02:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

Слушай, что-то я не понял, что ты хочешь?
Найти какой-то конкретный набор символов, или как?
Под конкретным понимаем более -менее подходящий под шаблоны.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »