程序代碼

<%
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
%>