作家
登录

asp下实现 重新排序数字数组的代码

作者: 来源:www.28hudong.com 2013-03-30 08:38:55 阅读 我要评论

<% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubound(Split(ArrStr,",")) If n > 0 Then ArrStr = Replace(ArrStr,n,0) End If sp = split(ArrStr,",") n = 0 For j = 0 To ubound(sp) If int(sp(j)) > int(n) Then n = sp(j) End If Next NewOrder = NewOrder & replace(n,0,"") & " " Next NewOrder = NewOrder End Function %>对数组进行重新排序复制代码 代码如下:<% '****************************** '函数:NewOrder(sz) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:对数组进行重新排序 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(sz) Dim ali,icount,i,ii,j,itemp ali=split(sz,",") icount=UBound(ali) For i=0 To icount For j=icount - 1 To i Step -1 If j+1 <= UBound(ali) Then If int(ali(j))<int(ali(j+1)) Then itemp=ali(j) ali(j)=ali(j+1) ali(j+1)=itemp End If End If Next Next For ii=0 to Ubound(ali) If ii = Ubound(ali) Then NewOrder = NewOrder & ali(ii) Else NewOrder = NewOrder & ali(ii) & "," End If Next End Function %>

  推荐阅读

  asp去除所有的超级链接的两种方法 替换与正则

<% '****************************** '函数:RemoveHref_A(HTMLstr) '参数:HTMLstr,待去除链接的字符串 '作者:阿里西西 '日期:2007/7/12 '描述:去除字符串中所有的超级链接 '示例:<%=RemoveHref_A("<a href=>>>详细阅读


本文标题:asp下实现 重新排序数字数组的代码

地址:http://www.17bianji.com/kaifa2/ASP/32517.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)