通过数组给您的文件排序

2022-07-15 80酷酷网 80kuku.com

　　排序|数组    当您使用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 )