text = Plugin.File.ReadFileEx("C:\Users\haier\Desktop\1.txt")
arr = split(text, "|")
For i = 0 To 41 Step 10
Delay 100
SayString arr(i)
Delay 500
KeyPress "Enter", 1
SayString arr(i+1)
Delay 500
KeyPress "Enter", 1
SayString arr(i + 6)
KeyPress "Enter", 1
Next
Sub celia(i)
text = Plugin.File.ReadFileEx("C:\Users\haier\Desktop\1.txt")
arr = split(text, "|")
KeyPress arr(i), 1
End Sub
For i = 0 To 8 step 2
Delay 500
Call celia(i+1)
Delay 500
Next