你好,能帮忙看下这段代码哪里有问题吗? Text = Plugin.File.ReadFileEx("E:\test\zb.txt") TracePrint Text Dim MyArray Dim 坐标 MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 TracePrint Cstr(MyArray(i)) 坐标= Split(MyArray(i),"a") TracePrint 坐标(0) TracePrint 坐标(1) i = i + 1 Delay 100 Next End If