Converting Unicode in File

Question

I am using an event script (AftExportToDat) to create a file to clear data in the target system. When I open the .dat file (in Notepad) it contains characters like 吀䔀䴀倀㬀㈀　㄀㄀㬀倀　㘀㬀夀吀䐀㬀䠀䔀开䄀唀匀吀刀䄀䰀䤀䄀㬀㰀䔀渀琀椀琀礀 . I believe it is due to the fact that FDM v11.1.1.3 saves files as Unicode. I have tried different formats such as 0,-1,-2, and they are not working. Is there another way to format the file?
Function AppendDataFile(sFilePath1, sFilePath2)
Dim filesys
Dim sBuf
Dim oFile1
Dim oFile2
AppendDataFile = ""
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set oFile1 = filesys.OpenTextFile(sFilePath1, ForAppending, True)
If err > 0 Then AppendDataFile = err.Description
Set oFile2 = filesys.OpenTextFile(sFilePath2, ForReading, False)
If err > 0 Then AppendDataFile = err.Description
Do While Not oFile2.AtEndOfStream
sBuf = oFile2.ReadLine
If UCase(Left(sBuf, 5)) <> "!DATA" Then
oFile1.WriteLine(sBuf)
End If

Answer 1

#1
OpenTextFile("c:\testfile.txt", ForAppending,0)
Should open the output file in ASCII.
#2
Looking at your output, it would appear to me the issue is that the source data is coming in as ASCII and it is being interpreted as Unicode. I don't think the file you are writing to is the problem, rather wherever the data is coming in from.
If the situation was reversed (i.e. you started with Unicode and wrote it as ASCII) it would still be readable.
This is a test (in Unicode) would look like T h i s i s a t e s t (in ASCII)
This is a test (in ASCII) would like like a bunch of Japanese characters (in Unicode)
Why?
ASCII characters are represented as one byte while Unicode are represented as two bytes.
T in ASCII is 54 (hex)
T in Unicode is 54 00 (hex)
If you interpret a Unicode data stream as ASCII, each byte in the stream would be treated as its own character. 54 is still T. 00 is a non printable value (null) which would most likely be shown as an empty space.
If you interpret an ASCII data stream as Unicode, you would need to grab two bytes to make one character. Using the example string 'This is a test', the two bytes grabbed would be 54 (T) and 68 (h). The Unicode display character for 5468 is Japanese .....