急求VB高手解决一下

[会变熊的笨奔]

现在用vb在中文系统中读取bas文件中的内容。
如果bas文件中有日文的话读取出来的是乱码，急求解决办法。
谢谢大家。

我用的方法是
open fliepath for input as #filenumber

[会变熊的笨奔]

补充：也使用strconv函数，但是转换后仍旧是乱码

[无·法]

下面是读取utf8格式的文件的函数
Public Function ReadUTF8(ByVal sUTF8File As String) As String
If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function
Dim ados As Object
Set ados = CreateObject("ADODB.Stream")
With ados
.Charset = "utf-8"
.Type = 2
.Open
.LoadFromFile sUTF8File
ReadUTF8 = .ReadText
.Close
End With
Set ados = Nothing
End Function

你可以把Charset 修改为你对应的编码，日文的好像是euc或者shift_jis什么的吧

[会变熊的笨奔]

谢谢2楼的回答，问题解决了。

[贝隆]

[Quote=引用 2 楼 sysdzw 的回复:]
下面是读取utf8格式的文件的函数
Public Function ReadUTF8(ByVal sUTF8File As String) As String
If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function
Dim ados As Object
Set ados = Create……
[/Quote]
有理