按键精灵读取文本并且输入 逐行输入分割.我的老是出错 请高手指教！

Question

123.txt 文本如下
刘盼|20140101|13666666666
宋瑞|20140101|13555222333
黄兰|20140101|13995555555

我用的按键精灵代码如下 b c 的值输出对话框候都是空白，请高手指教

Path = "C:\123.txt" '路径
text = Plugin.File.ReadFileEx(Path) '读取
fg = split(text, "|") '将多ge分离
count = UBound(fg) '取得个数
For i = 0 To count-1 'ROR循环，分离
s = split(fg(i),"|")
a = s(0)
b = s(1)
c = s(2)

Call shuru'调用call

Next

Function shuru()

MessageBox a
MessageBox b
MessageBox c

End Function
谢谢哥们。还是有点疑问。
原本是批量输入文本代替手工操作的，现在集中在一个call中了，没法添加键盘鼠标操作呢。能再帮我看看吗？谢谢！

Answer 1

这问题挺简单的吧

你是说要依次得到分隔符里面的内容吗？ 还是别的

比如：刘盼|20140101|13666666666

以此弹出 刘盼------20140101----13666666666

是这样吗 ？  这个挺简单的吧 你试试我改过后的代码

Path = "C:\123.txt"                   '路径
text = Plugin.File.ReadFileEx(Path)'读取
fg = split(text, "|")'将多ge分离
count = UBound(fg)                    '取得个数
For i = 0 To count-1
    a = fg(i)
    Call shuru()
Next
Sub shuru()
    MessageBox a
End Sub

==============================

当然如果你要得到分类形式的也行

如下代码

Path = "C:\123.txt"                   '路径
text = Plugin.File.ReadFileEx(Path)'读取
fg = split(text, "|")'将多ge分离
次数= UBound(fg)                    '取得个数
循环次数=次数/3
For i=0 To 循环次数-1
    备份i=i
    For 循环次数
        a = fg(i)
        Call shuru()
        i=i+3
    Next
    i=备份i
Next  
Sub shuru()
    MessageBox a
End Sub

Answer 2

count-1改成count+1追问

count+1 还是bc不能够输出。。。
对话框弹出第一个 然后第二和第三个都是空白的。