• State Verified Answer
  • +1 person also asked this people also asked this
  • Replies 23 replies
  • Subscribers 44 subscribers
  • Views 11146 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
  • 0 in reply to Markus Kaußen

    Not sure what you mean by "call the script automatically without user interaction". Do you mean how to export all target languages in one go? I have no experience of that since I have only worked with one target language at a time, but you seem to have fixed it yourself now.
    emoji
  • 0 in reply to Magnus Eriksson

    Exactly. I automatically export the untranslated strings of my Passolo projects.

    However, the script above imports the text of an import file into all my target languages.

    I've added the condition in line 70 and it works fine now. Just to let you all know.

    '#Reference {F5078F18-C551-11D3-89B9-0000F81FE221}#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 DOMDocument60
	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 SAXXMLReader60
	Dim wrt As New MXXMLWriter60
	Dim XLIFFfile As Object
	Dim FileStringCount As Integer


	Set fso = CreateObject("Scripting.FileSystemObject")


	' Create the XLIFF object

	Set XLIFFDoc=CreateObject("Msxml2.DOMDocument.6.0")

	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")
	Set 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 "http://xml.org/sax/properties/lexical-handler", wrt
	rdr.putProperty "http://xml.org/sax/properties/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 DOMDocument60
	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.6.0")

	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)
			If LCase(PSL.GetLangCode(translst.Language.LangID,pslCodeTrados))=target_language Then

				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

			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
  • 0 in reply to Stephan Winzer

    Hi Stephan, sorry for beeing late to the ping party.

    Find the adapted sript attached. What is the script doing:

    • Exports the currently active project as GLO file (required in our case)
    • Update the Quick Index
    • Preform an AutoTranslate (only 100% matches, multiple matches will not be translated)
    • Export the remaining untranslated strings per language into en "00 Export" folder (same location as the lpu)


    '#Reference {F5078F18-C551-11D3-89B9-0000F81FE221}#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
' ===============================
Sub main

  Dim prj As PslProject
  Set prj = PSL.ActiveProject
  If prj Is Nothing Then Exit Sub
  prjname = prj.Name
  Dim lang As PslLanguage
  For Each lang In prj.Languages
    ' Create the translation bundle
    Dim bundle As PslTransBundle
    Set bundle = prj.PrepareTransBundle

    Dim trn As PslTransList
    Dim i As Integer
    For i = 1 To prj.TransLists.Count
      Set trn = prj.TransLists(i)
      If trn.Language Is lang Then
        bundle.AddTransList(trn)
      End If
    Next i

    ' Make filename "test<langcode>.tba/tbu"
    Dim filename As String
    filename = "<PATH TO GLOS>"& prjname &"_en_" & lang.LangCode & ".glo"
    prj.Export "PASSOLO Glossary Maker", bundle, filename
  Next lang

	'Project QuickIndex erzeugen und auf Erzeugung warten (True)'
	prj.CreateQuickIndex(True)
	'QuickIndex der angehängten Glossare erzeugen und auf Erzeugung warten (True)'
	Dim glo As PslGlossary
	For Each glo In prj.Glossaries
		Set statusglo = glo.QuickIndexState
		If statusglo = 4 Then
			glo.CreateQuickIndex(True)
		Else
			'PSL.Output("Glossar "+glo.FileName+" konnte nicht erzeugt werden oder ist aktuell")
		End If
	Next glo



'XLF-Export
	For Each lang In prj.Languages
		Dim source_language, target_language As String
		'target_language = lang.LangID
		target_language = LCase(PSL.GetLangCode(lang.LangID,pslCodeTrados))
	
		Dim translst As PslTransList
		Dim translsts As PslTransLists
		Dim transstr As PslTransString
		Dim j As Long
		Set myBundle = PSL.ActiveProject
		Dim ExportTranslated, ExportForReview, ExportUntranslated As Boolean
		Const ForWriting = 2
		i = 0
		j = 0
	
	
		Dim fso As Object
	
		Dim XLIFFDoc As DOMDocument60
		Dim XLIFFElem As IXMLDOMElement
		Dim newFileNode As IXMLDOMElement
		Dim newBodyNode As IXMLDOMElement
		Dim newStringNode As IXMLDOMElement
		Dim newSourceString As IXMLDOMElement
		Dim newTargetString As IXMLDOMElement
		Dim newNoteString As IXMLDOMElement
		Dim rdr As New SAXXMLReader60
		Dim wrt As New MXXMLWriter60
		Dim XLIFFfile As Object
		Dim FileStringCount As Integer
		Dim xliffStringCount As Integer
	
		Set XLIFFDoc = Nothing
		Set XLIFFElem = Nothing
		Set newFileNode = Nothing
		Set newBodyNode = Nothing
		Set newStringNode = Nothing
		Set newSourceString = Nothing
		Set newTargetString = Nothing
		Set newNoteString = Nothing
		Set rdr = Nothing
		Set wrt = Nothing
		Set XLIFFfile = Nothing
		FileStringCount = 0
		Dim filenamexlf As String
		xliffStringCount = 0
	
	
		Set fso = CreateObject("Scripting.FileSystemObject")
	
	
		' Create the XLIFF object
	
		Set XLIFFDoc=CreateObject("Msxml2.DOMDocument.6.0")
	
		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")
		Set XLIFFDoc.documentElement = XLIFFElem
	
		Set myBundle = PSL.ActiveProject
		Set ExportTranslated=False
		Set ExportForReview=False
		ExportUntranslated=True
	
	
	
	
			For i = 1 To myBundle.TransLists.Count
				Set translst = myBundle.TransLists(i)
				translst.AutoTranslate(0, False, True, 1)
				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))))
					filenamexlf = StrReverse(Left(StrReverse(translst.TargetFile),(InStr(StrReverse(translst.TargetFile), "\") - 1)))
					'PSL.Output("Dateiname " & filenamexlf)
					newFileNode.setAttribute("original",filenamexlf)
					newFileNode.setAttribute("source-language",source_language)
					newFileNode.setAttribute("target-language",target_language)
					newFileNode.setAttribute("datatype","plaintext")
		
		
					XLIFFElem.appendChild(newFileNode)
					' Neu Start
					Set newBodyNode = XLIFFDoc.createNode(1,"body","")
					newFileNode.appendChild(newBodyNode)
					' Neu Ende					
					FileStringCount=0
		
		
					On Error GoTo nextStringList
					For j = 1 To translst.StringCount
						Set transstr = translst.String(j)
						Dim StringID As String
						Dim position As Integer
						position = InStr(filenamexlf, ".po")
						If position > 0 Then
							StringID = transstr.Property(3)
							If Right(StringID, 2) = Chr(13) & Chr(10) Then
								' Remove both carriage return and line feed
								StringID = Left(StringID, Len(StringID) - 2)
							ElseIf Right(StringID, 1) = Chr(13) Or Right(StringID, 1) = Chr(10) Then
								' Remove either carriage return or line feed
								StringID = Left(StringID, Len(StringID) - 1)
							Else
							   ' No newline at the end
								StringID = StringID
							End If
							If Len(StringID) = 0 Then
								StringID ="FirstStringOfPO"
							End If
							StringID = Replace(StringID, "#: ", "")
						Else
							StringID = transstr.ID
						End If


		
						If ExportTranslated And transstr.State(pslStateTranslated) Then
							FileStringCount=FileStringCount+1
							xliffStringCount=xliffStringCount+1
							Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
							newStringNode.setAttribute("id",StringID)
							newStringNode.setAttribute("approved","yes")
							newStringNode.setAttribute("translate","yes")
							newBodyNode.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
							xliffStringCount=xliffStringCount+1
							Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
							newStringNode.setAttribute("id",StringID)
							newStringNode.setAttribute("approved","no")
							newStringNode.setAttribute("translate","yes")
							newBodyNode.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
							xliffStringCount=xliffStringCount+1
							Set newStringNode = XLIFFDoc.createNode(1,"trans-unit","")
							newStringNode.setAttribute("id",StringID)
							newStringNode.setAttribute("approved","no")
							newStringNode.setAttribute("translate","yes")
							newBodyNode.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 "http://xml.org/sax/properties/lexical-handler", wrt
		rdr.putProperty "http://xml.org/sax/properties/declaration-handler", wrt
		'Parse the DOMDocument object.
		rdr.parse XLIFFDoc
	
		'Open the file for writing
		Set XLIFFfile = fso.OpenTextFile(myBundle.Location & "\00 Export\" & myBundle.Name & "_" & target_language & ".xlf", ForWriting, True, True)
		XLIFFfile.Write (wrt.output)
	
	'	'XLIFFDoc.Save(myBundle.Location & "\" & myBundle.Name & ".xlf")

	Next lang

'Projekt schließen'
  prj.Close
  PSL.Output("The first project was closed")
End Sub

    emoji
  • 0 in reply to Stephan Winzer

    <PATH TO GLOS> must be replaced by a folder path where the flos should be placed, E.h. C:\myglos\
    emoji
  • 0 in reply to Markus Kaußen

    I see. Now i am stuck here:

    Do i need to replace anything here, too?

    EDIT1 : Hmm the Export Folder is missing. I am working with nwtwork drives.. could it be that passolo does not have the nessecary rights to create a new folder?
    emoji
  • 0 in reply to Stephan Winzer

    I created the Export Folder by myself. The Script runs now without error and exports all files. But how do i import them back in one step?
    emoji
  • 0 in reply to Stephan Winzer

    I have not implemented this yet. In our processes, a manual import is required.

    We use the UI based script from above to proceed the import per language.

    Note that for the successful import with the ui script, the files must be placed in the same folder as the *.lpu file.
    emoji
  • 0 in reply to Markus Kaußen

    After Exporting with your script, editing in Trados and import back the translated file i get this error:

    It is only one file from a bunch of files of my project and its not fully translated.

    Any idea?

    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

    Line 256
    emoji