Пишем программу для создания книг FB2
Шрифт:
OutList.Add(' <lang>'+Lang.Text+'</lang>');
if SLang.ItemIndex > -1 then
begin
S:= Lg[SLang.ItemIndex][1];
if S <> '' then
OutList.Add(' <src-lang>'+S+'</src-lang>');
end;
OutList.Add(' </title-info>');
// **** document-info ****
OutList.Add(' <document-info>');
OutList.Add(' <program-used>my_Make_FB2</program-used>');
PrintString('src-url', url.Text); //??
OutList.Add(' <date value="'+FormatDateTime('yyyy-mm-dd', Now)+'">'+ DateToStr(now) +'</date>');
PrintString('id', id.Text); //??
OutList.Add(' <version>1.0</version>');
OutList.Add(' </document-info>');
// **** publish-info ****
OutList.Add(' <publish-info>');
if Book_name.Text = ''
then PrintString('book-name', book_title.Text)
else PrintString('book-name', Book_name.Text);
PrintString('publisher', publisher.Text); //
PrintString('city', city.Text); //
PrintString('year', year.Text); //
PrintString('isbn', isbn.Text); //
//OutList.Add(' <version>1.0</version>');
OutList.Add(' </publish-info>');
end;
OutList.Add(' </description>');
OutList.Add('<body>');
end;
function SubStyle(m,w: TmyStyle):integer;
begin
result:= integer(m) - integer(w);
end;
procedure SaveBodyFB2;
var
i, j: integer;
S, ss: string;
oldStyle,
LastStyle, CurStyle: TmyStyle; // style
procedure StyleStucture;
begin
if CurStyle <> oldStyle then
begin
if SytleStack.Count = 0 then
begin
SytleStack.Add(TObject(CurStyle))
end
else
begin
LastStyle:= TmyStyle(SytleStack.Last);
case SubStyle(CurStyle,LastStyle) of
0: OutList.Add('</section>');
1: SytleStack.Add(TObject(CurStyle));
else
begin
OutList.Add('</section>');
while CurStyle <> LastStyle do
begin
SytleStack.Delete(SytleStack.Count-1);
OutList.Add('</section>');
LastStyle:= TmyStyle(SytleStack.Last);
end;
end;
end;// case
end;
OutList.Add('<section>');
OutList.Add('<title>');
end;
OutList.Add(''+s+'');
end; // StyleStucture;
begin
oldStyle:= ZZ; EndNotes_count:= 1;
// if
OutList.Add('<section>');
with Form1.ListBox1 do
for i:= 0 to Count - 1 do //
begin
S:= Items[i];
Ss:= GetStyle(S, CurStyle); // получаем чистую строку и стиль
s:= '';
if ss <> '' then
for j:= 1 to length(Ss) do
begin // просматриваем строку
case ss[j] of
'~': begin // если это концевая сноска
S:= S + '<a l: href="#" type="note">'
+IntToStr(EndNotes_count)+'</a>';
inc(EndNotes_count); // увеличиваем счетчик сносок
end;
'^': S:= S + ''; // ставим ударение
else S:= S + ss[j];
end; // case
end;
if (S = '') and (CurStyle <> Poem)
then
begin
OutList.Add('<empty-line/>');
continue;
end;
if (CurStyle <> oldStyle) and (CurStyle <> Auth) then
begin
case oldStyle of // завершение предыдущего блока
Poem: OutList.Add('</stanza></poem>');
Epig: OutList.Add('</epigraph>');
Citat: OutList.Add('</cite>');
H1..H5: OutList.Add('</title>');
end; // case завершение предыдущего блока
case CurStyle of // начало блока
Poem: OutList.Add('<poem><stanza>');
Epig: OutList.Add('<epigraph>');
Citat: OutList.Add('<cite>');
end; // case начало блока
end;
// анализ стилей
case CurStyle of // в зависимости от стиля абзаца
Norm,Epig,Citat: OutList.Add(''+S+'');
H1..H5: StyleStucture; // Heading
Sub: OutList.Add('<subtitle>'+s+'</subtitle>'); // Subtitle
Poem: begin
if S = ''
then OutList.Add('</stanza><stanza>')
else OutList.Add('<v>'+S+'</v>');
end;
Auth: begin
OutList.Add('<text-author>'+S+'</text-author>');
if oldStyle in [Poem, Epig, Citat]
then CurStyle:= oldStyle;
end;
None: continue; //None
end; // case
oldStyle:= CurStyle;
end; // for просмотр текста
if SytleStack.Count > 0 then
begin // закрываем все открытые секции
while SytleStack.Count > 0 do
begin
SytleStack.Delete(SytleStack.Count-1);