VBScript : writeTextUnicode()

This function writes string containing unicode to a file

Function writeTextUnicode(filePath,str)
 Dim fso : Set fso = CreateObject("Scripting.fileSystemObject")
 'fso.CreateTextFile( path | allowOverwrite | writeUnicode )
 Dim fileObj : Set fileObj = fso.CreateTextFile(filePath,-1,-1)
 fileObj.Write str
 fileObj.close()
 set fso = nothing
End Function


'== EXAMPLE ==

myFile = "c:\myUnicodeFile.txt"

myString = ""
myString = myString & "Arabic: " & ChrW(1730)&ChrW(1731)&ChrW(1732)&ChrW(1733)&ChrW(1734)
myString = myString & " - Cyrillic: " & ChrW(1035)&ChrW(1036)&ChrW(1037)&ChrW(1038)&ChrW(1040)
myString = myString & " - Latin Extended: " &ChrW(535)&ChrW(536)&ChrW(537)&ChrW(538)&ChrW(540) 

wscript.echo "myString: " & myString '-> Arabic: ۂۃۄۅۆ - Cyrillic: ЋЌЍЎА - Latin Extended: ȗȘșȚȜ

call writeTextUnicode(myFile,myString)

'