asp下成功实现 重新排序数字数组的代码
发布时间：2023-09-20 15:54:09 所属栏目：Asp教程 来源：
导读： <%
'******************************
'函数：NewOrder(ArrStr)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
&
'******************************
'函数：NewOrder(ArrStr)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
&
|
<% '****************************** '函数：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 %> （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
