split()问题？

Question

s = Replace(s, Trim(txt_start.Text), "!@")
s = Replace(s, Trim(txt_end.Text), "!@")
s = Split(s, "!@")(1)s = Replace(s, "~!", vbTab)
Open App.Path + "\tmp.txt" For Output As #1
     Print #1, s
Close #1比如：
111
校长
学生
日期
222
老师
干部
日期
我设定开始111 到日期截取得到： 
校长
学生
我设定开始222 到日期截取得到：
222
本来是想得到干部。
难度就不能顺序执行，干嘛返回执行截取呢？

Answer 1

错了， 难度csdn不能修改帖子？
-----------------------------
比如：  
111  
校长  
学生  
日期  
222  
老师  
干部  
日期  
我设定开始 111  到 日期 截取得到：    
校长  
学生  
我设定开始 老师  到 日期 截取得到：  
222  
本来是想得到干部。  
难度就不能顺序执行，干嘛返回执行截取呢？

Answer 2

看你的代码，replace将s中的所有日期和老师都替换为了!@，你再将s用split按!@分组，你自己顺序print一下，看看数组是个什么情况，这样你才会更好的理解