Question

vbs实现从文本读取汉字的一行，然后转为unicode的编码输出，输出为一变量。

要求代码运行稳定，快速，好的我再追加50分。

Answer 1

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Set OpenFile=fso.OpenTextFile("D:\test\unicode.txt",1,True)
sLine = OpenFile.ReadLine()
MsgBox(sLine)
sHex = ""
For i = 1 To Len(sLine)
c = AscW( Mid(sLine,i,1) )
c1 = Hex(c)
MsgBox( c1 & "," & Mid(sLine,i,1) )
sHex = sHex & c
Next
MsgBox( sHex & "," & sLine )