сконвертировать текстовый файл с программой на языке Паскаль в RTF-формат

[alldar]

Здравствуйте всем!

Подскажите начинающему!

Как сконвертировать текстовый файл с программой на языке Паскаль в RTF-формат. Необходимо выделить с помощью курсива, подчеркивания или полужирного шрифта комментарии в программе, служебные слова (begin, end, case).

Помогите разобраться! Спасибо!

[p51x]

Берете исходник и парсите, формируя ртф-теги

[Serge_Bliznykov]

к словам p51x добавлю, что если задача стоит просто оформить исходник (а не написать такую программу),то уже есть инструменты, которые это умеют делать.

например, в Delphi есть эксперт GExperts
в него входит модуль Source Export...
(p.s. кстати, данный эксперт бесплатен и распространяется в исходных кодах, поэтому его код можно взять за основу своей программы. Только, конечно, так код не на Pascal, а на ObjectPascal (на Delphi)


p.s. если нужно просто сконвертировать исходник в RTF - давайте исходник, я сконвертирую...

[alldar]

Серж, тут как я понял берется любой документ в блокноте и конвертируется в (.rtf , .doc), но как, так и не разобрался? Одним словом в голове каша!

Подскажите хотя бы азы с чего начать! (и мне именно нужна программка). Спасибо!

С уважением, Вячеслав

[Serge_Bliznykov]

Подскажите хотя бы азы с чего начать! (и мне именно нужна программка). Спасибо!

Вам нужно "всёго-навсего" приизвести Лексический анализ кода.
В результате этого разбора Вы получаете набор токенов (лексем).
Дальше можно применить синтаксический анализ, а можно и проще, просто определить что представляет собой данная лексема - это константа (и если да - то какого типа), переменная, ключевое слово, комментарий и т.д.
(в этом случае, в отличие от синтаксического анализа, Ваша программа нормально скушает такой "код"

end begin end; for 'a' = var 1 to ; begin do do while 1:='x';

но ведь задачи проверить код на правильность у Вас не стоит?!
А для выделения ключевых моментов (для вашего задания) этого разбора будет вполне достаточно...

[Tronix]

Нужно описание RTF-формата, например тут можно почитать: http://www.codenet.ru/progr/formt/rtf1.php Правда там не полное, но для сабжа должно хватить.

[Serge_Bliznykov]

кстати, ещё раз перечитал условия задачи...

если понимать их БУКВАЛЬНО,
то задача ещё больше упрощается.
Нужно распарсить исходный текст (по разделителям) , попутно обнаруживая комментарии (в Паскаль их всего два вида и оба имеют открывающий маркер и закрывающий) и выделить ТРИ ключевых слова (begin, end, case)
Это элементарно делается в один единственный проход по исходному тексту..

[alldar]

program converter; ▲
║uses crt; ■
║var txt, rtf: text; ▒
║ txt_str,rtf_str,filen: string; ▒
║ x,y: integer; ▒
║begin ▒
║{Начало} ▒
║clrscr; ▒
║writeln(' ConVert ver.1.0'); ▒
║writeln('Программа конвертирует *.txt файл в *.rtf документ'); ▒
║writeln; ▒
║writeln('Введите имя текстового файла:'); ▒
║readln(filen); ▒
║{/Начало} ▒
║ ▒
║assign(txt,filen+'.txt'); {Связываем текстовый файл} ▒
║assign(rtf,filen+'.rtf'); {Связываем rtf файл} ▒
║ ▒
║rewrite(rtf); {Перезвписываем rtf} ▲
║reset(txt); {Перазагружаем txt} ▒
║readln(txt); {Открываем для считывания txt} ▒
║ ▒
║writeln('Создание RTF документа...'); ▒
║{Вставляем первоначальные RTF теги} ▒
║write(rtf,'{\rtf1 {\b TXT to RTF \par \par'+filen+'}\par {\fonttbl Times New R▒
║ ■
║{Цикл считывает и заполният инфу} ▒
║{из текстового в rtf документ} ▒
║{пока не наступит конец txt файла - eof "End Of File"} ▒
║while not(eof(txt)) do ▒
║ begin ▒
║ {если находим конец строки - eoln "End Of LiNe"} ▲
║ if (eoln(txt)) then ▒
║ begin ▒
║ writeln(rtf,'\par \par'); {rtf теги оклнчания строки "параграф"} ▒
║ end; ▒
║ readln(txt,txt_str); {считывание txt} ▒
║ writeln(rtf,txt_str); {запись rtf} ▒
║end; ▒
║ ▒
║write(rtf,' }\par }'); {rtf тег окончания документа} ▒
║ ▒
║{Закрываем файлы} ▒
║close(rtf); ■
║close(txt); ▒
║ ▒
║ ▒
║writeln('Программа завершена. Нажмите Enter'); ▒
║{Конец} ▒
║readln; ▒
║end.