程序代码
<%
Response.write SplitStrAM("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
%>
读取间隔字符串中指定数据：
程序代码
<%
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
%>