腾讯分分彩独胆二期
智軟工作室主要是為寧波公司提供寧波網站建設,寧波網站制作,寧波做網站公司,寧波外貿網站建設公司,寧波網站優化等項目,以優質的服務,優惠的價格,深的客戶信賴。相信有你的加入我們的明天會更有動力!期待與你合作!
  • 寧波智軟設計工作室,打造寧波網站制作工作室頂級品牌
  • 智軟擁有專業的設計團隊
  • 多年網站建設團隊為你服務
  • 智軟期待與你合作
  • 我們的技能
  • 我們掌握的技能有: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)

%>

 


 

這樣就可以了!

更多

【責任編輯:小戴工程師】

關鍵字: 數組排序 asp數組排序 數字排序

上一篇:國外頂級設計之網站菜單創意 下一篇:iphone4-4s個人熱點 電腦連接出現《WINDOWS無法連接到選定網絡..

最新文章

2012-01-06 15:52

相關文章

2012-01-06 15:52
網站制作咨詢:
QQ:277728291
電話:18668277799
郵箱:[email protected]
期待你來電咨詢
回頂部
Copyright 2010 智軟工作室 版權所有    智軟為寧波公司提供最優惠的網絡服務【寧波網站建設,寧波網站制作公司,寧波做網站公司,寧波外貿網站建設公司】我們竭誠為你服務!
腾讯分分彩独胆二期