Question

VB 记事本数据

记事本中是
do
pulsout 13 850
loop
end
如何读取850这一数据，解答者多加10分
我DO以上还有语句，难道要一直LINE INPUT #1?

Answer 1

dim tmpin,tmpins as string
dim get as integer
open ... for input as #1 '打开文件
line input #1,tmpins '读第一行
line input #1,tmpins '读第二行
close #1 ‘关闭文件
tmpin = slipt(tmpins,' ') '分割第二行，tmpin就自动变为数组
get = val(tmpin(2)) 'tmpin(0) 就是pulsout (1)就是13，这里吧(2)转换为数字