• State Verified Answer
  • +1 person also asked this people also asked this
  • Replies 8 replies
  • Subscribers 44 subscribers
  • Views 7486 views
  • Users 0 members are here
Options
Related

Any coders here to fix the XLIFF export/import macro?

Piotr Bienkowski

There is this xliff export/import macro here.  One other user reported that it does not work, and I can confirm it.

As far as I can undertand the VBA code (and I wrote a bunch of VBA macros myself), the macro fails (at least on my computer) on trying to create the XLIFF document object. I was trying to use it in Passolo 2015 Translator Edition. Unfortunately VBA programming for XML is beyond me.

I would be nice if someone could fix the code, and it would be even nicer if someone could improve it, for example mark units that are outside my split, and those that use "Unify..." as untranslatale?

Thanks,

Piotr
Rate translation
×
Suggest better translation
×
Parents Reply Children
  • +1 in reply to Piotr Bienkowski 
    This is the macro. The error is "Expecting a valid data type (eg. Integer)." and it higlights "Dim XLIFFDoc As DOMDocument".
    Downloadable here www.translatum.gr/.../index.php

    '#Reference {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}#6.0#0#C:\WINDOWS\system32\msxml6.dll#Microsoft XML, v6.0
    ''Export files to XLIFF document for processing in a TM system
    ''Import translated XLIFF documents
    ' -------------------------------
    ' Version 1.0 Laszlo Kovacs 13 April August 2009.
    ' -------------------------------
    ' Macro executes on:
    ' Projects Active/opened translation bundles.
    ' Source lists N/A
    ' Target lists ALL
    ' ===============================


    Option Explicit

    Dim translst As PslTransList
    Dim translsts As PslTransLists
    Dim transstr As PslTransString
    Dim i, j As Long
    Dim myBundle As PslProject
    Dim ExportTranslated, ExportForReview, ExportUntranslated As Boolean
    Dim source_language, target_language As String

    Const ForWriting = 2


    Private Sub ExportXLIFFFile()

     Dim fso As Object

     Dim XLIFFDoc As DOMDocument
     Dim XLIFFElem As IXMLDOMElement
     Dim newFileNode As IXMLDOMElement
     Dim newStringNode As IXMLDOMElement
     Dim newSourceString As IXMLDOMElement
     Dim newTargetString As IXMLDOMElement
     Dim newNoteString As IXMLDOMElement
     Dim rdr As New SAXXMLReader
     Dim wrt As New MXXMLWriter
     Dim XLIFFfile As Object
     Dim FileStringCount As Integer


     Set fso = CreateObject("Scripting.FileSystemObject")


     ' Create the XLIFF object

     Set XLIFFDoc=CreateObject("Msxml2.DOMDocument")

     XLIFFDoc.async=False
     XLIFFDoc.preserveWhiteSpace=True



     PSL.Output ("Preparing XLIFF data...")


     ' Create the root node.

     Set XLIFFElem = XLIFFDoc.createNode(1,"xliff","")
     XLIFFElem.setAttribute("version","1.2")
     XLIFFDoc.documentElement = XLIFFElem



     For i = 1 To myBundle.TransLists.Count
     Set translst = myBundle.TransLists(i)

     If LCase(PSL.GetLangCode(translst.Language.LangID,pslCodeTrados))=target_language Then
     source_language =LCase(PSL.GetLangCode(translst.SourceList.LangID,pslCodeTrados))

     PSL.Output ("Processing "+ CStr(i) + "/" + CStr(myBundle.TransLists.Count) + " - " + translst.Title)
     Set newFileNode = XLIFFDoc.createNode(1,"file","")
     newFileNode.setAttribute("original",StrReverse(Left(StrReverse(translst.TargetFile),(InStr(StrReverse(translst.TargetFile), "\") - 1))))
     newFileNode.setAttribute("source-language",source_language)
     newFileNode.setAttribute("target-language",target_language)
     newFileNode.setAttribute("datatype","plaintext")


     XLIFFElem.appendChild(newFileNode)
     FileStringCount=0


     On Error GoTo nextStringList
     For j = 1 To translst.StringCount
     Set transstr = translst.String(j)

     If ExportTranslated And transstr.State(pslStateTranslated) Then
     FileStringCount=FileStringCount+1
     Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
     newStringNode.setAttribute("id",transstr.ID)
     newStringNode.setAttribute("approved","yes")
     newStringNode.setAttribute("translate","yes")
     newFileNode.appendChild(newStringNode)

     Set newSourceString = XLIFFDoc.createNode(1,"source","")
     newSourceString.Text= transstr.SourceText
     newStringNode.appendChild(newSourceString)

     Set newTargetString = XLIFFDoc.createNode(1,"target","")
     newTargetString.Text= transstr.Text
     newStringNode.appendChild(newTargetString)

     Set newNoteString = XLIFFDoc.createNode(1,"note","")
     newNoteString.Text= translst.Title + " - " + transstr.Description + Chr(13) + "Passolo Comment: " + transstr.Comment
     newStringNode.appendChild(newNoteString)




     ElseIf ExportForReview And transstr.State(pslStateReview) Then
     FileStringCount=FileStringCount+1
     Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
     newStringNode.setAttribute("id",transstr.ID)
     newStringNode.setAttribute("approved","no")
     newStringNode.setAttribute("translate","yes")
     newFileNode.appendChild(newStringNode)

     Set newSourceString = XLIFFDoc.createNode(1,"source","")
     newSourceString.Text= transstr.SourceText
     newStringNode.appendChild(newSourceString)

     Set newTargetString = XLIFFDoc.createNode(1,"target","")
     newTargetString.Text= transstr.Text
     newStringNode.appendChild(newTargetString)

     Set newNoteString = XLIFFDoc.createNode(1,"note","")
     newNoteString.Text= translst.Title + " - " + transstr.Description + Chr(13) + "Passolo Comment: " + transstr.Comment
     newStringNode.appendChild(newNoteString)



     ElseIf ExportUntranslated And Not transstr.State(pslStateTranslated) And transstr.SourceText<>"" And Not transstr.State(pslStateReadOnly) Then
     FileStringCount=FileStringCount+1
     Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
     newStringNode.setAttribute("id",transstr.ID)
     newStringNode.setAttribute("approved","no")
     newStringNode.setAttribute("translate","yes")
     newFileNode.appendChild(newStringNode)

     Set newSourceString = XLIFFDoc.createNode(1,"source","")
     newSourceString.Text= transstr.SourceText
     newStringNode.appendChild(newSourceString)

     Set newTargetString = XLIFFDoc.createNode(1,"target","")
     newTargetString.Text= ""
     newStringNode.appendChild(newTargetString)

     Set newNoteString = XLIFFDoc.createNode(1,"note","")
     newNoteString.Text= translst.Title + " - " + transstr.Description + Chr(13) + "Passolo Comment: " + transstr.Comment
     newStringNode.appendChild(newNoteString)


     End If

     Next j

     If FileStringCount=0 Then XLIFFElem.removeChild(newFileNode)


     nextstringlist:
     If Err.Description <>"" Then
     PSL.Output("Skipping " & translst.Title & ": " & Err.Description)
     Err.Clear
     End If
     Else
     PSL.Output("Skipping " & translst.Title & ": the language does not match")
     End If
     Next i


     wrt.byteOrderMark = False
     wrt.omitXMLDeclaration = False
     wrt.indent = True
     wrt.standalone=True
     wrt.encoding="UTF-8"


     'Set the XML writer to the SAX content handler.
     Set rdr.contentHandler = wrt
     Set rdr.dtdHandler = wrt
     Set rdr.errorHandler = wrt
     rdr.putProperty "xml.org/.../lexical-handler", wrt
     rdr.putProperty "xml.org/.../declaration-handler", wrt
     'Parse the DOMDocument object.
     rdr.parse XLIFFDoc

     'Open the file for writing

     Set XLIFFfile = fso.OpenTextFile(myBundle.Location & "\" & myBundle.Name & "_" & target_language & ".xlf" , ForWriting, True, True)
     XLIFFfile.Write (wrt.Output)


    ' XLIFFDoc.Save(myBundle.Location & "\" & myBundle.Name & ".xlf")


    End Sub

    Private Sub ImportXLIFFFile()

     Dim ImportSuccess, ImportAll, ImportFail As Long
     Dim Translatable As Boolean
     Dim XLIFFDoc As DOMDocument
     Dim XLIFFElem As IXMLDOMElement
     Dim newFileNode As IXMLDOMElement
     Dim newStringNode As IXMLDOMElement
     Dim newSourceString As IXMLDOMElement
     Dim newTargetString As IXMLDOMElement
     Dim newNoteString As IXMLDOMElement
     ' Create the XLIFF object

     Set XLIFFDoc=CreateObject("Msxml2.DOMDocument")

     XLIFFDoc.async=False



     PSL.Output ("Reading XLIFF data...")

     XLIFFDoc.load("file://" & myBundle.Location & "\" & myBundle.Name & "_" & target_language & ".xlf")

     Set XLIFFElem = XLIFFDoc.documentElement


     If XLIFFDoc.parseError.reason = "" Then

     For i = 1 To myBundle.TransLists.Count
     ImportSuccess=0
     ImportFail=0
     ImportAll=0
     Set translst = myBundle.TransLists(i)

     Set newFileNode = XLIFFElem.firstChild

     While Not newFileNode Is XLIFFElem.lastChild And newFileNode.attributes.getNamedItem("original").Text <> StrReverse(Left(StrReverse(translst.TargetFile),(InStr(StrReverse(translst.TargetFile), "\") - 1)))
     Set newFileNode = newFileNode.nextSibling
     Wend

     If newFileNode.attributes.getNamedItem("original").Text=StrReverse(Left(StrReverse(translst.TargetFile),(InStr(StrReverse(translst.TargetFile), "\") - 1))) Then


     For j = 1 To translst.StringCount

     Set transstr = translst.String(j)

     Translatable= (Not transstr.State(pslStateTranslated) Or transstr.State(pslStateReview)) And Not transstr.State(pslStateReadOnly) And Not transstr.State(pslStateLocked)

     If Translatable Then

     ImportAll = ImportAll + 1

     Set newStringNode = newFileNode.firstChild

     While Not newStringNode Is newFileNode.lastChild And Not (newStringNode.attributes.getNamedItem("id").Text=CStr(transstr.ID) And newStringNode.firstChild.Text = Trim(transstr.SourceText))
     Set newStringNode = newStringNode.nextSibling
     Wend

     If newStringNode.attributes.getNamedItem("id").Text = CStr(transstr.ID) And newStringNode.firstChild.Text = Trim(transstr.SourceText) Then
     transstr.Text= Replace(transstr.SourceText, Trim(transstr.SourceText), newStringNode.firstChild.nextSibling.Text)
     transstr.State(pslStateTranslated)=True
     transstr.State(pslStateReview)=True
     ImportSuccess=ImportSuccess+1
     Else
     ImportFail=ImportFail+1
     End If
     End If

     Next j

     translst.Save

     PSL.Output ("Processed "+ CStr(i) + "/" + CStr(myBundle.TransLists.Count) + " - " + translst.Title+" Translated "+CStr(ImportSuccess)+" of "+CStr(ImportAll) + " strings")

     End If
     Next i
     Else
     PSL.Output ("Processing failed: "+ XLIFFDoc.parseError.reason)
     End If


    End Sub



    Sub Main

     Dim Bundle As PslProject
     Dim TargetLanguageList() As String
     Dim knownLang As Boolean

     ReDim TargetLanguageList(0)

     PSL.OutputWnd.Clear
     PSL.Output("Scanning open bundles for target languages...")

     For Each Bundle In PSL.Projects
     For Each translst In Bundle.TransLists
     target_language = LCase(PSL.GetLangCode(translst.Language.LangID,pslCodeTrados))
     knownLang=False
     For i=0 To UBound(TargetLanguageList)

     If TargetLanguageList(i) = target_language Then knownLang=True
     Next
     If Not knownLang Then
     If TargetLanguageList(UBound(TargetLanguageList))<>"" Then ReDim Preserve TargetLanguageList(UBound(TargetLanguageList)+1)
     TargetLanguageList(UBound(TargetLanguageList))=target_language
     End If
     Next
     Next



     Begin Dialog UserDialog 690,364,"Export and import XLIFF" ' %GRID:10,7,1,1
     GroupBox 10,7,670,56,"Scope",.grpScope
     GroupBox 10,63,670,252,"Operation",.grpOperation
     PushButton 420,329,130,21,"Start",.cmdOK
     CancelButton 570,329,100,21,.cmdCancel
     Text 10,343,90,14,"v.1.0",.lblMacroVersion
     Text 60,280,610,28,"Import reads the following XLIFF file: <Path_of_Passolo_Bundle>\<Name_of_Passolo_Bundle>_<lang>.xlf",.lblInstruction
     Text 70,91,450,28,"Export creates the following XLIFF file: <Path_of_Passolo_Bundle>\<Name_of_Passolo_Bundle>_<lang>.xlf",.lblInstruction2
     GroupBox 50,119,620,140,"Status Filter",.grpStatus
     CheckBox 60,210,400,14,"Export Translated strings",.ExportTranslated
     CheckBox 60,168,400,14,"Export ForReview strings",.ExportForReview
     CheckBox 60,140,400,14,"Export untranslated strings",.ExportUntranslated
     Text 90,154,560,14,"The XLIFF attribute of untranslated strings is NOT approved, the target string is empty",.lblExportUntranslated
     Text 100,224,550,28,"The XLIFF attribute of translated strings is approved, the target string contains the current text in Passolo",.lblExportTranslated
     Text 90,182,550,28,"The XLIFF attribute of For review strings is NOT approved, the target string contains the current text in Passolo",.lblExportForReview
     OptionGroup .ExportImport
     OptionButton 30,77,190,14,"Export for translation",.optExport
     OptionButton 20,266,190,14,"Import translations",.optImport
     OptionGroup .ScopeOption
     OptionButton 30,21,200,14,"Process the active bundle",.optActiveBundle
     OptionButton 30,42,220,14,"Process all opened bundles",.optAllOpenedBundles
     Text 310,21,180,14,"Target language to extract:",.lblLanguage
     DropListBox 510,21,90,70,TargetLanguageList,.lstLanguage,1
     End Dialog

     Dim dlg As UserDialog

     dlg.lstLanguage=TargetLanguageList(0)
     If PSL.Projects.Count=1 Then dlg.ScopeOption=0
     If PSL.Projects.Count>1 Then dlg.ScopeOption=1
     dlg.ExportImport=0
     dlg.ExportTranslated=True
     dlg.ExportForReview=True
     dlg.ExportUntranslated=True

     If Dialog(dlg) = 0 Then
     Exit Sub
     Else

     target_language = dlg.lstLanguage
     ExportTranslated=dlg.ExportTranslated
     ExportForReview=dlg.ExportForReview
     ExportUntranslated=dlg.ExportUntranslated
     If dlg.ScopeOption =0 Then
     Set myBundle = PSL.ActiveProject
     If dlg.exportimport=0 Then
     ExportXLIFFFile
     Else
     ImportXLIFFFile
     End If
     Else
     For Each Bundle In PSL.Projects
     Set myBundle = Bundle
     PSL.Output("Processing " & myBundle.Name)
     If dlg.exportimport=0 Then
     ExportXLIFFFile
     Else
     ImportXLIFFFile
     End If
     Next
     End If
     End If

     Done:
     PSL.Output ("--- Done ---")

    End Sub
    emoji