UC知道请教：VB在读取文本文件时发生的怪问题！
来源：百度知道 编辑：UC知道 时间：2024/05/18 21:04:35
当VB读取一个包含以下文本的文本文件的时候报错：“输入超出文件尾”
这段文本是：
VC$^/l Dv★
请高手帮忙解决！！
谢谢！
那段字符前后都有内容，使用zdingyun 的方法是不会报错，但是读到那段字符以后就不继续读取了：
比如：
color:#e10900>红豆</font> VC$^/l Dv★ 热讯社区bbs armystar comPT EXU</a>
</td><TD><a href="
它就只读到 EX 就不继续啦！
这段文本是：
VC$^/l Dv★
请高手帮忙解决！！
谢谢！
那段字符前后都有内容，使用zdingyun 的方法是不会报错，但是读到那段字符以后就不继续读取了：
比如：
color:#e10900>红豆</font> VC$^/l Dv★ 热讯社区bbs armystar comPT EXU</a>
</td><TD><a href="
它就只读到 EX 就不继续啦！
采用fso对象模型，用TestStream对象处理
你试试以下代码，在VB6读你给出的文本内容，未见错误：
Option Explicit
Dim str1 As String
Dim str As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1 = ""
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, str1
str = str & str1 & Chr(13) & Chr(10)
Text1 = str
Loop
Close #1
End Sub