通过数组给您的文件排序_程序人生

通过数组给您的文件排序

admin

2023-07-30 20:17:02

0次

当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。

如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。

下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。

文件排序演示

<%
\’ 设定一个演示目录，：）
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
\’ 结束
%>

显示<% = (fileCount+1) %> 该目录下的文件<% = path %>

单击排序，再点一次反向排序

<%
For i = 0 To fileCount
Response.Write \”\” & vbNewLine
For j = 0 To UBound(theFiles(i))
Response.Write \” \” & vbNewLine
Next
Response.Write \”\” & vbNewLine
Next
%>

文件名	扩展名	类型	大小	建立时间	上次修改时间	上次存取时间
\” & theFiles(i)(j) & \”

asp 数组您的文件

上一篇：Session对象失效的客户端解决方法

下一篇：送给搞采集的兄弟一个sql语句

通过数组给您的文件排序

相关内容

热门资讯