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

作者：liuzhibiao2632 来源：不详发布时间：2008/11/05 发布人：admin

liuzhibiao2632 发布留言 2008-11-4 11:13

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

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

yms123 发布留言 2008-11-4 12:26

如果是按，号分割用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)&"位"
%>

tianyu123 发布留言 2008-11-4 15:34

做个参考

<%
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))          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&" 中按大到小排在第"&ss(str,11)

&"位"
%>

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

ak42d 发布留言 2008-11-4 15:39

高手！～～～

我看不懂厲害啊

multiple1902 发布留言 2008-11-4 22:55

用快排吧……

页: [1]

特别说明：如网页特效代码中有引用图片文件等，请自己下载到本地调试！

[] [返回] [打印] [收藏] [评论]

上一篇代码：我想开一个个人网站，怎么弄啊？

下一篇代码：单选按钮的样式，将单选按钮改为选中为空白，不选为差号

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

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

做个参考

精品推荐

代码分类

阅读排行

相关代码