良好的知名度和信誉度,经验丰富的团队!

多年来我们为不同行业的知名企业进行了网络品牌重塑,一路的学习、摸索、沉淀、创新,让我们更自信和充满活力。
提升客户品牌形象、实现客户的商业目标是亿络永恒的追求!

详细内容
当前位置:首页 > 新闻资讯 > 资料下载

asp对指定数组元素删除和指定内容删除也可以删除重复数组方法介绍

标签:  来源:  发布时间:2012-02-04 22:18:44

方法一:asp对指定值从数组中删除方法介绍

Dim   MyArray
MyArray  =   Array(50,10,425,304,511,223,243,320) '定义一个数组
Response.Write   Join(ArrayPop(MyArray ,50),",")
 

Function ArrayPop(MyArray ,Key)
        Dim tmp
   tmp = "," & Join(arr, ",") & ","
   tmp = Replace(tmp, "," & key & ",", ",")
   if left(tmp,1)="," then
    tmp = mid(tmp,2)
   end if
   if right(tmp,1)="," then
    tmp = left(tmp,len(tmp)-1)
   end if
        ArrayPop = Split(tmp,",")
End   Function

方法二:asp指定下标值删除数组中对应下标内容,得到一个新的数组
MyStr="tsest,1|aaaa,2|bbbb,3|cccc,4 " ' 字符串
MyArray=split(MyStr,"|")  '字符串转数组
MyStr=""
DelId=1
For i=0 to ubound(MyArray)
    if i<>DelId-1 then
         if MyStr<>"" then
              MyStr=MyStr& "|" & MyArray(i)
         else
              MyStr=MyArray(i)
         end if
     end if
next
NewArray=split(MyStr,"|")  '得到新数组
response.Write MyStr
欢迎交流更好的方法 QQ:418888151         www.elvo.cn


下载地址
业务咨询
点击这里给我发消息
业务咨询
点击这里给我发消息
技术支持
点击这里给我发消息