asp下去除數(shù)組中重復(fù)項(xiàng)的方法
更新時(shí)間：2007年08月08日 11:45:09 作者：
這篇文章主要為大家介紹了asp中去除數(shù)組中重復(fù)項(xiàng)的方法，需要的朋友可以參考下
復(fù)制代碼 代碼如下:
<%
Function MoveR(Rstr)
Dim i,SpStr
SpStr = Split(Rstr,",")
For i = 0 To Ubound(Spstr)
If I = 0 then
MoveR = MoveR & SpStr(i) & ","
Else
If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then
MoveR = MoveR & SpStr(i)
Elseif instr(MoveR,SpStr(i))=0 Then
MoveR = MoveR & SpStr(i) & ","
End If
End If
Next
End Function
response.write MoveR("abc,abc,dge,gcg,dge,gcg,die,dir,die")%>
結(jié)果是：abc,dge,gcg,die,dir
如果是兩個(gè)數(shù)組進(jìn)行對(duì)比，去掉相同的數(shù)組元素：
復(fù)制代碼 代碼如下:
<%
Function mover(farray,sarray)
a = Split(farray, ",")
Set dic = CreateObject("Scripting.Dictionary")
For k=0 To UBound(a)
If a(k)<> "" Then dic.Add "_" & a(k), a(k)
Next
a = Split(sarray, ",")
For k=0 To UBound(a)
If a(k)<> "" Then
If dic.Exists("_" & a(k)) Then
dic.Remove "_" & a(k)
End If
End If
Next
items = dic.Items()
Set dic = Nothing
moveR=Join(items, ",")
End Function
n1 = "a,b,1,11,12,13,14,15,16,17,19,20,22"
n2 = "a,1,12,14,18,19,20"
response.write mover(n1,n2)
%>
結(jié)果是：
3.數(shù)組A中有為空的元素(如a=array("ww","ss","","dd","","ee")),
想把這些空元素從數(shù)組A中去掉.并把去掉空元素有的數(shù)組賦給數(shù)組B.
復(fù)制代碼 代碼如下:
str=""
for i = lbound(A) to ubound(A)
if A(i)<>"" then
if i<>lbound(A) then str = str + "," end if
str = str & A(i)
end if
next
b = split(str,",")
相關(guān)文章
ASP中解決“對(duì)象關(guān)閉時(shí),不允許操作?！钡脑幃悊?wèn)題……
本文解決ASP中“對(duì)象關(guān)閉時(shí),不允許操作?！钡脑幃悊?wèn)題，找到問(wèn)題的根本，才能真正意義上解決，供大家參考了。2016-03-03
檢查上傳圖片是否合法的函數(shù),木馬改后綴名、圖片加惡意代碼均逃不過(guò)
很多ASP程序檢查上傳圖片是否合法往往只去檢查文件的后綴，這樣有一個(gè)很大的安全隱患，就是如果把ASP文件的后綴名改成.jpg或者.gif上傳，或者圖片里加入惡意代碼再上傳，那也會(huì)被程序認(rèn)為是圖片文件而照傳不誤。假如不懷好意的人上傳個(gè)木馬文件進(jìn)去，雖然是后綴為jpg也許無(wú)法直接運(yùn)行，但確確實(shí)實(shí)給服務(wù)器帶來(lái)了很大的安全隱患。2008-03-03
利用 cache 做對(duì)比靜態(tài)頁(yè)的網(wǎng)頁(yè)技術(shù)
利用 cache 做對(duì)比靜態(tài)頁(yè)的網(wǎng)頁(yè)技術(shù)...2007-10-10
asp下用實(shí)現(xiàn)模板加載的的幾種方法總結(jié)
asp下html模板的加載方法，一般有以下幾種，大家可以根據(jù)情況自己決定，結(jié)果都是一樣的，都是好方法2008-01-01
asp實(shí)現(xiàn)的可以提醒生日的幾種方法附代碼
asp提醒生日的原理一般就是把用戶的出生日期和當(dāng)前日期對(duì)比，如果少于幾天則提醒顯示,下面是幾種方法的實(shí)現(xiàn)2008-06-06
防止別人盜鏈的好方法推薦...2007-01-01
asp中回車(chē)換行符CHR(10)表示換行，CHR(13)表示回車(chē)，CHR(32)表示空格
這篇文章主要介紹了asp中回車(chē)換行符CHR(10)表示換行，CHR(13)表示回車(chē)，CHR(32)表示空格,需要的朋友可以參考下2006-08-08
asp下request.querystring("id")與request("id&quo
一下問(wèn)題一天遇到2次，復(fù)制過(guò)來(lái)以供下次參考，一般來(lái)說(shuō)還使用萬(wàn)能的request("id")比較好2008-01-01
在.NET Core 中使用 FluentValidation 進(jìn)行規(guī)則驗(yàn)證的方法
這篇文章主要介紹了在.NET Core 中使用 FluentValidation 進(jìn)行規(guī)則驗(yàn)證,本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-02-02
使用ASP在IIS創(chuàng)建WEB站點(diǎn)的函數(shù)
使用ASP在IIS創(chuàng)建WEB站點(diǎn)的函數(shù)...2007-01-01