成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

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

2022-06-11    分類: 網(wǎng)站建設(shè)

讀取間隔字符串中指定數(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ù)庫字段中以字符串?dāng)?shù)組形式保存的數(shù)據(jù)的修改,加減操作如果用Replace函數(shù)做適當(dāng)調(diào)整修改便可以準(zhǔn)確操作字符串。

再補(bǔ)上一個(gè)函數(shù),將普通字符串轉(zhuǎn)為數(shù)組函數(shù),方便入庫等操作:

程序代碼
<%
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
%>

新聞標(biāo)題:ASP中對應(yīng)間隔字符串位置數(shù)字加減函數(shù)使用
本文來源:http://jinyejixie.com/news4/166254.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、網(wǎng)站導(dǎo)航、做網(wǎng)站網(wǎng)站改版、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站排名

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)

成都app開發(fā)公司
海林市| 孝义市| 怀仁县| 高要市| 佛冈县| 蓬莱市| 富阳市| 拉萨市| 六枝特区| 民丰县| 大同市| 丰宁| 南丹县| 抚松县| 永川市| 库伦旗| 荣成市| 和政县| 阿瓦提县| 师宗县| 岱山县| 镇康县| 正蓝旗| 长兴县| 莱芜市| 汤阴县| 新干县| 平山县| 湘西| 香格里拉县| 分宜县| 张家口市| 安溪县| 搜索| 遂昌县| 科尔| 钟山县| 沙河市| 盐源县| 沾化县| 广平县|