成人免费在线观看视频-国产绿帽子多p交换视频-精品国产一区av-免费xx视频-人妻熟妇乱又伦精品视频中文字幕-特级毛片内射www无码

ASP中對(duì)應(yīng)間隔字符串位置數(shù)字加減函數(shù)使用

2012/10/16 9:33:30   閱讀:3984    發(fā)布者:3984

讀取間隔字符串中指定數(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(類型串):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
%>

主站蜘蛛池模板: 亚洲人成在线播放网站| 污污内射久久一区二区欧美日韩| 午夜成午夜成年片在线观看| 中国丰满人妻videoshd| 少妇精品视频无码专区| 精品国产免费一区二区三区香蕉| 99久久99久久免费精品蜜桃| 性做无码视频在线观看| 色综合久久中文综合网| 特级毛片内射www无码| 国产精品成人a区在线观看 | 99精品视频在线观看免费| 伊人久久大香线蕉综合直播| 国产免费拔擦拔擦8x高清在线人| 婷婷五月综合色中文字幕| 国产+成+人+亚洲欧洲自线| 成人乱码一区二区三区av| 亚洲综合一区二区三区无码| 精品国产男人的天堂久久| 毛片免费视频肛交颜射免费视频| 伊人色综合一区二区三区影院视频| 国产在线视欧美亚综合| 人妻少妇精品一区二区三区| 成年女人wwxx免费国产| 色偷偷亚洲第一综合网| 亚洲色成人网站www永久男男| 艳妇臀荡乳欲伦交换av1| 少妇裸交aa大片| 亚洲首页| 国内少妇偷人精品视频| 成人毛片18岁女人毛片免费看| 亚洲高清中文字幕在线看不卡| 天堂一区人妻无码| 97久久超碰国产精品旧版| 日本免费人成视频在线观看| 综合人妻久久一区二区精品 | 激情久久av一区av二区av三区| 国产精品成年片在线观| 久久青青草原一区二区| 夜夜高潮夜夜爽国产伦精品| 福利小视频国产|