使用Robot从txt文件中读取不同行的内容并显示（续）

上一篇文章中介绍了如何使用Robot编写函数，取得txt文件中每一行的内容，但给出的脚本中还存在几个问题：1.函数没有提取出来，共用性不强 2.如果想从一个有n多行的文件中把所有内容取出，则每调用一次函数，函数内部都会跑一遍循环取值，很浪费

于是我又重新整理了一下，将函数放置到库文件（.sbl）中，并在里面定一一个全局变量cell（），取值函数ReturnCell变为子程序，删除返回值的参数，这个子程序中将取得的变量放到数组cell中，这样引用这个sbl的脚本就可以使用cell（）的值了。脚本如下：

主脚本：txt

'$include: "FunctionLib.sbl"

Sub main                  '主脚本
    Dim x as integer
    Dim Location as string
    Dim msgtext as string
   
    Location = "D:/gvb.txt"    '指定一个文件
   
    x = returnrownum(location)    '调用ReturnRowNum函数，返回这个文件中的行数
   
    call ReturnCell(location,x)    '调用ReturnCell，返回指定文件，指定行的内容
    msgbox cell(0)
    msgbox cell(3)

End sub

＝＝＝＝＝＝＝