'#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

'#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