就是数一堆数字，我想知道其中一个排第几 - ASP技术论坛

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 就是数一堆数字，我想知道其中一个排第几

标题：就是数一堆数字，我想知道其中一个排第几

只看楼主

liuzhibiao2632

等　级：新手上路
帖　子：3
专家分：0
注　册：2008-10-13

楼主

问题点数：0 回复次数：5

就是数一堆数字，我想知道其中一个排第几

如:7,8,9,10,11,15,25,81,1,...怎么查11在里面按大到小排在第几位呢?
高手救救我啊...在线等的啊...

搜索更多相关主题的帖子: 数字　

2008-11-04 11:13

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 2 楼

得分:0

如果是按，号分割用Split函数就能解决这个问题
<%
Function ReLocation(Str,Num)
   Dim tAry,i,Loc
   Loc=-1
   tAry=Split(Str,",")
   For i=0 To Ubound(tAry)
       If CInt(tAry(i))=Num Then
          Loc=i
          Exit For
       End IF
   Next
   ReLocation=Loc
End Function
Dim tStr
tStr="7,8,9,10,11,15,25,81,1"
Respons.Write "字符串'"&tStr&"'中11在第"&ReLocation(tStr,11)&"位"
%>

2008-11-04 12:26

tianyu123

等　级：新手上路
威　望：2
帖　子：576
专家分：0
注　册：2007-8-26

第 3 楼

得分:0

做个参考

<%
function ss(str,num)
str=str
num=num
s1=1
s=split(str,",")
for i=0 to ubound(s)-1
    for j=i+1 to ubound(s)
        if cint(s(i))<cint(s(j)) then
           temp=s(i)
           s(i)=s(j)
           s(j)=temp
        end if
    next
next
for k=0 to ubound(s)
    if s(k)<>cstr(num) then
       s1=s1+1
    else
        exit for
    end if
next
ss=s1
end function
dim str
str="7,8,9,10,11,15,25,81,1"
response.write"11 在数字 "&str&" 中按大到小排在第<font color=red>"&ss(str,11)

&"</font>位"
%>

[[it] 本帖最后由 tianyu123 于 2008-11-4 15:35 编辑 [/it]]