• <sub id="h4knl"><ol id="h4knl"></ol></sub>
    <sup id="h4knl"></sup>
      <sub id="h4knl"></sub>

      <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
      1. <strong id="h4knl"></strong>

      2. asp數(shù)組重復刪除函數(shù)

        時間:2024-09-01 15:13:48 ASP 我要投稿
        • 相關推薦

        asp數(shù)組重復刪除函數(shù)

          因為要寫個東西用到,所以百度了一下,居然有朋友亂寫,而且比較多,都沒有認真測試過,只對字符可以,但是對數(shù)字就不可以,而且通用性很差,需要修改才可以真正使用。沒辦法就自己寫了,經(jīng)過測試完全沒有問題,而且思路很方便,代碼很短,如下:

          復制代碼 代碼如下:

          <%

          function cxarraynull(cxstr1,cxstr2)

          if isarray(cxstr1) then

          cxarraynull = "對不起,參數(shù)1不能為數(shù)組"

          Exit Function

          end if

          if cxstr1 = "" or isempty(cxstr1) then

          cxarraynull = "nodate"

          Exit Function

          end if

          ss = split(cxstr1,cxstr2)

          cxs = cxstr2&ss(0)&cxstr2

          sss = cxs

          for m = 0 to ubound(ss)

          cc = cxstr2&ss(m)&cxstr2

          if instr(sss,cc)=0 then

          sss = sss&ss(m)&cxstr2

          end if

          next

          cxarraynull = right(sss,len(sss) - len(cxstr2))

          cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))

          end Function

          %>

          使用方法和函數(shù)表示:

          1、cxarraynull(cxstr1,cxstr2)函數(shù)中的兩個參數(shù):

          cxstr1:要檢測的數(shù)組變量,可以為空,或其它未知的錯誤數(shù)據(jù),當為空或則為錯誤數(shù)據(jù)返回"nodate"。

          cxstr2:數(shù)組的分割符號,可以為空,或為chr(13)等,自動替換輸出。

          2、測試代碼:

          <%

          s="1,2,3,4,2,3,5,3"

          s=cxarraynull(s,",")

          response.write s

          %>

          輸出:1,2,3,4,5

          增強版本,解決了數(shù)組中最后一位的,逗號問題。

          復制代碼 代碼如下:

          <%

          function cxarraynull(cxstr1,cxstr2)

          if isarray(cxstr1) then

          cxarraynull = "對不起,參數(shù)1不能為數(shù)組"

          Exit Function

          end if

          if cxstr1 = "" or isempty(cxstr1) then

          cxarraynull = "nodate"

          Exit Function

          end if

          do while instr(cxstr1,",,")>0

          cxstr1=replace(cxstr1,",,",",")

          loop

          if right(cxstr1,1)="," then

          cxstr1=left(cxstr1,len(cxstr1)-1)

          end if

          ss = split(cxstr1,cxstr2)

          cxs = cxstr2&ss(0)&cxstr2

          sss = cxs

          for m = 0 to ubound(ss)

          cc = cxstr2&ss(m)&cxstr2

          if instr(sss,cc)=0 then

          sss = sss&ss(m)&cxstr2

          end if

          next

          cxarraynull = right(sss,len(sss) - len(cxstr2))

          cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))

          end function

          %>

          測試代碼:

          復制代碼 代碼如下:

          s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,,,,,,,,,,,,,"

          s=cxarraynull(s,",")

          response.write s

        《&.doc》
        将本文的Word文档下载到电脑,方便收藏和打印
        推荐度:
        点击下载文档

        【asp數(shù)組重復刪除函數(shù)】相關文章:

        php數(shù)組函數(shù)序列之a(chǎn)rray-combine() - 數(shù)組合并函數(shù)的代碼08-25

        關于asp 的常用函數(shù)用法10-11

        解讀Rnd 函數(shù)中的asp08-03

        ASP.NET Page函數(shù)調用解析10-01

        防盜鏈接ASP函數(shù)實現(xiàn)代碼01-23

        JavaScript數(shù)組常用方法介紹09-04

        Excel高手武器:數(shù)組基礎08-08

        word批注刪除方法10-03

        ASP提速技巧08-05

        重復法翻譯09-12

        在线咨询
        国产高潮无套免费视频_久久九九兔免费精品6_99精品热6080YY久久_国产91久久久久久无码
      3. <sub id="h4knl"><ol id="h4knl"></ol></sub>
        <sup id="h4knl"></sup>
          <sub id="h4knl"></sub>

          <sub id="h4knl"><ol id="h4knl"><em id="h4knl"></em></ol></sub><s id="h4knl"></s>
          1. <strong id="h4knl"></strong>

          2. 人人做人人爱在碰一区三区 | 亚洲日韩视频在线 | 色9月婷婷A级 | 久久丝袜国产精品视频 | 亚洲第一免费中文在线 | 日本中文字幕在线免费观看一区二区 |

            asp數(shù)組重復刪除函數(shù)

              因為要寫個東西用到,所以百度了一下,居然有朋友亂寫,而且比較多,都沒有認真測試過,只對字符可以,但是對數(shù)字就不可以,而且通用性很差,需要修改才可以真正使用。沒辦法就自己寫了,經(jīng)過測試完全沒有問題,而且思路很方便,代碼很短,如下:

              復制代碼 代碼如下:

              <%

              function cxarraynull(cxstr1,cxstr2)

              if isarray(cxstr1) then

              cxarraynull = "對不起,參數(shù)1不能為數(shù)組"

              Exit Function

              end if

              if cxstr1 = "" or isempty(cxstr1) then

              cxarraynull = "nodate"

              Exit Function

              end if

              ss = split(cxstr1,cxstr2)

              cxs = cxstr2&ss(0)&cxstr2

              sss = cxs

              for m = 0 to ubound(ss)

              cc = cxstr2&ss(m)&cxstr2

              if instr(sss,cc)=0 then

              sss = sss&ss(m)&cxstr2

              end if

              next

              cxarraynull = right(sss,len(sss) - len(cxstr2))

              cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))

              end Function

              %>

              使用方法和函數(shù)表示:

              1、cxarraynull(cxstr1,cxstr2)函數(shù)中的兩個參數(shù):

              cxstr1:要檢測的數(shù)組變量,可以為空,或其它未知的錯誤數(shù)據(jù),當為空或則為錯誤數(shù)據(jù)返回"nodate"。

              cxstr2:數(shù)組的分割符號,可以為空,或為chr(13)等,自動替換輸出。

              2、測試代碼:

              <%

              s="1,2,3,4,2,3,5,3"

              s=cxarraynull(s,",")

              response.write s

              %>

              輸出:1,2,3,4,5

              增強版本,解決了數(shù)組中最后一位的,逗號問題。

              復制代碼 代碼如下:

              <%

              function cxarraynull(cxstr1,cxstr2)

              if isarray(cxstr1) then

              cxarraynull = "對不起,參數(shù)1不能為數(shù)組"

              Exit Function

              end if

              if cxstr1 = "" or isempty(cxstr1) then

              cxarraynull = "nodate"

              Exit Function

              end if

              do while instr(cxstr1,",,")>0

              cxstr1=replace(cxstr1,",,",",")

              loop

              if right(cxstr1,1)="," then

              cxstr1=left(cxstr1,len(cxstr1)-1)

              end if

              ss = split(cxstr1,cxstr2)

              cxs = cxstr2&ss(0)&cxstr2

              sss = cxs

              for m = 0 to ubound(ss)

              cc = cxstr2&ss(m)&cxstr2

              if instr(sss,cc)=0 then

              sss = sss&ss(m)&cxstr2

              end if

              next

              cxarraynull = right(sss,len(sss) - len(cxstr2))

              cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))

              end function

              %>

              測試代碼:

              復制代碼 代碼如下:

              s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,,,,,,,,,,,,,"

              s=cxarraynull(s,",")

              response.write s