你的位置：
菜比来向大神求问！关于Split函数
来源: 按键精灵资源站
&&最近我在做一个读取TXT文本为网页登陆的脚本，TXT文本格式是这样的：
& &123456----123456
& & 234567----234567
&&现在我按照自己搜索的代码，初步能达到我的要求。但是问题也来，因为我的TXT文档加了&----&这个分隔符的，所以我代码必须要这样写CODE:MyArray = Split((Split(Text, &|&)(0)), &----&)但是如果我这样写了，那么我就不能循环的读取我的TXT文本，只会读一行就停止。为此，特地来向大神们请教！
&&贴上我能正常分隔但是不能循环的代码：CODE:Text = Plugin.File.ReadFileEx(&C:\Users\Mr.Zhou\Desktop\1.txt&)
dim MyArray
MyArray = Split((Split(Text, &|&)(0)), &----&)
If UBound(MyArray)&=0 Then
& & For UBound(MyArray)
& && &&&//下面这句是得到文本内容
& && &&&SayString Cstr(MyArray(0))
& && &&&Delay 1000
& && && && && & SayString Cstr(MyArray(1))
& && && && && & Delay 1000
& && &&&Msgbox &成功输入第 & & i+1 && 行文本内容为：&& Cstr(MyArray(i))
& && &&&Delay 1000
& && &&&i=i+1
End If再贴上能循环但是不能正常分隔的代码：
CODE:Text = Plugin.File.ReadFileEx(&C:\Users\Mr.Zhou\Desktop\1.txt&)
dim MyArray
MyArray = Split(Text, &----&)
If UBound(MyArray)&=0 Then
& & For UBound(MyArray)
& && &&&//下面这句是得到文本内容
& && &&&SayString Cstr(MyArray(0))
& && &&&Delay 1000
& && && && && & SayString Cstr(MyArray(1))
& && && && && & Delay 1000
& && &&&Msgbox &成功输入第 & & i+1 && 行文本内容为：&& Cstr(MyArray(i))
& && &&&Delay 1000
& && &&&i=i+1
End If两段代码的区别仅在于Slit函数这里，求大神们帮帮忙，新手太无奈，感激不尽！起水痘的病号饭菜谱，不要有发物，越全越好，只有这些财富值了，拜托各位好心大神了！_育儿问答_宝宝树
起水痘的病号饭菜谱，不要有发物，越全越好，只有这些财富值了，拜托各位好心大神了！
当时年龄：
还没有宝宝求水丽菜作品截图和全部封面，_百度知道
求水丽菜作品截图和全部封面，
我有更好的答案
按默认排序
她单有吗的作品就有471部兄弟，谁有那闲情啊，五码还有好几部，你让人给你全部截图
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}