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

Replaces footnote signs report with navigated report

Browse source
This commit is contained in:
Georgy Litvinov 2021-06-07 12:06:27 +02:00
parent 42682e4331
commit 7e77039620
3 changed files with 197 additions and 162 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
Redaction/Translations.xba
View file

@ -108,7 +108,7 @@ Function getRussian(identifier As String) As String
getRussian = "Конвертировать символы в целевые свободные шрифты" getRussian = "Конвертировать символы в целевые свободные шрифты"
Exit Function Exit Function
Case "advancedMenuReplaceFontsInStyles" Case "advancedMenuReplaceFontsInStyles"
getRussian = "Заменить шрифты стилях" getRussian = "Заменить шрифты в стилях"
Exit Function Exit Function
Case "statusStarted" Case "statusStarted"
getRussian = "Чистка документа начата, подождите" getRussian = "Чистка документа начата, подождите"
@ -159,7 +159,7 @@ Function getRussian(identifier As String) As String
getRussian = "Перед публикацией документа следует исправить все найденные замечания." getRussian = "Перед публикацией документа следует исправить все найденные замечания."
Exit Function Exit Function
Case "validationBadSymbolsNotification" Case "validationBadSymbolsNotification"
getRussian = "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами." getRussian = "В тексте обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными отрывками с неподходящими символами."
Exit Function Exit Function
Case "validationBadDrawings" Case "validationBadDrawings"
getRussian = "В документе найдены рисунки (" getRussian = "В документе найдены рисунки ("
@ -216,7 +216,7 @@ Function getRussian(identifier As String) As String
getRussian = "Раздел" getRussian = "Раздел"
Exit Function Exit Function
Case "isInTable" Case "isInTable"
getRussian = "находится внутри таблицы." getRussian = "находится внутри таблицы"
Exit Function Exit Function
Case "foundHeadingIn" Case "foundHeadingIn"
getRussian = "Найден заголовок в" getRussian = "Найден заголовок в"
@ -308,6 +308,12 @@ Function getRussian(identifier As String) As String
Case "badSymbols" Case "badSymbols"
getRussian = "Неподходящие для публикации символы" getRussian = "Неподходящие для публикации символы"
Exit Function Exit Function
Case "badNoteSings"
getRussian = "Неподходящие для публикации символы сносок"
Exit Function
Case "validationBadFootnotesSymbolsNotification"
getRussian = "В символах сносок обнаружены не подходящие для публикации символы." & chr(10) & " Нажимая на стрелки навигатора вы сможете перемещаться между найденными символами сносок."
Exit Function
Case Else Case Else
getRussian = "Перевод не найден" getRussian = "Перевод не найден"
End Select End Select
@ -320,7 +326,7 @@ Function getEnglish(identifier As String) As String
getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen." getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen."
Exit Function Exit Function
Case "startQuietCleaningDescription" Case "startQuietCleaningDescription"
getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." & chr(10) & ""
Exit Function Exit Function
Case "buttonYes" Case "buttonYes"
getEnglish = "Ok" getEnglish = "Ok"
@ -449,7 +455,7 @@ Function getEnglish(identifier As String) As String
getEnglish = "It is recommended to fix all problems before publication." getEnglish = "It is recommended to fix all problems before publication."
Exit Function Exit Function
Case "validationBadSymbolsNotification" Case "validationBadSymbolsNotification"
getEnglish = "Unsuitable symbols were found" & chr(10) & " Now you will get the list with bad symbols." getEnglish = "Unsuitable symbols were found." & chr(10) & " By clicking on the arrows of the navigator, you can navigate between the found passages with inappropriate characters. "
Exit Function Exit Function
Case "validationBadDrawings" Case "validationBadDrawings"
getEnglish = "Drawings was found (" getEnglish = "Drawings was found ("
@ -506,7 +512,7 @@ Function getEnglish(identifier As String) As String
getEnglish = "Section" getEnglish = "Section"
Exit Function Exit Function
Case "isInTable" Case "isInTable"
getEnglish = "located inside the table." getEnglish = "located inside the table"
Exit Function Exit Function
Case "foundHeadingIn" Case "foundHeadingIn"
getEnglish = "Found heading in" getEnglish = "Found heading in"
@ -598,6 +604,12 @@ Function getEnglish(identifier As String) As String
Case "badSymbols" Case "badSymbols"
getEnglish = "Unsuitable for publishing characters" getEnglish = "Unsuitable for publishing characters"
Exit Function Exit Function
Case "badNoteSings"
getEnglish = "Unsuitable for publishing footnote symbols "
Exit Function
Case "validationBadFootnotesSymbolsNotification"
getEnglish = "Unsuitable for publication symbols were found in footnote symbols. "& Chr (10) &" By clicking on the navigator arrows, you can navigate between found footnote symbols. "
Exit Function
Case Else Case Else
getEnglish = "No translation" getEnglish = "No translation"
End Select End Select
@ -738,7 +750,7 @@ Function getCroatian(identifier As String) As String
getCroatian = "Svi pronađeni primedbe moraju biti ispravljeni pre objavljivanja dokumenta." getCroatian = "Svi pronađeni primedbe moraju biti ispravljeni pre objavljivanja dokumenta."
Exit Function Exit Function
Case "validationBadSymbolsNotification" Case "validationBadSymbolsNotification"
getCroatian = "U tekstu su pronađeni ne prikladni karaktera. " & chr(10) & "Sada ćete dobiti lista odlomaka teksta sa sličnim znakovima" getCroatian = "U tekstu su pronađeni ne prikladni karaktera. " & chr(10) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima."
Exit Function Exit Function
Case "validationBadDrawings" Case "validationBadDrawings"
getCroatian = "U dokumentu se nalaze crteži (" getCroatian = "U dokumentu se nalaze crteži ("
@ -795,7 +807,7 @@ Function getCroatian(identifier As String) As String
getCroatian = "Odjeljak" getCroatian = "Odjeljak"
Exit Function Exit Function
Case "isInTable" Case "isInTable"
getCroatian = "smještene unutar stola." getCroatian = "smještene unutar stola"
Exit Function Exit Function
Case "foundHeadingIn" Case "foundHeadingIn"
getCroatian = "Naslov pronađen u" getCroatian = "Naslov pronađen u"
@ -887,6 +899,12 @@ Function getCroatian(identifier As String) As String
Case "badSymbols" Case "badSymbols"
getCroatian = "Neprimjerene znakova za objavljivanje" getCroatian = "Neprimjerene znakova za objavljivanje"
Exit Function Exit Function
Case "badNoteSings"
getCroatian = "Neprikladni simboli fusnota "
Exit Function
Case "validationBadFootnotesSymbolsNotification"
getCroatian = "U simbolima fusnota pronađeni su neprikladni za objavljivanje simboli. "& Chr (10) &" Klikom na strelice navigatora možete se kretati između pronađenih simbola fusnota. "
Exit Function
Case Else Case Else
getCroatian = "No translation" getCroatian = "No translation"
End Select End Select
@ -1027,7 +1045,7 @@ Function getSerbian(identifier As String) As String
getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа." getSerbian = "Сви пронађени примедбе морају бити исправљени пре објављивања документа."
Exit Function Exit Function
Case "validationBadSymbolsNotification" Case "validationBadSymbolsNotification"
getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Сада ћете добити листа одломака текста са сличним знаковима " getSerbian = "У тексту су пронађени не прикладни карактера. " & chr(10) & "Кликом на стрелице навигатора можете се кретати између пронађених одломака са неприкладним знаковима."
Exit Function Exit Function
Case "validationBadDrawings" Case "validationBadDrawings"
getSerbian = "У документу се налазе цртежи (" getSerbian = "У документу се налазе цртежи ("
@ -1084,7 +1102,7 @@ Function getSerbian(identifier As String) As String
getSerbian = "Одјељак" getSerbian = "Одјељак"
Exit Function Exit Function
Case "isInTable" Case "isInTable"
getSerbian = "смештене унутар стола." getSerbian = "смештене унутар стола"
Exit Function Exit Function
Case "foundHeadingIn" Case "foundHeadingIn"
getSerbian = "Наслов пронађен у" getSerbian = "Наслов пронађен у"
@ -1176,6 +1194,12 @@ Function getSerbian(identifier As String) As String
Case "badSymbols" Case "badSymbols"
getSerbian = "Неодговарајуће знакова за објављивање" getSerbian = "Неодговарајуће знакова за објављивање"
Exit Function Exit Function
Case "badNoteSings"
getSerbian = "Неприкладни симболи фуснота "
Exit Function
Case "validationBadFootnotesSymbolsNotification"
getSerbian = "У симболима фуснота пронађени су неприкладни за објављивање симболи. "& chr(10) &" Кликом на стрелице навигатора можете се кретати између пронађених симбола фуснота. "
Exit Function
Case Else Case Else
getSerbian = "No translation" getSerbian = "No translation"
End Select End Select
@ -1316,7 +1340,7 @@ Function getBosnian(identifier As String) As String
getBosnian = "Svi pronađeni primedbe moraju biti ispravljeni prije objavljivanja dokumenta." getBosnian = "Svi pronađeni primedbe moraju biti ispravljeni prije objavljivanja dokumenta."
Exit Function Exit Function
Case "validationBadSymbolsNotification" Case "validationBadSymbolsNotification"
getBosnian = "U tekstu su pronađeni neprikladni znakovi." & chr(10) & "Sada ćete dobiti listu isječaka teksta sa sličnim znakovima" getBosnian = "U tekstu su pronađeni neprikladni znakovi." & chr(10) & "Klikom na strelice navigatora možete se kretati između pronađenih odlomaka s neprikladnim znakovima."
Exit Function Exit Function
Case "validationBadDrawings" Case "validationBadDrawings"
getBosnian = "Dokument sadrži crteže (" getBosnian = "Dokument sadrži crteže ("
@ -1373,7 +1397,7 @@ Function getBosnian(identifier As String) As String
getBosnian = "Odjeljak" getBosnian = "Odjeljak"
Exit Function Exit Function
Case "isInTable" Case "isInTable"
getBosnian = "smještene unutar stola." getBosnian = "smještene unutar stola"
Exit Function Exit Function
Case "foundHeadingIn" Case "foundHeadingIn"
getBosnian = "Naslov pronađen u" getBosnian = "Naslov pronađen u"
@ -1465,6 +1489,12 @@ Function getBosnian(identifier As String) As String
Case "badSymbols" Case "badSymbols"
getBosnian = "Neprimjerene znakova za objavljivanje" getBosnian = "Neprimjerene znakova za objavljivanje"
Exit Function Exit Function
Case "badNoteSings"
getBosnian = "Neprikladni simboli fusnota "
Exit Function
Case "validationBadFootnotesSymbolsNotification"
getBosnian = "U simbolima fusnota pronađeni su neprikladni za objavljivanje simboli. "& Chr (10) &" Klikom na strelice navigatora možete se kretati između pronađenih simbola fusnota. "
Exit Function
Case Else Case Else
getBosnian = "No translation" getBosnian = "No translation"
End Select End Select

39
Redaction/Validation.xba
View file

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!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 markval27 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval28
End Sub End Sub
Sub validateButton Sub validateButton
Dim footnotesReport As String Dim footnotesReport As Boolean
Dim graphicsReport As String Dim graphicsReport As String
Dim sectionsReport As String Dim sectionsReport As String
Dim outlinePageStylesReport As String Dim outlinePageStylesReport As String
@ -27,7 +27,7 @@ Sub validateButton
badText = false badText = false
badNumberings = false badNumberings = false
footnotesReport = noteSingsCheck footnotesReport = noteSingsCheck()
statusIndicator.setValue(10) statusIndicator.setValue(10)
graphicsReport = checkGraphics graphicsReport = checkGraphics
statusIndicator.setValue(20) statusIndicator.setValue(20)
@ -49,9 +49,6 @@ Sub validateButton
MsgBox outlinePageStylesReport MsgBox outlinePageStylesReport
EndIf EndIf
If footnotesReport &lt;&gt; &quot;&quot; Then
MsgBox footnotesReport
EndIf
If graphicsReport &lt;&gt; &quot;&quot; Then If graphicsReport &lt;&gt; &quot;&quot; Then
MsgBox graphicsReport MsgBox graphicsReport
EndIf EndIf
@ -59,7 +56,7 @@ Sub validateButton
MsgBox sectionsReport MsgBox sectionsReport
EndIf EndIf
badText = findBadCharacters badText = findBadCharacters()
If config.getPropertyValue(&quot;complexity&quot;) = &quot;makerUp&quot; then If config.getPropertyValue(&quot;complexity&quot;) = &quot;makerUp&quot; then
needExtendedInfo = true needExtendedInfo = true
@ -75,9 +72,8 @@ Sub validateButton
numberingsErros = printNumberingSymbols(needExtendedInfo) numberingsErros = printNumberingSymbols(needExtendedInfo)
statusIndicator.setValue(80) statusIndicator.setValue(80)
If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badNumberings OR footnotesReport &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then If brokenCharBackTransparent OR needFixColoredText OR numberingsErros OR badText OR badNumberings OR footnotesReport OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
MsgBox getTranslation(&quot;validationWarning&quot;) MsgBox getTranslation(&quot;validationWarning&quot;)
Else Else
MsgBox getTranslation(&quot;validationSuccess&quot;) MsgBox getTranslation(&quot;validationSuccess&quot;)
EndIf EndIf
@ -142,7 +138,7 @@ Sub replaceCharsInDOI
AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}&quot;,&quot;-&quot;) AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}&quot;,&quot;-&quot;)
End sub End sub
Private Function noteSingsCheck() As String Private Function noteSingsCheck() As Boolean
Dim footnotes As Object Dim footnotes As Object
Dim footnote As Object Dim footnote As Object
Dim endnote As Object Dim endnote As Object
@ -152,9 +148,11 @@ Private Function noteSingsCheck() As String
Dim char As Long Dim char As Long
Dim label As String Dim label As String
Dim result As String Dim result As String
Dim founds() As Object
noteSingsCheck = false
result = &quot;&quot; result = &quot;&quot;
footnotes = ThisComponent.footnotes footnotes = ThisComponent.Footnotes
endnotes = ThisComponent.Footnotes endnotes = ThisComponent.Endnotes
count = footnotes.getCount count = footnotes.getCount
Dim i As Integer Dim i As Integer
Dim j As Integer Dim j As Integer
@ -164,8 +162,9 @@ Private Function noteSingsCheck() As String
charNum = Len(label) charNum = Len(label)
For j = 1 to charNum For j = 1 to charNum
char = Asc(Right(Left(label,j),1)) char = Asc(Right(Left(label,j),1))
If char &gt;= 57344 AND char &lt;= 63743 then 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) addToArray(founds,footnote.Anchor)
&apos;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)
End If End If
Next j Next j
Next i Next i
@ -176,12 +175,18 @@ Private Function noteSingsCheck() As String
charNum = Len(label) charNum = Len(label)
For j = 1 to charNum For j = 1 to charNum
char = Asc(Right(Left(label,j),1)) char = Asc(Right(Left(label,j),1))
If char &gt;= 57344 AND char &lt;= 63743 then 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;validateEndnotes1&quot;) &amp; &quot; &quot; &amp; i &amp; &quot; &quot; &amp; getTranslation(&quot;validateFootnotes3&quot;) &amp; chr(10) addToArray(founds,endnote.Anchor)
&apos;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 End If
Next j Next j
Next i Next i
noteSingsCheck = result If (UBound(founds) &gt; 0) Then
noteSingsCheck = true
MsgBox(getTranslation(&quot;validationBadFootnotesSymbolsNotification&quot;))
startNavigatorDialog(getTranslation(&quot;badNoteSings&quot;),founds)
EndIf
&apos;noteSingsCheck = result
End Function End Function
Function checkNotesOutline As String Function checkNotesOutline As String

BIN
translations.ods
View file

Binary file not shown.