Font symbols report

Redaction/Configuration.xba

@@ -1,7 +1,7 @@
 <?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
-Public Const redactionExtensionVersion = &quot;0.9.1&quot;
+Public Const redactionExtensionVersion = &quot;0.9.2&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object

Redaction/Translations.xba

@@ -242,6 +242,21 @@ Function getRussian(identifier As String) As String
       Case "chooseFontNameDialogDescription"
          getRussian = "Дважды кликните левой клавишей мыши на имя шрифта"
          Exit Function
+      Case "fontReportInProgress"
+         getRussian = "Составление отчёта о шрифте. Пожалуйста, подождите."
+         Exit Function
+      Case "symbolsInFontHeading"
+         getRussian = "Символы в шрифте"
+         Exit Function
+      Case "symbolsInFontNotFound1"
+         getRussian = "Символов в шрифте"
+         Exit Function
+      Case "symbolsInFontNotFound2"
+         getRussian = "найдено не было."
+         Exit Function
+      Case "charFirstPage"
+         getRussian = "Найден на стр."
+         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -466,6 +481,21 @@ Function getEnglish(identifier As String) As String
       Case "chooseFontNameDialogDescription"
          getEnglish = "Double-click the font name with the left mouse button."
          Exit Function
+      Case "fontReportInProgress"
+         getEnglish = "Preparing report. Please wait."
+         Exit Function
+      Case "symbolsInFontHeading"
+         getEnglish = "Characters in font"
+         Exit Function
+      Case "symbolsInFontNotFound1"
+         getEnglish = "No characters in font"
+         Exit Function
+      Case "symbolsInFontNotFound2"
+         getEnglish = "found."
+         Exit Function
+      Case "charFirstPage"
+         getEnglish = "Found on page"
+         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  
@@ -689,6 +719,21 @@ Function getCroatian(identifier As String) As String
       Case "chooseFontNameDialogDescription"
          getCroatian = "Dvaput kliknite naziv fonta lijevom tipkom miša."
          Exit Function
+      Case "fontReportInProgress"
+         getCroatian = "Izvještavanje o fontu. Molimo pričekajte."
+         Exit Function
+      Case "symbolsInFontHeading"
+         getCroatian = "Znakovi fonta"
+         Exit Function
+      Case "symbolsInFontNotFound1"
+         getCroatian = "Znakovi fonta"
+         Exit Function
+      Case "symbolsInFontNotFound2"
+         getCroatian = "nije pronađeno"
+         Exit Function
+      Case "charFirstPage"
+         getCroatian = "Pronađeno na stranici"
+         Exit Function
       Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -912,6 +957,21 @@ Function getSerbian(identifier As String) As String
       Case "chooseFontNameDialogDescription"
          getSerbian = "Двапут кликните на назив фонта левим дугметом миша."
          Exit Function
+      Case "fontReportInProgress"
+         getSerbian = "Припрема извештаја. Сачекајте."
+         Exit Function
+      Case "symbolsInFontHeading"
+         getSerbian = "Знакови фонта"
+         Exit Function
+      Case "symbolsInFontNotFound1"
+         getSerbian = "Знакови фонта"
+         Exit Function
+      Case "symbolsInFontNotFound2"
+         getSerbian = "није пронађено"
+         Exit Function
+      Case "charFirstPage"
+         getSerbian = "Пронађено на страници"
+         Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -1135,6 +1195,21 @@ Function getBosnian(identifier As String) As String
       Case "chooseFontNameDialogDescription"
          getBosnian = "Dvaput kliknite naziv fonta lijevom tipkom miša."
          Exit Function
+      Case "fontReportInProgress"
+         getBosnian = "Izvještavanje o fontu. Molimo pričekajte."
+         Exit Function
+      Case "symbolsInFontHeading"
+         getBosnian = "Znakovi fonta"
+         Exit Function
+      Case "symbolsInFontNotFound1"
+         getBosnian = "Znakovi fonta"
+         Exit Function
+      Case "symbolsInFontNotFound2"
+         getBosnian = "nije pronađeno"
+         Exit Function
+      Case "charFirstPage"
+         getBosnian = "Pronađeno na stranici"
+         Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select  

Redaction/Validation.xba

@@ -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 markval11
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval12
 
 End Sub
 
@@ -562,10 +562,15 @@ Sub fontReportButton
     Dim targetFontName As String
     targetFontName = fontDialog.model.Tag
     If targetFontName=&quot;0&quot; or targetFontName=&quot;&quot; Then
+    	statusIndicator.end()
         Exit sub
     EndIf    
-	getCharsInFont(targetFontName)
+    Dim FileName As String
+	FileName = getCharsInFont(targetFontName)
 	statusIndicator.end()
+	If FileName &lt;&gt; &quot;&quot; Then
+    	openReport(FileName)
+	EndIf
 End Sub
 
 Sub onSelectFont(oEvent)
@@ -605,10 +610,12 @@ Function getODGFontNames() As Variant
 					enum2 = enum1Element.createEnumeration
 					While enum2.hasMoreElements
 						thisPortion = enum2.nextElement
+						If Len(thisPortion.String) &gt; 0 Then
 						  fontName = thisPortion.CharFontName
 						  If NOT fontIsAlreadyFound(fontNames, fontName) Then
 							AddToArray(fontNames, fontName)
 						  EndIf
+						EndIf
 					Wend
 				EndIf
 			Wend 
@@ -673,8 +680,9 @@ Sub addToArray(xArray(),vNextElement)
 	xArray(iUB) = vNextElement
 End Sub
 
-Sub getCharsInFont(fontName As String)
+Function getCharsInFont(fontName As String) As String
 	Dim resultArray() As String
+	Dim pageNums() As Long
 	Dim firstPages() As Long
 	Dim resultString As String
 	Dim pages As Object
@@ -712,6 +720,7 @@ Sub getCharsInFont(fontName As String)
 								fontChar = Hex(Asc(Mid(resultString,k+1,1)))
 								If NOT IsInArray(resultArray,fontChar) Then
 									AddToArray(resultArray(), fontChar)
+									AddToArray(pageNums(), i + 1)
 								EndIf
 							Next k
 						EndIf
@@ -722,7 +731,7 @@ Sub getCharsInFont(fontName As String)
 	Next i 
 	resultString = &quot;&quot;
 	For i = LBound(resultArray) To UBound(resultArray)
-		resultString = resultString &amp; &quot;&lt;a href=&apos;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&apos;&quot; &amp; &quot;&gt;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&lt;/a&gt;&lt;br&gt;&quot; &amp; Chr(10)
+		resultString = resultString &amp; &quot;&lt;a href=&apos;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&apos;&quot; &amp; &quot;&gt;https://unicode-table.com/ru/&quot; &amp; resultArray(i) &amp; &quot;&lt;/a&gt; &quot; &amp; getTranslation(&quot;charFirstPage&quot;) &amp; &quot; &quot; &amp; pageNums(i) &amp; &quot;&lt;br&gt;&quot; &amp; Chr(10)
 	Next i
 	
 	If resultString &lt;&gt; &quot;&quot; Then
@@ -737,12 +746,35 @@ Sub getCharsInFont(fontName As String)
 		FileName = path &amp; &quot;/symbolsInFont&quot; &amp; fontName &amp; &quot;.html&quot;
 		n = FreeFile()		&apos;Next free file number
 		Open FileName For Output Access Read Write As #n		&apos;Open for read/write
-		Print #n, &quot;&lt;html&gt;&lt;body&gt;&lt;p&gt;Symbols in font &quot;&amp; fontName &amp;&quot;:&lt;/p&gt;&quot;&amp;resultString &amp;&quot;&lt;/body&gt;&lt;html&gt;&quot;
+		Print #n, &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp; &quot;&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;h2&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp;&quot;:&lt;/h2&gt;&quot;&amp;resultString &amp;&quot;&lt;/body&gt;&lt;/html&gt;&quot;
 		Close #n
-		MsgBox &quot;Отчёт о найденных символах в шрифте &quot;&amp; fontName &amp;&quot; можно открыть в &quot; &amp; FileName
+		getCharsInFont = FileName
-	Else
+		Exit Function
-		MsgBox &quot;Символов в шрифте &quot; &amp; fontName &amp; &quot; найдено не было&quot;
-	EndIf
-End Sub
 
+	Else
+		MsgBox getTranslation(&quot;symbolsInFontNotFound1&quot;) &amp; &quot; &quot; &amp; fontName &amp; &quot; &quot; &amp; getTranslation(&quot;symbolsInFontNotFound2&quot;)
+		getCharsInFont = &quot;&quot;
+		Exit Function
+	EndIf
+End Function
+
+
+sub openReport(fileName As String)
+	dim document   as object
+	dim dispatcher as object
+	Dim path As String
+	Dim tmpName As String
+	Dim oldName As String
+	document   = ThisComponent.CurrentController.Frame
+	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
+	dim args1(1) as new com.sun.star.beans.PropertyValue
+	args1(0).Name = &quot;URL&quot;
+	args1(0).Value = fileName
+	args1(1).Name = &quot;FilterName&quot;
+	args1(1).Value = &quot;HTML (StarWriter)&quot;
+	dispatcher.executeDispatch(document, &quot;.uno:Open&quot;, &quot;&quot;, 0, args1())
+	If FileExists(tmpName) Then 
+  		Kill(tmpName)
+	End If
+End Sub
 </script:module>

build.gradle

@@ -1,4 +1,4 @@
-def releaseVersion = "0.9.1"
+def releaseVersion = "0.9.2"
 task oxt(type: Zip) {
    dependsOn = [ 'setVersion','setVersionInBasicCode' ]
    from './'

description.xml

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction"/>
-  <version value="0.9.1"/>
+  <version value="0.9.2"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>