litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Added translations for endnotes check

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-03 16:13:34 +02:00
parent 17c5b58f7d
commit 4a9611ce1a
2 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
Redaction/Translations.xba
View file

@ -205,6 +205,9 @@ Function getRussian(identifier As String) As String
Exit Function
Case "documentIsReadOnly"
getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
Exit Function
Case "validateEndnotes1"
getRussian = "в концевой сноске (абсолютный номер)"
Exit Function
Case Else
getRussian = "Перевод не найден"
@ -393,6 +396,9 @@ Function getEnglish(identifier As String) As String
Exit Function
Case "documentIsReadOnly"
getEnglish = "The document is read-only. Cleaning cannot be started in this mode."
Exit Function
Case "validateEndnotes1"
getEnglish = "in endnote (absolute number)"
Exit Function
Case Else
getEnglish = "No translation"
@ -581,7 +587,10 @@ Function getCroatian(identifier As String) As String
Case "documentIsReadOnly"
getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
Exit Function
Case Else
Case "validateEndnotes1"
getCroatian = "u end fusnoti (apsolutni broj)"
Exit Function
Case Else
getCroatian = "No translation"
End Select
End Function
@ -768,6 +777,9 @@ Function getSerbian(identifier As String) As String
Case "documentIsReadOnly"
getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
Exit Function
Case "validateEndnotes1"
getSerbian = "у end фусноти (апсолутни број)"
Exit Function
Case Else
getSerbian = "No translation"
End Select
@ -955,6 +967,9 @@ Function getBosnian(identifier As String) As String
Case "documentIsReadOnly"
getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
Exit Function
Case "validateEndnotes1"
getBosnian = "u end fusnoti (apsolutni broj)"
Exit Function
Case Else
getBosnian = "No translation"
End Select

4
Redaction/Validation.xba
View file

@ -1,6 +1,6 @@
<?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="Validation" script:language="StarBasic">Sub markval3
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval4
End Sub
@ -158,7 +158,7 @@ Private Function noteSingsCheck() As String
For j = 1 to charNum
char = Asc(Right(Left(label,j),1))
If char &gt;= 57344 AND char &lt;= 63743 then
result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes2&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
result = result &amp; getTranslation(&quot;validateFootnotes1&quot;) &amp; &quot; &quot; &amp; Chr(char) &amp; &quot; &quot; &amp; getTranslation(&quot;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10)
End If
Next j
Next i