Creating a multi-lingual glossary Thread poster: Hans Lenting
| | esperantisto Local time: 02:32 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: 02:32 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 TM-Town | Manage your TMs and Terms ... and boost your translation business
Are you ready for something fresh in the industry? TM-Town is a unique new site for you -- the freelance translator -- to store, manage and share translation memories (TMs) and glossaries...and potentially meet new clients on the basis of your prior work.
More info » |
| Protemos translation business management system | Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.
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
|