Полигон-2

Позавчера начал разрабатывать оболочку под 16 разрядные версии Windows (Win 3.1, Win 3.11 for Workgroups), которая конвертирует FB2 в TXT, то есть удаляет из исходного файла "лишние" теги (которые мало чем отличается от тегов HTML).

Разрабатывалась в Delphi 1.0, проверял на Windows 3.1 (полет нормальный).



Программа еще не совсем готова, осталось только решить проблему обрезания длинных строк (> 255 символов).

Про тип данных AnsiString и WideString (который используется в Delphi начиная с 5 версии и заканчивая XE4) Delphi 1 ничего не знает, так что приходится пользоваться типом String, который как и в языке Turbo Pascal имеет максимальную длину 255 символов.

wdfm написал:

[q]

Про тип данных AnsiString и WideString (который используется в Delphi начиная с 5 версии и заканчивая XE4) Delphi 1 ничего не знает

[/q]

А зачем тебе длинные строки? Ты же в своем конвертере содержимое файла нигде не отображаешь. Открывай его просто как бинарный файл и через BlockRead загоняй в какой-то буфер произвольного размера, в буфере вычищай теги, и через BlockWrite в выходной файл.

DrPass написал:

[q]

А зачем тебе длинные строки?

[/q]

Он хочет искать текстовые последовательности "стринговым" функционалом... Хотя словарик FB2 тегов в бинарном виде был-бы полезнее. Накрайняк - в виде символьных массивов, если костыли так нравятся...

DrPass написал:

[q]

вычищай теги, и через BlockWrite в выходной файл

[/q]

Тут нуна следить за длиной буфера - записанных блоков будет меньше, чем прочитанных. Или держать в памяти два буфера и перегонять байты из одного в другой с одновременным выковыриванием тегов.
Но это неинтересно ни разу!
Гораздо интереснее запросить у юзверя результирующий формат "страницы", сверстать, согласно тегов, весь исходный файл и уже после - заменить получившиеся отступы пробелами, длинные тире - дефисами, и подсчитав количество символов в строке (изначально рассчитываем на моноширинный шрифт, в досе другого нет) расставить переносы. Теперь можно вывести резалт в текстовый файл.