WEB开发网
开发学院WEB开发ASP ASP Split将字符串转换为数组并正确获取数组下标值... 阅读

ASP Split将字符串转换为数组并正确获取数组下标值函数UBoundStrToArr()

 2009-05-04 10:40:18 来源:WEB开发网   
核心提示:1.检测右侧是否存在间隔字符串,如果存在则需要将数组最大下标值减一2.如果不存在则直接返回原数组最大下标 程序代码<%Dim TempStr,TempArr,TempItemTempStr="第一项1|第二项1|第三项|"TempArr=Split(TempStr,"|")

1.检测右侧是否存在间隔字符串,如果存在则需要将数组最大下标值减一
2.如果不存在则直接返回原数组最大下标


 程序代码
<%
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
%>

Tags:ASP Split 字符串

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接