Question

按键精灵提取记事本指定行然后输出

宝宝做档案 只想找一个从文本里复制第一行 然后输出到当前光标，然后读取文档第二行 换个位置 然后输出到当前光标
网上找的一个是随机输出的 还是黏贴到剪贴板的。。
测试都可用。本人小白也看不懂。。

Text = Plugin.File.ReadFileEx("C:\1.txt")
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
x = Int((Var1 + 1) * Rnd)
TracePrint Var(x)
Call Plugin.Sys.SetCLB(Var(x)) '将内容写入剪切板
TracePrint Plugin.Sys.GetCLB(x) '读取剪切板内容

还有一个逐行写入的
word = Plugin.File.ReadFileEx("C:\1.txt")
//分割为行
Dim hang
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
SayString hang(i)
Delay 900
KeyPress "Tab", 1
//暂停，任意键继续
WaitKey
Next
宝宝只想要个单纯的 从某记事本里提取第一行 然后输出。。然后提取第二行输出（此处需要换个位置）不用任何按任意键啥的 中间加个延迟最好

Answer 1

‘我就拿你的第一个例子，给你详细解释，修改把。

do '如果需要循环，那么循环开始（新增）
Text = Plugin.File.ReadFileEx("C:\1.txt")'这个是读取文档内容
TracePrint Text'调试输出内容文本
Var = Split(Text, "|")'以“|”为分割符号，分割文本返回到数组
Var1 = UBound(Var)'这个是取数组最大下标。可以理解成数组数量
TracePrint Var1'调试输出下标
Randomize'这个是置随机数种子。可见下面要用到的是随机数。（删掉）
x = Int((Var1 + 1) * Rnd)'rnd是取随机数，整句是取随机行数了。（删掉）
x=x+1 'x默认是空值=0，所以你可以不用定义变量，直接使用，如果再循环中，或者脚本不关闭的情况下，每运行一次都会+1。下次就是取第二行了（新增）
If x <= Var1 Then '这里加一个判断，如果x小于或等于文本的行数，则执行以下（新增）
TracePrint Var(x)'调试输出随机取出的行内容
Call Plugin.Sys.SetCLB(Var(x)) '将内容写入剪切板（删除）
TracePrint Plugin.Sys.GetCLB(x) '读取剪切板内容（删除）
'鼠标需要移动到哪里，操作写在这里。
SayString Var(x) '输出内容（新增）
Else '否则命令。如果x大于了文本的最大行数，则完成（新增）
MsgBox "已经输出所有行" '弹出信息框（新增）
End If  '结束判断条件。（新增）
loop'循环结束（新增）
TracePrint "裙：100九7二62五"

专业作者回答。