按键精灵如何实现如下操作：从记事本中逐行提取信息，并逐行输入到指定的一个位置。

Question

以下是本人最后一次修改的样子，怎么弄都没办法得到想到的结果，谢谢好心人。
dim arr,a
text= Plugin.file.Readfileex("C:\111.txt")
arr=split(text,"|")
a=arr(i)
saystring a

自己如何弄总是出现：要么只得到和输入第一行的内容，要么所有的内容一次性输入到指定位置。
从文本第一行提取信息，将第一行内容输入到指定位置（每行要输入的位置相同）进行一些操作后，再提取第二行。。。。。。。一直循环到最后。

Answer 1

源码缺少i的赋值，应先给i定一个变化的值，如按键官方例子：
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为："& Text
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
i=i+1
Next
End If