最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > asp教程

ASP Split将字符串转换为数组获取标值函数

日期:09-17    来源:中国设计秀    作者:cnwebshow.com

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

rHw中国设计秀
 程序代码rHw中国设计秀
<%rHw中国设计秀
Dim TempStr,TempArr,TempItemrHw中国设计秀
TempStr="第一项1|第二项1|第三项|"rHw中国设计秀
TempArr=Split(TempStr,"|")rHw中国设计秀
Response.Write TempStr&"<br />"rHw中国设计秀
For TempItem=0 To UBoundStrToArr(TempStr,UBound(TempArr),"|")rHw中国设计秀
     Response.Write TempArr(TempItem)&"<br />"rHw中国设计秀
NextrHw中国设计秀
'*************************rHw中国设计秀
'函数:UBoundStrToArrrHw中国设计秀
'作用:检测原字符串转换为数组的最大下标值rHw中国设计秀
'参数:cCheckStr(需要检测的字符串)rHw中国设计秀
'       cUBoundArr(生成数组的最大下标值)rHw中国设计秀
'       cSpaceStr(间隔字符串)rHw中国设计秀
'返回:数组的最大下标值rHw中国设计秀
'************************rHw中国设计秀
Public Function UBoundStrToArr(ByVal cCheckStr,ByVal cUBoundArr,ByVal cSpaceStr)rHw中国设计秀
    If Instr(cCheckStr,cSpaceStr)=0 ThenrHw中国设计秀
         UBoundStrToArr=cUBoundArrrHw中国设计秀
        Exit FunctionrHw中国设计秀
    End IfrHw中国设计秀
    Dim TempSpaceStr,UBoundValuerHw中国设计秀
     TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1) '获取字符串右侧间隔字符rHw中国设计秀
    If TempSpaceStr=cSpaceStr Then '如果字符串最右侧存在间隔字符,则下标值需要-1rHw中国设计秀
         UBoundValue=cUBoundArr-1rHw中国设计秀
    ElserHw中国设计秀
         UBoundValue=cUBoundArrrHw中国设计秀
    End IfrHw中国设计秀
     UBoundStrToArr=UBoundValuerHw中国设计秀
End FunctionrHw中国设计秀
%>rHw中国设计秀

本文引用地址:/bc/article_46282.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明