智软工作室主要是为宁波公司提供宁波网站建设,宁波网站制作,宁波做网站公司,宁波外贸网站建设公司,宁波网站优化等项目,以优质的服务,优惠的价格,深的客户信赖。相信有你的加入我们的明天会更有动力!期待与你合作!
  • 宁波智软设计工作室,打造宁波网站制作工作室顶级品牌
  • 智软拥有专业的设计团队
  • 多年网站建设团队为你服务
  • 智软期待与你合作
  • 我们的技能
  • 我们掌握的技能有:dreamweaver,flash,photoshop
  • 宁波高端网站建设服务公司
    2014已经悄然到来,在新的一年我们恭贺所有客户事业蒸蒸日上,同事庆祝智软设计工作室成立5周年,在5周年为众多客户提供了保质量的网站设计与网站制作。 我们在新的一年质量与服务将会更加进一步为更多的客户带来高端的网站设计与服务!期待与你合作
  • 企业网站制作建设原因与服务介绍

    智软设计工作室多年为宁波企业网站制作建设服务一直以来我们以最优惠价格,最优质的质量,最突出的设计!得到了客户的一致认可,我们的服务包括:宁波网站设计,宁波网站建设,宁波网站制作,宁波网站优化,宁波英文网站制作我们会以优质的服务,最低的价格来报答客户!

  • 点击链接网站优化推广介绍

    点击连接网站优化推广-对企业的网站优化和网站推广--对企业的重要性-点击进行详细了解

  • 2014开幕,宁波网站设计服务全面优惠.

    2014开幕,宁波智软设计为宁波企业提供更加优秀的设计和实惠的价格

  • 链接到网站案例展示平台
    智软设计工作为宁波客户网站设计案例展示平台-案例均为定期更新,让新老客户更好的看到我们做的案例,点击查看我们做的网站案例吧!
  • 我们宁波网络公司提供网站一站式解决方案
    智软(宁波网络公司)帮你轻松解决网络问题,网站一站式解决方案
你当前的位置:智软工作室 > 营销与网络 >

解决asp fso数字排序问题 按照大小来排序-数组排序

2012-01-06 15:52

这几天帮客户做一个自动上传数据的程序,做到最后发现 不会按照名称来排序,所有就得研究为什么了,好了直接来贴下数据好了

目录数据如下:

目录名称
图片1

上面是客户 的一个目录里面的数据。当然他有很多。这些不在我们研究的范围内

刚程序程序是这样的

<%

 dir = "shipin" 
 

Set fso = CreateObject("Scripting.FileSystemObject")'创建文件对象

Set f = fso.GetFolder(server.MapPath(dir)) '读取文件夹

Set ff =f.Files'取文件名称

For Each f1 in ff  '循环目录

filename=f1.name'取得文件名称

Response.Write(filename)

Next

%>

 

这样就可以读取到这个目录的文件名称了,当然这个大家都会了

问题是他默认是 倒着来的。那么我们就要去改变他的排序方式。不同于php  php的话有专门的函数可以解决,比如 ksort  natsort

那么我们要怎么改变他了。一个思路就这样的。取文件的 名称并把中文过滤掉,然后利用循环判断每个数组大小 来改变,当然这样效率会变低。但是也没办法了。只能放他慢慢运行啊,如果大家有好的方法记得分享,代码如下:

 

 <%
'取文件名称数组函数
function RegExpTestsp(str,pat)
     Dim r, Match, Matches
     Set r = New RegExp
     r.Pattern = pat
     r.IgnoreCase = false
     r.Global = True
     Set Matches = r.Execute(str)
     For Each Match in Matches
     RetStr = RetStr & Match.Value
     Next
     RegExpTestsp = RetStr
End function
pat="[\d]+"

'排序 函数
Function Sort1(input)
Dim outPut
'Dim input
Dim i
i=0
Dat=split(input,",")
For k=0 to Ubound(Dat)
 For i=0 to ubound(Dat)-1
  If int(RegExpTestsp(Dat(i+1),pat))<int(RegExpTestsp(Dat(i),pat)) Then
   outPut=Dat(i)
   Dat(i)=Dat(i+1)
   Dat(i+1)=outPut    
  End If
 Next
Next
'
For each outPut in Dat
  Response.Write outPut&"<br>"
next
End Function


dir = "shipin"
Set fso = CreateObject("Scripting.FileSystemObject")'创建文件对象

Set f = fso.GetFolder(server.MapPath(dir)) '读取文件夹

Set ff =f.Files

For Each f1 in ff  '循环目录


filename=filename&f1.name&","

Next

'response.Write(filename)
Sort1(filename)

%>

 


 

这样就可以了!

更多

【责任编辑:小戴工程师】

上一篇:国外顶级设计之网站菜单创意 下一篇:iphone4-4s个人热点 电脑连接出现《WINDOWS无法连接到选定网络..

最新文章

2012-01-06 15:52

相关文章

2012-01-06 15:52
网站制作咨询:
QQ:277728291
电话:18668277799
邮箱:277728291@qq.com
期待你来电咨询
回顶部
Copyright 2010 智软工作室 版权所有    智软为宁波公司提供最优惠的网络服务【宁波网站建设,宁波网站制作公司,宁波做网站公司,宁波外贸网站建设公司】我们竭诚为你服务!