Read Unicode data from Text file

[Chris]

I am using the FileSystemOBjec t for writing text with Unicode as in
the example below. When I try to read data from the file with
ReadLine, I get "?????????" instead of characters with unicode.

What could be the problem ?

Thanks a lot in advance!

------------------------------------------------------------------------------------------------

Dim var_file_sys As Object
Dim var_txt_file
Dim var_line As String

Set var_file_sys = CreateObject("S cripting.FileSy stemObject")
Set var_txt_file = var_file_sys.Cr eateTextFile(vn _export_file, True,
True)

var_txt_file.wr iteline (var_line)

var_txt_file.Cl ose

------------------------------------------------------------------------------------------------

Const ForReading = 1, TristateTrue = -1
Dim var_f As Object
Dim var_text As string

Set var_file_sys = CreateObject("S cripting.FileSy stemObject")
Set var_f = var_file_sys.Ge tFile(vnp_impor t_file)
Set var_txt_file = var_f.OpenAsTex tStream(ForRead ing,
TristateTrue)

var_text = var_txt_file.Re adLine

var_txt_file.Cl ose

[Stuart McCall]

"Chris" <CL*****@gmail. comwrote in message
news:11******** **************@ 57g2000hsv.goog legroups.com...

>I am using the FileSystemOBjec t for writing text with Unicode as in
the example below. When I try to read data from the file with
ReadLine, I get "?????????" instead of characters with unicode.

What could be the problem ?

Thanks a lot in advance!

------------------------------------------------------------------------------------------------

Dim var_file_sys As Object
Dim var_txt_file
Dim var_line As String

Set var_file_sys = CreateObject("S cripting.FileSy stemObject")
Set var_txt_file = var_file_sys.Cr eateTextFile(vn _export_file, True,
True)

var_txt_file.wr iteline (var_line)

var_txt_file.Cl ose

------------------------------------------------------------------------------------------------

Const ForReading = 1, TristateTrue = -1
Dim var_f As Object
Dim var_text As string

Set var_file_sys = CreateObject("S cripting.FileSy stemObject")
Set var_f = var_file_sys.Ge tFile(vnp_impor t_file)
Set var_txt_file = var_f.OpenAsTex tStream(ForRead ing,
TristateTrue)

var_text = var_txt_file.Re adLine

var_txt_file.Cl ose

Not sure why it isn't working for you, but FWIW I msdr this test.vbs file,
and itworks perfectly. Maybe it'll give you a clue.

''' START CODE '''
Writefile
ReadFile

Sub Writefile
Set fso = CreateObject("S cripting.FileSy stemObject")
Set a = fso.CreateTextF ile("c:\temp\te stfile.txt", -1, -1)
a.WriteLine("Th is is a test.")
a.Close
End Sub

Sub ReadFile
Set fso = CreateObject("S cripting.FileSy stemObject")
Set f = fso.OpenTextFil e("c:\temp\test file.txt", 1, 0, -1)
MsgBox f.ReadLine
f.Close
End Sub
''' END CODE '''

[Chris]

Thanks a lot Stuart for your message.

I could read the data from text file, the problem was appearing when I
had unicode characters (languages other than English). I was not able
to view the data read in VB, because ????????? were appearing, but
when I saved them in Access file, it seems to be ok.

[Stuart McCall]

"Chris" <CL*****@gmail. comwrote in message
news:11******** **************@ o3g2000hsb.goog legroups.com...

Thanks a lot Stuart for your message.

I could read the data from text file, the problem was appearing when I
had unicode characters (languages other than English). I was not able
to view the data read in VB, because ????????? were appearing, but
when I saved them in Access file, it seems to be ok.

I must admit to hardly any knowledge of languages other than English, but
this problem of yours I find intriguing. Could you instruct me how to enter
some non-English characters so I may run a test or two? Do I simply switch
fonts?

[Chris]

Unfortunately I got the database from the country that entered the non-
english characters, I did not type them my self.

It seems to be working now, I use the OpenAsTextStrea m for reading
Unicode characters from TXT files and I insert them in an Access
database. Then I read the non-english characters from the Access
database for further processing.

Thanks a lot!!