VPF::Вопрос по регулярным выражениям

Delp

Дата 15.6.2007, 10:16 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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

Есть фай к ктором может быть около 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 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

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

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

Delp

Дата 15.6.2007, 10:46 (ссылка)

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

Загрузка ...

Новичок

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

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

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

aktuba

Дата 15.6.2007, 11:49 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата

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

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 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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

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

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

aktuba

Дата 15.6.2007, 12:45 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата

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

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

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

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