# Re: 有开快速开启文字档。

Posted by XGT on November 08, 1999 at 04:03:15:

In Reply to: 有开快速开启文字档。 posted by ComBilLi on November 07, 1999 at 13:46:12:

: 如果用以下方法开文字档:
: Open "1.txt" For Output As #1
: txt$ = Input$(LOF(1),#1)
: Close #1
: Text1.Text = txt$
: 虽比用Line Input快，但不能开启带有中文的txt file，有没有方法解决?
试试看这个...
dim Buff() as byte
Open "1.txt" For Binary As #1
ReDim Buff(LOF(1) - 1)
Get #1, , Buff
Text1.Text = StrConv(Buff, vbUnicode)
Close #1

Follow Ups: