VB6将unicode字符串加载为＆＃39; ChrW $（＆amp; H410）＆＃39;等等来自txt文件

Question

我在记事本中以Unicode编码保存了一个长Unicode字符串，格式为

ChrW$ (&H410) & "   " & ChrW$(&H430) & vbNewLine & ChrW$(&H42F)

等，到文件结尾

如果我在代码中将上面的代码指定为“墨迹编辑”框的值，它会显示正确的Unicode字符，这就是我想要的。

但出于某种原因，我无法找到正确的方法来打开文本文件并获得显示Unicode字符的方法。这可能很简单，但我完全糊涂了。

实现这一目标的简单方法是什么？感谢

Answer 1

假设您的文件具有Unicode文本，而不是您显示的VB表达式......对此并不多：

Dim F As Integer
Dim Text() As Byte

F = FreeFile(0)
Open "SomeUnicode.txt" For Binary Access Read As #F
'File is UTF-16LE, so we'll skip the BOM:
ReDim Text(LOF(F) - 3)
Get #F, 3, Text
Close #F
InkEd.Text = Text

否则您需要一个表达式求值程序，如果删除$ 类型装饰器，则可以使用Microsoft脚本控制来处理此类表达式。