上一篇文章中介绍了如何使用Robot从Excel中读取不同行和列的内容,但其中涉及到很多较复杂的语句,所以对于阅读和理解都不是很方便,这里我实验了一下使用Robot从txt文件中读取不同行的内容并显示(txt里没有列的概念),最后将代码“封装”成两个函数:ReturnRowNum,ReturnCell。一个是返回指定文件的行数,一个是返回指定文件不同行的内容。
脚本:
Declare Function ReturnRowNum(Dircetory as string) as integer
Declare Function ReturnCell(Dircetory as string,RowNum as integer,ReturnRowCell as integer) as string
Sub main '主脚本
Dim x as integer
Dim Location as string
Dim msgtext as string
Location = "C:/qingd.txt" '指定一个文件
x = returnrownum(location) '调用ReturnRowNum函数,返回这个文件中的行数
msgtext = ReturnCell(location,x,1) '调用ReturnCell函数,返回指定文件,指定行的内容
msgbox msgtext
End sub
Function ReturnRowNum(Dircetory as string) as integer '返回指定文件的行数
Dim testscore as Strin