艺术迷（fansart.com） 首页 收藏本站 RSS频道
艺术迷首页 -> 网页设计 -> FSO专题--通过数组给您的文件排序

FSO专题--通过数组给您的文件排序

2006-3-1　　　作者：佚名　　　来源：
页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】

通过数组给您的文件排序

当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。

<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>

<BODY>

<%
’ 设定一个演示目录，：）

CONST DIRECTORY = "/"

’ 用常数定义排序方式
CONST FILE_NAME = 0 ’按照名字排序……依次类推
CONST FILE_EXT = 1
CONST FILE_TYPE = 2
CONST FILE_SIZE = 3
CONST FILE_CREATED = 4
CONST FILE_MODIFIED = 5
CONST FILE_ACCESSED = 6

’获得 排序命令，默认为按照名字排序

req = Request("sortBy")
If Len(req) < 1 Then sortBy = 0 Else sortBy = CInt(req)
req = Request("priorSort")
If Len(req) < 1 Then priorSort = -1 Else priorSort = CInt(req)

’设置倒序
If sortBy = priorSort Then
reverse = true
priorSort = -1
Else
reverse = false
priorSort = sortBy
End If

’ 接下来开始我们真正的代码了。。。

path = Server.MapPath( DIRECTORY )

Set fso = CreateObject("Scripting.FileSystemObject")
Set theCurrentFolder = fso.GetFolder( path )
Set curFiles = theCurrentFolder.Files

’ 给这些文件做一个循环

Dim theFiles( )
ReDim theFiles( 500 ) ’ 我随便定的一个大小
currentSlot = -1 ’ start before first slot

’ 我们将文件的所有相关信息放到数组里面

For Each fileItem in curFiles
fname = fileItem.Name
fext = InStrRev( fname‚ "." )
If fext < 1 Then fext = "" Else fext = Mid(fname‚fext+1)
ftype = fileItem.Type
fsize = fileItem.Size
fcreate = fileItem.DateCreated
fmod = fileItem.DateLastModified
faccess = fileItem.DateLastAccessed
currentSlot = currentSlot + 1
If currentSlot > UBound( theFiles ) Then
ReDim Preserve theFiles( currentSlot + 99 )
End If
’ 放到数组里
theFiles(currentSlot) = Array(fname‚fext‚ftype‚fsize‚fcreate‚fmod‚faccess)
Next

’ 现在都在数组里了，开始下一步


fileCount = currentSlot ’ 文件数量
ReDim Preserve theFiles( currentSlot )

’ 排序
’ (8 表示 string)

If VarType( theFiles( 0 )( sortBy ) ) = 8 Then
If reverse Then kind = 1 Else kind = 2 ’ 给字符排序
Else
If reverse Then kind = 3 Else kind = 4 ’数字、时间。。。
End If

For i = fileCount TO 0 Step -1
minmax = theFiles( 0 )( sortBy )
minmaxSlot = 0
For j = 1 To i
Select Case kind
Case 1
mark = (strComp( theFiles(j)(sortBy)‚ minmax‚ vbTextCompare ) < 0)
Case 2
mark = (strComp( theFiles(j)(sortBy)‚ minmax‚ vbTextCompare ) > 0)
Case 3
mark = (theFiles( j )( sortBy ) < minmax)
Case 4
mark = (theFiles( j )( sortBy ) > minmax)
End Select
If mark Then
minmax = theFiles( j )( sortBy )
minmaxSlot = j
End If
Next

If minmaxSlot <> i Then

temp = theFiles( minmaxSlot )
theFiles( minmaxSlot ) = theFiles( i )
theFiles( i ) = temp
End If
Next
’ 结束

%>
<FORM Name="doSort" Method="Get">
<INPUT Type=Hidden Name=priorSort Value="<% = priorSort %>">
<INPUT Type=Hidden Name=sortBy Value="-1">
</FORM>

<SCRIPT Language="JavaScript">
function reSort( which )
{
document.doSort.sortBy.value = which;
document.doSort.submit( );
}
</SCRIPT>

<CENTER>
<FONT Size="+2">
显示<% = (fileCount+1) %> 该目录下的文件<% = path %>
</FONT>
<P>
单击排序，再点一次反向排序
<P>
<TABLE Border=1 CellPadding=3>
<TR>
<TH><A HREF="javascript:reSort(0);">文件名</A></TH>
<TH><A HREF="javascript:reSort(1);">扩展名</A></TH>
<TH><A HREF="javascript:reSort(2);">类型</A></TH>
<TH><A HREF="javascript:reSort(3);">大小</A></TH>
<TH><A HREF="javascript:reSort(4);">建立时间</A></TH>
<TH><A HREF="javascript:reSort(5);">上次修改时间</A></TH>
<TH><A HREF="javascript:reSort(6);">上次存取时间</A></TH>
</TR>
<%

For i = 0 To fileCount
Response.Write "<TR>" & vbNewLine
For j = 0 To UBound( theFiles(i) )
Response.Write " <TD>" & theFiles(i)(j) & "</TD>" & vbNewLine
Next
Response.Write "</TR>" & vbNewLine
Next
%>
</TABLE>

</BODY>
</HTML>

在百度中搜索更多相关主题
FSO专题--从文本文件中读取信息并存储入数据库2006-3-1
FSO专题--三种禁用FileSystemObject组件的方法2006-3-1
FSO专题--很少被了解的FSO功能 2006-3-1
FSO专题--filesystemobject组件的用法示例 2006-3-1
FSO专题--在线用表单建立文件夹2006-3-1
FSO专题--通过数组给您的文件排序2006-3-1
FSO专题--处理驱动器和文件夹 2006-3-1
FSO专题--设计FileSystemObject2006-3-1
FSO专题--FileSystemObject处理文件 2006-3-1
FSO专题--关于用ADOSTREAM做的无组件上传程序简单介绍 2006-3-1
网友评论
发表评论
您的姓名： 匿名发送
电子邮件：
评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。
新闻搜索
关 键 词：
搜索范围：
全站精华
图文精彩
清风楼书（一）[图]--平面广告
【2006-3-29 10:52:08】
清风楼书（一）
painter超级可爱的上色过程（韩国）[图]--CG插画
【2006-4-5 8:52:28】
painter超级可爱的上色过程（韩国）
古典楼书(精品欣赏)（1）[图]--平面广告
【2006-4-5 15:03:08】
古典楼书(精品欣赏)（1）
美国插画师kevindart作品(1)[图]--CG插画
【2006-4-11 15:34:43】
美国插画师kevindart作品(1)
美国插画师kevindart作品[图]--CG插画
【2006-4-11 15:37:32】
美国插画师kevindart作品
荷兰著名画家Anton
【2006-4-11 15:49:41】
荷兰著名画家Anton Pieck插画
非常可爱的儿童插画（1）[图]--CG插画
【2006-4-11 15:59:16】
非常可爱的儿童插画（1）
回忆紫禁城里那些逝去的[图]--中国艺术
【2006-4-11 16:34:31】
回忆紫禁城里那些逝去的
国粹京剧脸谱表情[图]--界面设计
【2006-4-11 17:51:33】
国粹京剧脸谱表情
高傲的玫瑰-温碧霞[图]--摄影艺术
【2006-4-12 8:58:34】
高傲的玫瑰-温碧霞
北邦插画欣赏（1）[图]--CG插画
【2006-4-13 9:49:02】
北邦插画欣赏（1）
yashasi插画作品欣赏[图]--CG插画
【2006-4-13 18:32:29】
yashasi插画作品欣赏
cg插画欣赏[图]--CG插画
【2006-4-14 9:21:18】
cg插画欣赏
溯源居广告欣赏--小红人[图]--平面广告
【2006-4-14 14:45:57】
溯源居广告欣赏--小红人
房地产广告设计-之水墨风格1[图]--平面广告
【2006-4-14 15:56:06】
房地产广告设计-之水墨风格1
泊林花园推广故事绘本（1）[图]--CG插画
【2006-4-20 11:34:33】
泊林花园推广故事绘本（1）
泊林花园推广故事绘本（2）[图]--CG插画
【2006-4-20 11:43:23】
泊林花园推广故事绘本（2）
万科西山庭院.格.沉.尊[图]--平面广告
【2006-4-21 9:08:35】
万科西山庭院.格.沉.尊
2006夏日流行时尚，创意无限街头华丽[图]--时装魅影
【2006-4-22 16:46:51】
2006夏日流行时尚，创意无限街头华丽
水木清华地产广告欣赏[图]--平面广告
【2006-4-26 9:31:54】
水木清华地产广告欣赏