Что такое парсер? Парсер – это программа, которая парсит текст, по заданному алгоритму.
Что такое парсить? Парсить – анализировать и расставлять символы, входящие в текст в соответствии заложенного алгоритма, например, для удобного восприятия текста программистом.
Для чего нужен парсер? Парсер я использую для приведения html тегов к единой структуре: одинаковый размер букв, новый тег на новой строчке, удаление пустых строк.
Keton 0,01 beta
Данная программа представляет собой джонер
файлов. С помощью неё вы сможете склеить два
любых файла, и выбрать настройки при которых
запуск общего файла будет приводить к запуску в
определённом режиме обоих файлов, так же при
запуске вы можете добавить определённый
параметры в системный реестр.
(more…)
Как я и обещал выкладываю свой способ склейки файлов.
Суть метода предельно, до тупого проста и понятна всем.
В исходник программы носителя добавляется приведённая ниже
процедура: Joiner. А дальше где-нибудь в программе
устанавливется её вызов, например в начале основной части
или, если её нет в функции FormCreate, в общем где посчитаете
нужно, там и ставите… Далее действуем так: у нас есть
два файла например nositel.exe-файл-носитель и Joined.exe —
клеимый файл. Размещаем эти файлы в одном каталоге, запускаем
nositel.exe в этом же каталоге образуется файл nositel.exe.exe
он представляет собой уже склееные два файла nositel.exe и
Joined.exe с добавленной в DOS-заголовке меткой склеености)))
В общем-то если вы все параметры правильно ввели то у всё
уже готово))… Переименовываем nositel.exe.exe в рабочее имя
и можем его применять… при запуске этого файла он извлекает
приклееную прогу в указанное в параметре место и в зависимости
от выбранный парамтров запускает или нет с выбранным способом
отображения окна)))
(more…)
Наверно все читали мою статью про упаковку файлов с помощью библиотеки ZLib в Delphi. В ней написано, как можно архивировать файлы почти с той же степенью сжатия, как и ZIP. Но я описал, как можно архивировать только единичные файлы. По многочисленным заявкам читателей я пишу ещё одну статью про архивирование целых папок.
Для того, что бы архивировать папку, давайте сначала научимся склеивать все файлы, находящиеся в некоторой папке. Давайте сначала разберёмся с форматом этого склеенного файла, а будут он примерно таким
Первые четыре байта будет составлять сигнатура, которая будет обозначать, что это файл нашего формата
Следующие четыре байта будут обозначать количество файлов в этом склеенном файле
Потом будет идти массив структур, который будет описывать все файлы в этом склеенном файле, каждая структура будет иметь вот такой формат
(more…)
Первое что я рассмотрю это копирование файлов:
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile('Откуда\Имя файла','Куда\Новое имя файла',true)
// если файл с таким же именем уже есть то true - если заменять или false если оставить прошлую копию файла
end; Запись в файл:
program CrtApp;
var
outfile: TextFile;
begin
AssignFile(outfile, 'c:\outfile.txt'); // связываем переменную с файла в который будем писать
Rewrite(outfile);
writeln(outfile, 'Привет МИР!'); // Запись в файл 'c:\outfile.txt' легендарного текста
CloseFile(outfile); // обязательно закрываем файл
end. Печать текста сразу на принтер:
(more…)
