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

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

  Все выпуски  

RusFAQ.ru: СУБД и Delphi


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

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

Выпуск № 293
от 22.03.2007, 12:35

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


Вопрос № 78587: у меня проблема, есть логи (текстовые файлы без расширения txt) в них имеется информация о звонках, я вот загрузила этот файл в мемо и и написала поиск слова, номне нужно считывать информацию идущую за проеделеными словами до запятой, и отправить в э...

Вопрос № 78.587
у меня проблема, есть логи (текстовые файлы без расширения txt) в них имеется информация о звонках, я вот загрузила этот файл в мемо и и написала поиск слова, номне нужно считывать информацию идущую за проеделеными словами до запятой, и отправить в экзел или в блокнот
мне хотяб пример как это делать... а остальное сама пойму.
Отправлен: 16.03.2007, 16:11
Вопрос задал: Nastya85 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

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

А чего проще. Переименовать в .txt и открыть как "текстовые файлы с разделителями" ВСЕ!
Также их можно открыть в Access
---------
Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 16.03.2007, 16:19

Отвечает: Pavel Maltsev
Здравствуйте, Nastya85!

Все очень просто -

uses .... ,ShellAPI;
...

//твоя процедура
var
SL: TStringList;
SL := TStringList.Create;
try
Пробегаешься по всем записям в Memo
for i := 0 to Memo.Lines.Count -1 do
begin
//находишь данные до запятой
//см. функции Pos и MidStr
далее заносишь эти данные в StringList
SL.Add(..)
end;
//сохраняешь строки в файл
SL.SaveToFile('c:phone_tmp.txt');
//и открываешь этот файл редактором по умолчанию - т.е. блокнотом
ShellExecute(Application.Handle, 'open', PChar('c:phone_tmp.txt'), PChar('c:'), nil, SW_NORMAL);
finally
SL.Free;
end;

--
Удачи! Думаю с функциями Pos, MidStr Вы разберетесь :-)
Ответ отправил: Pavel Maltsev (статус: 2-ой класс)
Ответ отправлен: 16.03.2007, 16:21


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

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

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

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

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала 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

В избранное