编程论坛 » VB6论坛 » 这个为什么错了 请高手指教

qqwxluvs 发表于 2008-5-28 22:54

这个为什么错了 请高手指教

Sub ttt()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim aData
Set ts = fso.OpenTextFile("c:\1.txt")
aData = Split(ts.ReadAll, bCrLf)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)
End Sub
运行时提示下标越界，请高手指点一下

三断笛 发表于 2008-5-29 02:22

确认你的文本文件有42行?

qqwxluvs 发表于 2008-5-29 02:40

有的

lll930720 发表于 2008-5-29 10:47

增加一句
MsgBox UBound(aData)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)

三断笛 发表于 2008-5-29 11:21

应该是VBCRLF不是Bcrlf

qqwxluvs 发表于 2008-5-29 18:22

谢谢指点

谢谢指点 解决了 谢谢楼上的

查看完整版本: 这个为什么错了 请高手指教