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

ASP中对应间隔字符串位置数字加减函数使用

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

 程序代码Fgx中国设计秀

<%Fgx中国设计秀
Response.write SplitStrAM("3|2|42|34|23|4","|",2,"A")Fgx中国设计秀
'输出结果为:3|2|43|34|23|4Fgx中国设计秀

'**************************Fgx中国设计秀
'函数名:SplitStrAMFgx中国设计秀
'作   用:间隔字符串中某位置加减Fgx中国设计秀
'参   数:参数位置从零计Fgx中国设计秀
'         NeedStr(需要处理的串)Fgx中国设计秀
'         DistantStr(间隔字符串)Fgx中国设计秀
'         PositionNum(第几个位置)Fgx中国设计秀
'         TypeStr(类型串):A or MFgx中国设计秀
'返   回:完成加减后的字符串Fgx中国设计秀
'*************************Fgx中国设计秀
Public Function SplitStrAM(ByVal NeedStr,ByVal DistantStr,ByVal PositionNum,ByVal TypeStr)Fgx中国设计秀
    Dim TempSplitFgx中国设计秀
     TempSplit=Split(NeedStr,DistantStr)Fgx中国设计秀
    Select Case UCase(TypeStr)Fgx中国设计秀
        Case "A" '执行增加操作Fgx中国设计秀
             TempSplit(PositionNum)=TempSplit(PositionNum)+1Fgx中国设计秀
        Case "M" '执行减少操作Fgx中国设计秀
             TempSplit(PositionNum)=TempSplit(PositionNum)-1Fgx中国设计秀
    End SelectFgx中国设计秀
     SplitStrAM=Join(TempSplit,DistantStr)Fgx中国设计秀
End FunctionFgx中国设计秀
%>Fgx中国设计秀

Fgx中国设计秀
提示:这个函数主要作用在于准确定位数据库字段中以字符串数组形式保存的数据的修改,加减操作如果用Replace函数做适当调整修改便可以准确操作字符串。Fgx中国设计秀

Fgx中国设计秀
再补上一个函数,将普通字符串转为数组函数,方便入库等操作:Fgx中国设计秀

 程序代码Fgx中国设计秀
<%Fgx中国设计秀
Response.write toArray("234098098we0rwriouwer",3,"|")Fgx中国设计秀
'输出结果为:234|098|098|we0|rwr|iou|werFgx中国设计秀

'**************************Fgx中国设计秀
'函数名: toArrayFgx中国设计秀
'作   用:添加自定义分隔符,将普通字符串转为自定义分隔符的数组Fgx中国设计秀
'参   数:Fgx中国设计秀
'         StrA(需要处理的字符串)Fgx中国设计秀
'         StrStep(每几个字符串添加一个分隔字符)Fgx中国设计秀
'         StrSplit(间隔字符串:|)Fgx中国设计秀
'返   回:完成添加分隔符后的字符串Fgx中国设计秀
'*************************Fgx中国设计秀
Function toArray(byVal StrA,byVal StrStep,byVal StrSplit)Fgx中国设计秀
dim StrALen,i,StrArray:StrALen = Len(StrA)Fgx中国设计秀
For i = 1 to StrALen step StrStepFgx中国设计秀
StrArray = StrArray & mid(StrA,i,StrStep) & StrSplitFgx中国设计秀
NextFgx中国设计秀
StrArray = Left(StrArray, Len(StrArray)-1)Fgx中国设计秀
toArray = StrArrayFgx中国设计秀
End FunctionFgx中国设计秀
%>Fgx中国设计秀

Fgx中国设计秀
读取间隔字符串中指定数据:Fgx中国设计秀

Fgx中国设计秀
 程序代码Fgx中国设计秀
<%Fgx中国设计秀
Dim MyStr:MyStr="One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten"Fgx中国设计秀
Response.Write SingleSplit(MyStr,",",4)Fgx中国设计秀
'输出结果:FiveFgx中国设计秀

'======================================Fgx中国设计秀
'函数名:SingleSplitFgx中国设计秀
'作 用:读取间隔字符串中指定数据Fgx中国设计秀
'参 数:CurStr(需要处理的字符串数据)Fgx中国设计秀
'   SymbolC(间隔字符串)Fgx中国设计秀
'   CurCPos(指定位置数据)Fgx中国设计秀
'======================================Fgx中国设计秀
Public Function SingleSplit(ByVal CurStr,ByVal SymbolC,ByVal CurCPos)Fgx中国设计秀
   On Error Resume NextFgx中国设计秀
   Dim CloudL,TempStrFgx中国设计秀
   CloudL=Split(CurStr,SymbolC)Fgx中国设计秀
   TempStr=CloudL(CurCPos)Fgx中国设计秀
   SingleSplit=TempStrFgx中国设计秀
End FunctionFgx中国设计秀
%>Fgx中国设计秀

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