//下面这句是读出文本("C:\Config.txt")的内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\1.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
For i = 0 To UBound(MyArray)-1
长度=len(MyArray(i))
For ii=1 to 长度
SayString (mid(MyArray(i), ii, 1))
Delay 1000
Next
Next
End If