1. <tt id="5hhch"><source id="5hhch"></source></tt>
    1. <xmp id="5hhch"></xmp>

  2. <xmp id="5hhch"><rt id="5hhch"></rt></xmp>

    <rp id="5hhch"></rp>
        <dfn id="5hhch"></dfn>

      1. asp數組重復刪除函數

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

        asp數組重復刪除函數

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

          復制代碼 代碼如下:

          <%

          function cxarraynull(cxstr1,cxstr2)

          if isarray(cxstr1) then

          cxarraynull = "對不起,參數1不能為數組"

          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

          %>

          使用方法和函數表示:

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

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

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

          2、測試代碼:

          <%

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

          s=cxarraynull(s,",")

          response.write s

          %>

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

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

          復制代碼 代碼如下:

          <%

          function cxarraynull(cxstr1,cxstr2)

          if isarray(cxstr1) then

          cxarraynull = "對不起,參數1不能為數組"

          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

        【asp數組重復刪除函數】相關文章:

        php數組函數序列之array-combine() - 數組合并函數的代碼08-25

        關于asp 的常用函數用法10-11

        解讀Rnd 函數中的asp08-03

        ASP.NET Page函數調用解析10-01

        防盜鏈接ASP函數實現代碼01-23

        JavaScript數組常用方法介紹09-04

        Excel高手武器:數組基礎08-08

        word批注刪除方法10-03

        ASP提速技巧08-05

        重復法翻譯09-12

        国产高潮无套免费视频_久久九九兔免费精品6_99精品热6080YY久久_国产91久久久久久无码

        1. <tt id="5hhch"><source id="5hhch"></source></tt>
          1. <xmp id="5hhch"></xmp>

        2. <xmp id="5hhch"><rt id="5hhch"></rt></xmp>

          <rp id="5hhch"></rp>
              <dfn id="5hhch"></dfn>