文本操作的问题

Question

在文件中这么直接操作可能会遇到unicode的问题因为中文和英文字符是混合放置的要准确存取就要精确定位
我有一蠢招,就是把文件的所有内容读取到一个richtextbox中然后在对richtextbox的text进行字符串操作
包文件全部读取到richtextbox:
    fileout = FreeFile
    Open c:\aa.txt For Binary As #fileout(假使有一文件c:\aa.txt)
    richtextbox.Text = Input(LOF(1), fileout)
    Close #fileout
读取其中的某个字符:mid(richtextbox.text,地几个字符,1)
各位高手不要见笑啊~

Answer 1

能实现，不过要添加一个richtextbox
有没有直接点的？

Answer 2

Dim TempFile As Long
Dim LoadBytes() As Byte
Dim TempStr as StringTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileTempStr=StrConv(LoadBytes,vbUniCode)读取其中的某个字符:mid(TempStr,第几个字符,1)