gpt4 book ai didi

asp下去除数组中重复项的方法

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 31 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp下去除数组中重复项的方法由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

代码如下

<% 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")%> 。

  。

结果是:abc,dge,gcg,die,dir 。

如果是两个数组进行对比,去掉相同的数组元素:

  。

复制代码代码如下

<%          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)  %> 。

  。

结果是:

3.数组A中有为空的元素(如a=array("ww","ss","","dd","","ee")),  想把这些空元素从数组A中去掉.并把去掉空元素有的数组赋给数组B. 。

  。

复制代码代码如下

 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,",")  。

最后此篇关于asp下去除数组中重复项的方法的文章就讲到这里了,如果你想了解更多关于asp下去除数组中重复项的方法的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

31 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com