Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Вопрос по регулярным выражениям

Автор: Delp 15.6.2007, 10:16

Здравствуйте!

Возникла такая сложность.

Есть фай к ктором может быть около 60 тыс строк и больше.

мне нужно достать оттуда только те стоки кторы похожи на эти, и вытащить из каждой строки то что выделено жирным:

02.05.2007 15:40:26 Print Information None 10 NT AUTHORITY\SYSTEM server Document 1247, Microsoft Word1.doc owned by USER1 was printed on priner via port priner. Size in bytes: 458480; pages printed: 22

02.05.2007 15:32:13 Print Information None 10 NT AUTHORITY\SYSTEM server Document 1246, Microsoft Word2.doc owned by USER2 was printed on priner via port priner. Size in bytes: 38036; pages printed: 33

Заранее спасибо!

Автор: aktuba 15.6.2007, 10:41

А зачем??? Можно в цикле пройти и вытянуть все... Зачем использовать регулярки там, где и без них все просто и быстро делается????

Автор: Delp 15.6.2007, 10:46

Делал я уже так... коду немеренно... да и работает как то через раз... то парсит, то не парсит. Причем каждый раз както случайно... на совершенно разных строках... просто зашел в тупик.. smile

Автор: aktuba 15.6.2007, 11:49

Цитата

Ну так показывай код... Навскидку - он там простым должен быть.

1. Вырезаешь из строки первые символы до пробела.
2. Ищешь "owned by" и вырезаешь все что за ним и до следующего пробела.

Вот и все. Попробую код навскидку написать:

Код


const
  C_Owned = 'owned by ';
var
  sl: TStringList;
  Idx: Integer;
  lStr: string;
  lPos, lPos2: Integer;
  lLen: Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(filename);
    lLen := Length(C_Owned);
    for Idx := 0 to sl.Count - 1 do
      begin
        lStr := sl[Idx];
        lPos := Pos(' ', lStr); // Находим первый пробел
        Res1 := Trim(Copy(lStr, 1, lPos)); // Вырезали дату
        lPos := Pos(C_Owned, lStr); // Находим начало второго куска
        Inc(lPos, Length(C_Owned));
        lPos2 := lPos;
        while (lPos2 <= lLen) and (lStr[lPos2] <> ' ') do Inc(lPos2);
        Res2 := Trim(Copy(lStr, lPos, lPos2 - lPos - 1)); // получили второй кусок
      end;
  finally
    FreeAndNil(sl);
  end;
end;

Сложностей не вижу smile

Автор: Delp 15.6.2007, 12:17

aktuba... знаеш.. я лучше не буду присылать свой код... smile

у меня около 300 строк smile

и я уже сам в нем ничего не понимаю smile

Спасибо за помощь smile

Автор: aktuba 15.6.2007, 12:45

Цитата

у меня около 300 строк

Жестоко... Не за что...