讀取間隔字符串中指定數(shù)據(jù)：
程序代碼
<%
Dim MyStr:MyStr="One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten"
Response.Write SingleSplit(MyStr,",",4)
'輸出結(jié)果：Five
'======================================
'函數(shù)名：SingleSplit
'作 用：讀取間隔字符串中指定數(shù)據(jù)
'參 數(shù)：CurStr(需要處理的字符串?dāng)?shù)據(jù))
' SymbolC(間隔字符串)
' CurCPos(指定位置數(shù)據(jù))
'======================================
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")
'輸出結(jié)果為：3|2|43|34|23|4
'**************************
'函數(shù)名:SplitStrAM
'作 用:間隔字符串中某位置加減
'參 數(shù):參數(shù)位置從零計(jì)
' NeedStr(需要處理的串)
' DistantStr(間隔字符串)
' PositionNum(第幾個(gè)位置)
' TypeStr(類(lèi)型串)：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" '執(zhí)行增加操作
TempSplit(PositionNum)=TempSplit(PositionNum)+1
Case "M" '執(zhí)行減少操作
TempSplit(PositionNum)=TempSplit(PositionNum)-1
End Select
SplitStrAM=Join(TempSplit,DistantStr)
End Function
%>
提示：這個(gè)函數(shù)主要作用在于準(zhǔn)確定位數(shù)據(jù)庫(kù)字段中以字符串?dāng)?shù)組形式保存的數(shù)據(jù)的修改，加減操作如果用Replace函數(shù)做適當(dāng)調(diào)整修改便可以準(zhǔn)確操作字符串。
再補(bǔ)上一個(gè)函數(shù)，將普通字符串轉(zhuǎn)為數(shù)組函數(shù)，方便入庫(kù)等操作：
程序代碼
<%
Response.write toArray("234098098we0rwriouwer",3,"|")
'輸出結(jié)果為：234|098|098|we0|rwr|iou|wer
'**************************
'函數(shù)名: toArray
'作 用:添加自定義分隔符，將普通字符串轉(zhuǎn)為自定義分隔符的數(shù)組
'參 數(shù):
' StrA(需要處理的字符串)
' StrStep(每幾個(gè)字符串添加一個(gè)分隔字符)
' 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
%>
【 微信掃一掃 】
