Вопрос № 78587: у меня проблема, есть логи (текстовые файлы без расширения txt) в них имеется информация о звонках, я вот загрузила этот файл в мемо и и написала поиск слова, номне нужно считывать информацию идущую за проеделеными словами до запятой, и отправить в э...
Вопрос № 78.587
у меня проблема, есть логи (текстовые файлы без расширения txt) в них имеется информация о звонках, я вот загрузила этот файл в мемо и и написала поиск слова, номне нужно считывать информацию идущую за проеделеными словами до запятой, и отправить в экзел или в блокнот
мне хотяб пример как это делать... а остальное сама пойму.
Отправлен: 16.03.2007, 16:11
Вопрос задал: Nastya85 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Архангельский Андрей Германович
Здравствуйте, Nastya85!
А чего проще. Переименовать в .txt и открыть как "текстовые файлы с разделителями" ВСЕ!
Также их можно открыть в Access
--------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
//твоя процедура
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