aText = Plugin.File.ReadFileEx("C:\1.txt")
MessageBox UBound(Split(aText, "|"))
For UBound(Split(aText, "|"))-1//减去一次为了显示最后的效果
Text = Plugin.File.ReadFileEx("C:\1.txt")
MyArray = Split(Text, "|")
Call Plugin.File.DeleteFile("C:\1.txt")
If UBound(MyArray)>=0 Then
MessageBox Cstr(MyArray(0))
For i=1 to UBound(MyArray)-1
Call Plugin.File.WriteFileEx("C:\1.txt", Cstr(MyArray(i)))
Next
End If
Next
RunApp "C:\1.txt"
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024