Creating a multi-lingual glossary Thread poster: Hans Lenting
| | esperantisto Local time: 10:34 Member (2006) English to Russian + ... SITE LOCALIZER Why not export a file to plain text from Excel directly? | Jun 18, 2018 |
The question is in the heading. | | | Hans Lenting Netherlands Member (2006) German to Dutch TOPIC STARTER Advanced use | Jun 18, 2018 |
esperantisto wrote: The question is in the heading. Because of possible problems with encoding and delimiters that novice users can experience. | | | esperantisto Local time: 10:34 Member (2006) English to Russian + ... SITE LOCALIZER OpenOffice Calc | Jun 18, 2018 |
Then I would recommend using Apache OpenOffice/LibreOffice Calc and the following macro: Code:
| Sub ExportToGlossary
Dim oDoc as Object
Dim glossaryFileProperties(3) as new com.sun.star.beans.PropertyValue
Dim sURL as String
Dim iLen as Integer
Dim isSpreadSheet as Boolean
oDoc = Th... See moreThen I would recommend using Apache OpenOffice/LibreOffice Calc and the following macro: Code:
| Sub ExportToGlossary
Dim oDoc as Object
Dim glossaryFileProperties(3) as new com.sun.star.beans.PropertyValue
Dim sURL as String
Dim iLen as Integer
Dim isSpreadSheet as Boolean
oDoc = ThisComponent
If oDoc.getLocation() = "" Then Exit Sub
isSpreadSheet = oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument")
If isSpreadSheet Then
sURL = oDoc.getLocation()
iLen = len(sURL)
If lcase(right(sURL,4))=".ods" Then
sURL = left(sURL, iLen - 4)
Else
If lcase(right(sURL,4))=".xls" Then
sURL = left(sURL, iLen - 4)
Else
If lcase(right(sURL,5))=".xlsx" Then
sURL = left(sURL, iLen - 5)
End If
End If
End If
sURL = sURL + ".txt"
glossaryFileProperties(0).Name = "FilterName" ' setting properties of exported file such as tab as field delimiter, nothing as text delimiter, UTF-8 as encoding
glossaryFileProperties(0).Value = "Text - txt - csv (StarCalc)"
glossaryFileProperties(1).Name = "FilterOptions"
glossaryFileProperties(1).Value = "9,0,76,1,,0,false,true,false"
glossaryFileProperties(2).Name = "Overwrite"
glossaryFileProperties(2).Value = True
oDoc.storeToURL(sURL, glossaryFileProperties())
End If
End Sub |
|
I have written it for OmegaT, but, as I understand, the format is essentially the same (tab-delimited plain-text file in UTF-8). I have also packed it to an extension (can be downloaded from Dropbox) that installs a button and a menu item under File. However, it works only in Apache OpenOffice and not in LibreOffice. ▲ Collapse | | | To report site rules violations or get help, contact a site moderator: You can also contact site staff by submitting a support request » Creating a multi-lingual glossary CafeTran Espresso | You've never met a CAT tool this clever!
Translate faster & easier, using a sophisticated CAT tool built by a translator / developer.
Accept jobs from clients who use Trados, MemoQ, Wordfast & major CAT tools.
Download and start using CafeTran Espresso -- for free
Buy now! » |
| Trados Studio 2022 Freelance | The leading translation software used by over 270,000 translators.
Designed with your feedback in mind, Trados Studio 2022 delivers an unrivalled, powerful desktop
and cloud solution, empowering you to work in the most efficient and cost-effective way.
More info » |
|
| | | | X Sign in to your ProZ.com account... | | | | |
|
You can request verification for native languages by completing a simple application that takes only a couple of minutes.
Review native language verification applications submitted by your peers. Reviewing applications can be fun and only takes a few minutes.
View applications
|