当前位置: 代码迷 >> ASP >> 分组显示有关问题
  详细解决方案

分组显示有关问题

热度:90   发布时间:2013-01-05 15:20:40.0
分组显示问题
比如在数据库里取出一组数据为 1 2 3 6 8 9
我想显示为1-3,6-6,8-9,没想明白怎么判断
请大侠们帮助!
------解决方案--------------------

<%
str="1 2 3 6 5 8 9 7"
arr=split(str," ")
s=""
for i=0 to ubound(arr)
a=arr(i)
if i<ubound(arr) then
b=arr(i+1)
else
b=arr(i)
end if
if abs(b-a)=1 then 
char="-"
else
char=","
end if
s=s&arr(i)&char
next
if right(s,1)="," then s=left(s,len(s)-1)

brr=split(s,",")
for i=0 to ubound(brr)
crr=split(brr(i),"-")
if ubound(crr)>0 then
for j=1 to ubound(crr)
  s=replace(s,"-"&crr(j)&"-","-")
next
else
  s=replace(s,crr(0),crr(0)&"-"&crr(0))
end if
next

response.write s
%>
  相关解决方案