Text = Plugin.File.ReadFileEx("C:\Config.txt")////账号文本自行修改
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
For i=0 to UBound(MyArray)-1
Msgbox "第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Next
End If
追问我是要填写在某个框 不是弹出窗口 第一次循环输入qqiul253 不是弹出窗口
追答Msgbox "第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i)) 修改成SayString Cstr(MyArray(i))
内容都已经有了,稍微做点修改就能输出了