Open "template.txt" For Input As #6
Do While Not EOF(6)
Text1.Text = StrConv(Input(LOF(6), 6), vbUnicode) '输入超出文件尾
Loop
close




ps:Text1.Text 已设置成文本栏，template文件字少就没问题，字多了就出错了
 





[ 本帖最后由 woa 于 2010-5-20 13:30 编辑 ]

StrConv(Inputb(LOF(6)), vbUnicode)

input 识别汉字=1字节
lof 识别汉字=2字节
替换lof改用line input
 问题解决