Question

vb中怎么读取txt文件指定位置

Answer 1

Dim
s()
As
String,
i
As
Integer,
n
As
Long
Open
"123.txt"
For
Binary
As
#1
'txt文件名自己改
s
=
Split(Input(LOF(1),
#1),
vbCrLf)
'按行把txt文件读入到数组s中
Close
#1
For
i
=
2
To
5
'第3到6行
n
=
n
+
Val(s(i))
'求和
Next
MsgBox
"第3到6行的数字之和为"
&
n