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

上一篇文章中介绍了如何使用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 msg