用VB在记事本中查找数据

Question

用VB在记事本中查找数据，并且赋给已经定义好的变量。 例如在上千行的记事本中首先查找出一行的字符与事先定义好的字符完全一样，接着在查找出来的那行下面第n行中的数据给变量赋值。需要查找的行中全部为英文大写字母，需要给变量赋值的数据全部为数字（可能有小数）。查找过程的终止：在所需查找的那行开始算，以字符“ENDSEC”为结束标志，即提取从所需查找的那行开始到ENDSEC的那行中间的某些数据。注：所需查找的行并不唯一。

Answer 1

dim str_search '需要查找的字串 dim num_n '第N行 dim dataA '需要赋值的变量 dim fileroot '文件路径 str_search="???" '赋值 num_n=100 dataA="" fileroot="c:\1.txt" Open fileroot For Input As #1 Do While b<>"ENDSEC" Line Input #1, b if b=str_search then for i=1 to num_n Line Input #1, b next i dataA=b end if Loop 没测试过。如果你的第N行超过了“ENDSEC”的那行或者超出文件结尾的话也许会出错。 自己加个逻辑判断就可以了。