網站建設
                                                       
                                                          訪問新版
                                                      用戶ID/郵箱: 密 碼:
                                                      網站建設資訊 News 您目前的位置:網站建設 >> 網站建設資訊 >> 網頁設計 >> ASP中對應間隔字符  

                                                      ASP中對應間隔字符串位置數字加減函數使用

                                                      讀取間隔字符串中指定數據:

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


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


                                                      上一條: Dreamweaver技巧大放送前六招
                                                      下一條: ASP比較常用的緩存函數技巧
                                                      網站建設套餐
                                                      網站優化(網站推廣)
                                                      域名注冊
                                                      虛擬主機
                                                      企業郵局
                                                      相關資訊 Other News
                                                      首頁關于我們業務范圍新聞資訊成功案例客服中心聯系我們網站建設網站優化付款帳戶
                                                      COPYRIGHT(C) 2005-2019 亞網互聯·中國 版權所有 ALL RIGHTS RESERVED (粵ICP備15005241號)
                                                      深圳網站建設公司地址:深圳市寶安區龍華民治大道東明大廈15樓 1529-1531 室   E-Mail:[email protected]
                                                      公司電話:0755-89812581(8線)  
                                                      深圳市亞網科技有限公司 深圳網站建設常年法律顧問:朱運德律師
                                                      四川金7乐18061809期

                                                                                                                                                              欧洲足球五大联赛 三分时时彩计划全天计划 山东时时开奖直播 杭州宾馆按摩美女 特码王31期 腾讯分分彩稳定赚法 夜场两个性感美女热舞 北京赛app nba篮球多钱一个 体彩6十奖池余额 pt电子平台 可下分注册送分的电玩 非凡娱乐登录平台 北京pk拾苹果版 易彩彩票软件 山西新11选五七码推荐