这个昨天刚做过，也不难。A = 1Do if WaitKey =13 B = Lib.文件.读取指定行文本内容("C:\文本.txt", A) SayString B A = A + 1 End Ifloop复制上面代码就可以了，按一次回车键复制一行，文件路径按情况修改。
