【QTP】非常实用的Split字符串分割函数

  '定义一个测试用的字符串， 字符串用/做了分割
Dim myTestStr
myTestStr = "aaa/bbb/ccc/ddd/eee/fff/ggg"


'定义一个用于存储分割后字符串的数组
'Split(myTestStr , "/" , -1 , 1)就是切割myTestStr这个字符串，以"/"进行切割，
'-1表示返回所有子号码，1表示数值计算子字符串时使用的比较类型的值。
Dim arrTestStr
arrTestStr = Split(myTestStr , "/" , -1 , 1)   


 '下面的是将刚刚分割完成的字符串数组打印出来看一下
Dim i
For i = 0 to ubound(arrTestStr)      'ubound(arrTest)的意思是得到arrTest数组下标的最大值
       print "arrTestStr(" & i & ") = " & arrTestStr(i)   '打印语句
Next

arrTest(0) = aaa

arrTest(1) = bbb

arrTest(2) = ccc

arrTest(3) = ddd

arrTest(4) = eee

arrTest(5) = fff

arrTest(6) = ggg