asp数组去重复和数组排序
发布时间：2008-10-30 12:51:00
标签：数组,排序,字符串,asp
数组去重复和数组排序
'数组名次
Function Sort(ary,stra)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For i = 0 to UBound(ary)
If i = UBound(ary) Then Exit For
If CDbl(ary(i))<CDbl(ary(i+1)) Then
FirstValue = CDbl(ary(i))
SecondValue = CDbl(ary(i+1))
ary(i) = SecondValue
ary(i+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
sort=0
For j=0 To UBound(ary)
If CDbl(ary(j))=CDbl(stra) Then
Sort=j+1
End If
Next
End Function
将字符串数组去掉重复项
Function clearrepeat(arrstr)
For k=0 To UBound(arrstr)
If k=0 Then
arr=arrstr(k)
Else
arr=arr&","&arrstr(k)
End If
Next
Dim tmp,tmp2,i,j
tmp3=""
tmp=Split(arr,",")
For i=0 To Ubound(tmp)-1
For j=i+1 To Ubound(tmp)
If UCase(Trim(tmp(i)))=UCase(Trim(tmp(j))) Then
tmp(j)=""
End If
Next
Next
tmp2=""
For i=0 To Ubound(tmp)
If tmp(i)<>"" Then tmp2=tmp2&tmp(i)&","
Next
clearrepeat=Split(Left(tmp2,Len(tmp2)-1),",")
End Function
Function arrSort(ary,stra)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For i = 0 to UBound(ary)
If i = UBound(ary) Then Exit For
If CDbl(ary(i))<CDbl(ary(i+1)) Then
FirstValue = ary(i)
SecondValue = ary(i+1)
ary(i) = SecondValue
ary(i+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
arrsort=ary
End Function
0
投稿猜你喜欢
- 经常在工作中会使用到XPath的相关知识，但每次总会在一些关键的地方不记得或不太清楚，所以免不了每次总要查一些零碎的知识，感觉即很烦又浪费时
- 记得从ymPrompt2.0的时候自己就遇到过在IE下有时会莫名其妙的提示“无法打开Internet站点 已终止操作”，这样的一个错误很让人
- 今天要处理通知书上的日期，写的一个处理程序，效率可能不是最优的，不过实现功能绝对没问题。注：月份和天要分>10,=10,<10三
- 首先要兼容IE\FF滴然后有一个环境与条件：必须是使用em单位布局。因为这个是利用字号做缩放效果，并且兼容fontSize各项单位，例如px
- 这里主要是讲在asp下两次由access数据库升级到sql server数据库后的经验及注意事项，其它语言也可以参考一下。欢迎讨论补充。1.
最近心血来潮加上有点闲情，动手写了第一个JavaScript版的俄罗斯方块Easy Tetris.先上Easy Tetris俄罗斯方块游戏截- 互联网上不计其数的信息本质上都是一个一个的HTML文档组成的，通过链接将它们串联起整个互联网。这就犹如骨肉之于人体一样，只有通过经脉才能将它
- 函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法：字符类型的strUsername = C
- 首先安装WSH，NT（SERVER、WORKSTATION）、W2K服务器上需要安装WSH2.0或者更高版本。然后，参照下列代码即可：<
- SPAN 和 DIV 的区别在于，DIV(division)是一个块级元素，可以包含段落、标题、表格，乃至诸如章节、摘要和备注等。而SPAN
- 元素浮动导致的问题及解决办法大家都应该很熟悉了，举个简单的例子：<style type="text/css">
- 阅读上一篇：javascript 45种缓动效果(一)这部分对原先的缓动函数进行抽象化，并结合缓动公式进行强化。成品的效果非常惊人逆天。走过
- sql语句 代码如下:reverse(substring(reverse(Path),1,charindex('/'
- 在我发表上一篇《Zen Coding: 一种快速编写HTML/CSS代码的方法》之后，有网友表示不知道怎么在Dreamweaver上使用ze
- 创意404页面的文章我们似乎已经出过两篇了,今天hongkiat又带来了60个创意404页面.相关404页面设计文章：国外404错误页面的创
- 在html中关于select元素的问题在很多地方都提出过，而在前段时间的项目中，刚好遇到了关于select元素的两个小问题，这里进行一下总结
- Web技术的发展速度太快了，如果你不与时俱进，就会被淘汰。因此，为了应对即将到来的HTML5，本文总结了22个HTML5的初级技巧，希望能对
- 最近在研究品牌如何演绎，当然，看的时候没有忘记本行，分析了一下他们的交互设计~~路易威登LV上图采用胶片展示多组信息——大片展示品牌渲染。利
- Microsoft建立了一种既灵活又强大的安全管理机制，它能够对用户访问SQL Server服务器系统和数据库的安全进行全面地管理。按照本文
- mysql数据库数据表和数据表关联--问题??用户数据表user 字词作品数据表article 短信 message外键ID 主键，之间的关
