Question

vb读取unicode编码字符（藏语）时乱码 该如何读入啊（汉语，藏语，英文混合文本）？？？谢谢啦

用API函数，以下是在CSDN搜到的
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)

Private Function ReadUniFile(ByVal sFile As String) As String
'没加错误处理，大家自己加吧
Dim a As Long
a = FileLen(sFile)
ReDim buff(a - 1) As Byte
ReDim buff1(a - 3) As Byte
Open sFile For Binary As #1
Get #1, , buff
Close #1
CopyMemory buff1(0), buff(2), a - 2
Dim s As String
s = StrConv(buff1, vbNarrow)
ReadUniFile = s
End Function
Private Sub Command1_Click()
Dim str As String
str = ReadUniFile(App.Path + "\12.txt")
Text1.Text = str
End Sub
试了下有问题 a = FileLen(sFile) 块显示
实时错误'5' :
无效的过程调用或参数
这下试着打开了 汉语，英语正常显示，藏语是乱码，全是？？？？？

Answer 1

我是这样写的：
Dim frTempl3 As New System.IO.StreamReader(strPath_Templ3, System.Text.Encoding.UTF8)
strTempl3 = frTempl3.ReadToEnd
frTempl3.Close()

追问

我问了 你的代码好像是vb.net啊

追答

呵呵，确实是vb.net的。vb的早忘了。

追问

.net 就 .net 再问下vb.net 该如何识别ascll 或unicode编码格式文档 谢谢

追答

我都是采用这种方式导入。看了这个类的说明，应该用utf8是可以通吃的，你可以测试一下，具体可以参考：
http://msdn.microsoft.com/zh-cn/library/system.io.streamreader%28VS.80%29.aspx

Answer 2

Text1.Text 空间不支持显示unicode字符

追问

vb.net 支持

追答

VB 不支持，用有一种方法“Microsoft Forms 2.0 object Library”，自己从部件里引用就行了