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

读取间隔字符串中指定数据：

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

'======================================
'函数名：SingleSplit
'作 用：读取间隔字符串中指定数据
'参 数：CurStr(需要处理的字符串数据)
'   SymbolC(间隔字符串)
'   CurCPos(指定位置数据)
'======================================
Public Function SingleSplit(ByVal CurStr,ByVal SymbolC,ByVal CurCPos)
   On Error Resume Next
   Dim CloudL,TempStr
   CloudL=Split(CurStr,SymbolC)
   TempStr=CloudL(CurCPos)
   SingleSplit=TempStr
End Function
%>

("3|2|42|34|23|4","|",2,"A")
'输出结果为：3|2|43|34|23|4

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

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

再补上一个函数，将普通字符串转为数组函数，方便入库等操作：

程序代码
<%
Response.write toArray("234098098we0rwriouwer",3,"|")
'输出结果为：234|098|098|we0|rwr|iou|wer

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

新闻标题：ASP中对应间隔字符串位置数字加减函数使用
本文来源：/news4/166254.html

成都网站建设公司_创新互联，为您提供网站收录、网站导航、做网站、网站改版、外贸网站建设、网站排名

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联