Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: СУБД и Delphi/Lazarus

  Все выпуски  

RusFAQ.ru: СУБД и Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / СУБД и Delphi

Выпуск № 294
от 23.03.2007, 13:05

Администратор:Gh0stik
В рассылке:Подписчиков: 307, Экспертов: 43
В номере:Вопросов: 2, Ответов: 4


Вопрос № 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, но в других СУБД это выглядит так - вешается дефолтное значение на поле, например при создании таблицы:

create table t1(
id int,
UserName VARCHAR(255) default CurrentUser(),
CrDate DATETIME Date()
);
--

Если в делфях то тоже просто - обрабатывай события OnAfterInsert у ADOQuery:

DataSet('UserName').AsString := username;
DataSet('CrDate').AsDateTime := Now();
Ответ отправил: Pavel Maltsev (статус: 2-ой класс)
Ответ отправлен: 17.03.2007, 18:10
Оценка за ответ: 5
Комментарий оценки:
Попробу ю такой вариант с обработкой события. Первый вариант я думаю с ассесом не пройдет...

Отвечает: Архангельский Андрей Германович
Здравствуйте, Alex446!

Пробовал делать это на Access - криво и коряво получается. Штатные средства заполнения полей по умолчанию работают некорректно в этом случае.
На Firebird это делается двумя строчками и работает как часики.
Поэтому и работаю на Firebird
---------
Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 17.03.2007, 18:22
Оценка за ответ: 3
Комментарий оценки:
Мне уже поздно переходить под другие БД...


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.46 от 18.03.2007
Яндекс Rambler's Top100

В избранное