ASP之Split将字符串转换为数组正确获取数组下标值
ASP
2025-02-22 12:56
55
0
Dim TempStr,TempArr,TempItem
TempStr = " 第一项1|第二项1|第三项| "
TempArr = Split (TempStr, " | " )
Response.Write TempStr & " <br /> "
For TempItem = 0 To UBoundStrToArr(TempStr, UBound (TempArr), " | " )
Response.Write TempArr(TempItem) & " <br /> "
Next
' *************************
' 函数:UBoundStrToArr
' 作用:检测原字符串转换为数组的最大下标值
' 参数:cCheckStr(需要检测的字符串)
' cUBoundArr(生成数组的最大下标值)
' cSpaceStr(间隔字符串)
' 返回:数组的最大下标值
' ************************
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)
If Instr (cCheckStr,cSpaceStr) = 0 Then
UBoundStrToArr = cUBoundArr
Exit Function
End If
Dim TempSpaceStr,UBoundValue
TempSpaceStr = Mid (cCheckStr, Len (cCheckStr) - Len (cSpaceStr) + 1 ) ' 获取字符串右侧间隔字符
If TempSpaceStr = cSpaceStr Then ' 如果字符串最右侧存在间隔字符,则下标值需要-1
UBoundValue = cUBoundArr - 1
Else
UBoundValue = cUBoundArr
End If
UBoundStrToArr = UBoundValue
End Function
原文：https://blog.csdn.net/lingyun410/article/details/2462167
