Вопрос № 78718: это опять я... никак не получается проклятая программа.... у меня много файлов около 1000, и примерно столько же строк в них, часть файлапредставлениа в исходнике, которую надо обработать след образом мне нужно извлеч информацию идущую после равенств...Вопрос № 78726: Здравствуйте, уважаемые Эксперты! Пишу БД на Ассессе , а клиент на Дельфи. (Через АДО). Мне нужно, чтобы после добавления и корректирования каждой записи в таблицах
БД добавлялась информация в два поля - 1) Кто исправлял/добавлял 2)Дата изменений. Эт...
Вопрос № 78.718
это опять я... никак не получается проклятая программа.... у меня много файлов около 1000, и примерно столько же строк в них, часть файлапредставлениа в исходнике, которую надо обработать след образом мне нужно извлеч информацию идущую после равенства в след выражениях
Sat Jan 13 18:15:21 2007,
SRC-NUMBER-IN=8722608592 его может не быть и это надо учесть в столбце оставить пустое место или многоточие,
DST-NUMBER-IN=79026982262,
DST-NAME=ELLCO,
DIALPEER-NAME=DAG-DAGTELECOM,
ELAPSED-TIME=35
Приложение:
Отправлен: 17.03.2007, 15:25
Вопрос задал: Nastya85 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: din
Здравствуйте, Nastya85!
:) До боли знакомые логи. Mera Soft Switch кажется. Писал я года три назад модуль тарификации под нее и как раз на делфи. Для выборки слов я использовал функцию из RXLib - ExtractWord. Библиотеку прикрепляю, она бесплатная, если у вас не выше Delphi 7 будет работать. Юнит который необходимо подключить называется rxStrUtils. O-o-o-ps ограничение 2 Мб, а она почти 4. Высылайте мыло, или ищите в инете.
Удачи!
--------- Есть только одно зло - невежество, и только одно благо - знания
Ответ отправил: din (статус: Практикант)
Ответ отправлен: 17.03.2007, 16:44
Отвечает: sir henry
Здравствуйте, Nastya85!
Общий алгоритм таков:
1. Читаете строку из файла
ReadLn(f, s);
2. Ищете в строке знак равенства
i:=Pos('=', s);
3. Выделяете подстроку начиная с позиции "="+1 до позиции конец строки-1 (запятая, как я понимаю, Вам не нужна)
Len:=Length(s)-i-2;
substr:=AnsiMidStr(s, i+1, Len);
Все, данные получены.
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 17.03.2007, 19:57
Вопрос № 78.726
Здравствуйте, уважаемые Эксперты! Пишу БД на Ассессе , а клиент на Дельфи. (Через АДО). Мне нужно, чтобы после добавления и корректирования каждой записи в таблицах БД добавлялась информация в два поля - 1) Кто исправлял/добавлял 2)Дата изменений. Это должно вноситься автоматом. Как это можно реализовать в клиенте или на сервере?
Отправлен: 17.03.2007, 17:57
Вопрос задал: Alex446 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Pavel Maltsev
Здравствуйте, Alex446!
Выносить это конечно лучше всего на сервер, я к сожалению не знаю точно функций Acess, но в других СУБД это выглядит так - вешается дефолтное значение на поле, например при создании таблицы:
Ответ отправил: Pavel Maltsev (статус: 2-ой класс)
Ответ отправлен: 17.03.2007, 18:10 Оценка за ответ: 5 Комментарий оценки: Попробу ю такой вариант с обработкой события. Первый вариант я думаю с ассесом не пройдет...
Отвечает: Архангельский Андрей Германович
Здравствуйте, Alex446!
Пробовал делать это на Access - криво и коряво получается. Штатные средства заполнения полей по умолчанию работают некорректно в этом случае.
На Firebird это делается двумя строчками и работает как часики.
Поэтому и работаю на Firebird
--------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 17.03.2007, 18:22 Оценка за ответ: 3 Комментарий оценки: Мне уже поздно переходить под другие БД...