Translations

This commit is contained in:
Georgy Litvinov 2020-05-04 14:28:39 +02:00
parent 597df6dab5
commit a4ca08b952
5 changed files with 223 additions and 94 deletions

View file

@ -1,7 +1,10 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Translations" script:language="StarBasic" script:moduleType="normal">
Function getTranslation(lang As String, identifier As String) As String
Function getTranslation(identifier As String) As String
Globalscope.BasicLibraries.LoadLibrary( &quot;Tools&quot; )
Dim lang As String
lang = GetStarOfficeLocale().Language
Select Case lang
Case &quot;ru&quot;
getTranslation = getRussian(identifier)
@ -13,75 +16,183 @@ Function getTranslation(lang As String, identifier As String) As String
End Function
Function getRussian(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getRussian = &quot;Файл-шаблон, содержащий стили для загрузки в документ не был задан. &quot; &amp; chr(10) &amp;&quot;Вы можете выбрать новый файл-шаблон. &quot; &amp; chr(10) &amp; &quot;Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getRussian = &quot;Вы хотите запустить чистку документа? &quot; &amp; chr(10) &amp; &quot;Здесь Вы можете также указать новый файл-шаблон.&quot; &amp; chr(10) &amp; &quot;Стили из шаблона будут загружены в документ.&quot;
Exit Function
Case &quot;buttonOk&quot;
getRussian = &quot;Да&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getRussian = &quot;Подтверждение запуска чистки&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getRussian = &quot;Файл со стилями не найден&quot;
Exit Function
Case &quot;buttonTemplateNotFoundSkip&quot;
getRussian = &quot;Продолжить&quot;
Exit Function
Case &quot;buttonStop&quot;
getRussian = &quot;Нет&quot;
Exit Function
Case &quot;buttonLoad&quot;
getRussian = &quot;Указать шаблон&quot;
Exit Function
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getRussian = &quot;Файл-шаблон, содержащий стили для загрузки в документ не был задан. &quot; &amp; chr(10) &amp;&quot;Вы можете выбрать новый файл-шаблон. &quot; &amp; chr(10) &amp; &quot;Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getRussian = &quot;Вы хотите запустить чистку документа? &quot; &amp; chr(10) &amp; &quot;Здесь Вы можете также указать новый файл-шаблон.&quot; &amp; chr(10) &amp; &quot;Стили из шаблона будут загружены в документ.&quot;
Exit Function
Case &quot;buttonYes&quot;
getRussian = &quot;Да&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getRussian = &quot;Подтверждение запуска чистки&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getRussian = &quot;Файл со стилями не найден&quot;
Exit Function
Case &quot;buttonTemplateNotFoundSkip&quot;
getRussian = &quot;Продолжить&quot;
Exit Function
Case &quot;buttonStop&quot;
getRussian = &quot;Нет&quot;
Exit Function
Case &quot;buttonLoad&quot;
getRussian = &quot;Указать шаблон&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getRussian = &quot;Указать файл&quot;
Exit Function
getRussian = &quot;Указать файл&quot;
Exit Function
Case &quot;cleaningFinished&quot;
getRussian = &quot;Чистка завершена&quot;
Exit Function
getRussian = &quot;Чистка завершена&quot;
Exit Function
Case &quot;advancedMenuDialogTitle&quot;
getRussian = &quot;Чистка в экспертном режиме &quot;
Exit Function
Case &quot;buttonCancel&quot;
getRussian = &quot;Отмена&quot;
Exit Function
Case &quot;buttonOK&quot;
getRussian = &quot;Запуск&quot;
Exit Function
Case &quot;advancedMenuRemoveBasic&quot;
getRussian = &quot;Удалить макросы из файла&quot;
Exit Function
Case &quot;advancedMenuRemoveManualPageBreaks&quot;
getRussian = &quot;Удалить ручные разрывы страниц&quot;
Exit Function
Case &quot;advancedMenuLoadStandardStyles&quot;
getRussian = &quot;Загрузить стили из шаблона&quot;
Exit Function
Case &quot;advancedMenuRemovePageStyles&quot;
getRussian = &quot;Удалить пользовательские стили страниц&quot;
Exit Function
Case &quot;advancedMenuRemoveInitPageBreak&quot;
getRussian = &quot;Удалить разрыв страницы в начале документа&quot;
Exit Function
Case &quot;advancedMenuFixMistakes&quot;
getRussian = &quot;Исправить часто встречающиеся ошибки&quot;
Exit Function
Case &quot;advancedMenuConfigAnchors&quot;
getRussian = &quot;Настроить привязки изображений для электронных публикаций&quot;
Exit Function
Case &quot;advancedMenuConfigTables&quot;
getRussian = &quot;Настроить таблицы для электронных публикаций&quot;
Exit Function
Case &quot;advancedMenuRemoveBookmarks&quot;
getRussian = &quot;Удалить закладки&quot;
Exit Function
Case &quot;advancedMenuRemoveLinks&quot;
getRussian = &quot;Удалить ссылки&quot;
Exit Function
Case &quot;advancedMenuRemoveUnusedStyles&quot;
getRussian = &quot;Удалить неиспользуемые стили&quot;
Exit Function
Case &quot;advancedMenuReplaceWhiteBackground&quot;
getRussian = &quot;Заменить белый фон символов на прозрачный&quot;
Exit Function
Case &quot;advancedMenuCleanFormatting&quot;
getRussian = &quot;Очистить форматирование&quot;
Exit Function
Case &quot;advancedMenuSymbolsConversion&quot;
getRussian = &quot;Произвести конвертацию символов&quot;
Exit Function
Case &quot;advancedMenuReplaceFontsInStyles&quot;
getRussian = &quot;Заменить шрифты стилях&quot;
Exit Function
Case Else
getRussian = getEnglish(identifier)
getRussian = &quot;Перевод не найден&quot;
End Select
End Function
Function getEnglish(identifier As String) As String
Select Case identifier
Case &quot;noFileWithStylesFound&quot;
getEnglish = &quot;Template with styles wasn&apos;t found. You can choose template on your computer.&quot; &amp; chr(10) &amp;&quot; This stage of cleaning will be skipped if no file chosen.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getEnglish = &quot;Do you want to start document cleaning?&quot; &amp; chr(10) &amp; &quot;You can choose template with styles.&quot; &amp; chr(10) &amp; &quot;Styles will be loaded in process of cleaning.&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getEnglish = &quot;Template file not found&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getEnglish = &quot;Confirmation&quot;
Exit Function
Case &quot;noFileWithStylesFound&quot;
getEnglish = &quot;Template with styles wasn&apos;t found. You can choose template on your computer.&quot; &amp; chr(10) &amp;&quot; This stage of cleaning will be skipped if no file chosen.&quot;
Exit Function
Case &quot;startQuietCleaningDescription&quot;
getEnglish = &quot;Do you want to start document cleaning?&quot; &amp; chr(10) &amp; &quot;You can choose template with styles.&quot; &amp; chr(10) &amp; &quot;Styles will be loaded in process of cleaning.&quot;
Exit Function
Case &quot;buttonYes&quot;
getEnglish = &quot;Ok&quot;
Exit Function
Case &quot;quietStartCleaningTitle&quot;
getEnglish = &quot;Confirmation&quot;
Exit Function
Case &quot;noStylesFileDialogTitle&quot;
getEnglish = &quot;Template file not found&quot;
Exit Function
Case &quot;buttonTemplateNotFoundSkip&quot;
getRussian = &quot;Proceed&quot;
Exit Function
Case &quot;buttonOk&quot;
getEnglish = &quot;Ok&quot;
Exit Function
Case &quot;buttonStop&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonLoad&quot;
getEnglish = &quot;Set template&quot;
Exit Function
getEnglish = &quot;Proceed&quot;
Exit Function
Case &quot;buttonStop&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonLoad&quot;
getEnglish = &quot;Set template&quot;
Exit Function
Case &quot;buttonNameToSelectFileWithStyles&quot;
getEnglish = &quot;Select file&quot;
Exit Function
getEnglish = &quot;Select file&quot;
Exit Function
Case &quot;cleaningFinished&quot;
getEnglish = &quot;Cleaning is completed&quot;
Exit Function
getEnglish = &quot;Cleaning is completed&quot;
Exit Function
Case &quot;advancedMenuDialogTitle&quot;
getEnglish = &quot;Advanced cleaning&quot;
Exit Function
Case &quot;buttonCancel&quot;
getEnglish = &quot;Cancel&quot;
Exit Function
Case &quot;buttonOK&quot;
getEnglish = &quot;Start&quot;
Exit Function
Case &quot;advancedMenuRemoveBasic&quot;
getEnglish = &quot;Remove macro from file&quot;
Exit Function
Case &quot;advancedMenuRemoveManualPageBreaks&quot;
getEnglish = &quot;Remove manual page breaks&quot;
Exit Function
Case &quot;advancedMenuLoadStandardStyles&quot;
getEnglish = &quot;Load styles from template&quot;
Exit Function
Case &quot;advancedMenuRemovePageStyles&quot;
getEnglish = &quot;Remove custom page styles&quot;
Exit Function
Case &quot;advancedMenuRemoveInitPageBreak&quot;
getEnglish = &quot;Remove page break at document start&quot;
Exit Function
Case &quot;advancedMenuFixMistakes&quot;
getEnglish = &quot;Remove frequent mistakes&quot;
Exit Function
Case &quot;advancedMenuConfigAnchors&quot;
getEnglish = &quot;Configure image anchors for digital publications&quot;
Exit Function
Case &quot;advancedMenuConfigTables&quot;
getEnglish = &quot;Configure tables for digital publications&quot;
Exit Function
Case &quot;advancedMenuRemoveBookmarks&quot;
getEnglish = &quot;Remove bookmarks&quot;
Exit Function
Case &quot;advancedMenuRemoveLinks&quot;
getEnglish = &quot;Remove links&quot;
Exit Function
Case &quot;advancedMenuRemoveUnusedStyles&quot;
getEnglish = &quot;Remove unused styles&quot;
Exit Function
Case &quot;advancedMenuReplaceWhiteBackground&quot;
getEnglish = &quot;Replace white symbol back with transparent&quot;
Exit Function
Case &quot;advancedMenuCleanFormatting&quot;
getEnglish = &quot;Clean manual formatting&quot;
Exit Function
Case &quot;advancedMenuSymbolsConversion&quot;
getEnglish = &quot;Convert symbols&quot;
Exit Function
Case &quot;advancedMenuReplaceFontsInStyles&quot;
getEnglish = &quot;Replace fonts in styles&quot;
Exit Function
Case Else
getEnglish = &quot;No translation&quot;
End Select