|
Function orgCode(vLength)
Dim MyArray,MyString,vStr,vArr, Msg
MyString = "***********"
MyArray = Split(MyString, ",", -1, 1)
For i = 1 To len(vLength)
vStr = Mid(vLength, i, 1)
For j = 0 To 61
vArr = MyArray(j)
If Trim(vStr) = Trim(vArr) Then
Msg = Msg & MyArray(j)
exit for
End If
Next
Next
If Trim(vLength) = Trim(Msg) Then
Reporter.ReportEvent micPass,"提示","********"
Else
Reporter.ReportEvent micPass,"提示","********"
End If
End Function
调用方法 orgCode(Len1) ,Len1=9,请问如何在Trim(vStr) = Trim(vArr)时跳出内循环,使脚本的效率提高?
|
|