[转载] 起泡法按照时间排列文件(FSO)

原创 2005年05月29日 12:59:00
        起泡法只是一个简单的算法而已,但是在网页编程中要用到什么算法的还是比较少的,已经用过的算法只有递归和起泡法。有问题大家多多指点。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%

'######################################'

'##  Copyright (C) 2003 醉雨梧桐 All rights reserved.   ##'

'##         Powered by 醉雨梧桐             ##'

'##         http://btyz.51web.cn/               ##'

'##         winterfire@163.com               ##'

'######################################'

Function file_list(path)

 Set FSO=Server.CreateObject("Scripting.FileSystemObject") 'FSO对象

 Set FD=FSO.GetFolder(path) '获得文件夹

 Set F=FD.Files  '获得文件夹内文件

 For Each OneFile in F '列出所有的txt文件

  filename=OneFile.Name

  If LCase(right(filename,3))="txt" Then '只对txt文件处理

   filename_arr0=filename_arr0&Left(filename,Len(filename)-4)&"|" '获得主文件名,保存在变量中,0|0|形式

   filename_arr1=filename_arr1&DateValue(OneFile.DateCreated)&"|" '获得文件建立日期

End If

 Next

 filename_arr0=split(filename_arr0,"|") '转化为文件名数组

 filename_arr1=split(filename_arr1,"|") '转化为日期数组

'把文件名和时间按照顺序加入二维数组

 dim filename_arr()

 redim filename_arr(ubound(filename_arr0),2) '重新定义

 for i=0 to ubound(filename_arr0)-1

  filename_arr(i,0)=filename_arr0(i)

filename_arr(i,1)=filename_arr1(i)

 next

 erase filename_arr0 '删除数组

 erase filename_arr1

'------按照时间的顺序使用起泡法排列数组------

 for j=0 to ubound(filename_arr)-1

  for i=0 to ubound(filename_arr)-1-j

if DateDiff("d",filename_arr(i,1),filename_arr(i+1,1))>0 Then '判断时间先后,如果比后面的晚,交换数据

  'if filename_arr(i,1)<filename_arr(i+1,1) Then '这个只能判断字符,而不能判断时间

  '交换前后数组内容--文件名

  temp=filename_arr(i,0)

  filename_arr(i,0)=filename_arr(i+1,0)

  filename_arr(i+1,0)=temp

  '交换前后数组内容--建立时间

  temp=filename_arr(i,1)

  filename_arr(i,1)=filename_arr(i+1,1)

  filename_arr(i+1,1)=temp

end if

  next

 next

'------结束起泡法------

 file_list=filename_arr '返回二维数组

End Function '结束函数

file_arr=file_list("g:/my documents/txt/") '调用函数返回二维数组

for i=0 to ubound(file_arr)-1

  Response.Write(file_arr(i,0)&"--"&file_arr(i,1)&"<br/>") '输出结果

next

%>

asp fso读取文件夹,如何按照时间排序

读取一个文件夹或子文件夹内的所有文件范例

FSO文件系统对象方法

  • 2016年10月14日 10:13
  • 756KB
  • 下载

在线查看修改文件(fso) v1.00

  • 2005年08月02日 21:46
  • 0B
  • 下载

js 操作磁盘文件--使用fso

var filesList = new Array(); var filesIndex = 0; var fso = new ActiveXObject("Scripting.FileSys...

C#创建目录和文件,FSO实例

  • 2011年01月16日 21:09
  • 7KB
  • 下载

ASP中最常用的22个FSO文件操作函数12-22

12.FSO返回文件夹目录空间大小Function GetFolderSize(FolderName)   ’//功能:取目录大小   ’//形参:目录名   ’//返回值:成功为目录大小,失败为-1...

ASP中文本文件与数据库文件的数据交换(FSO)

ASP中文本文件与数据库文件的数据交换 网络数据库的应用是WWW上一个很重要的组成部分,可以这样说,如果缺少了数据库,网络也就失去了灵魂。大家可以想象一下,如果没有象YAHOO,SOHU等搜索引擎的话...

【转】VBScript学习手册网址 与 文件操作(FSO)的部分实例

VBScript学习手册网址: http://www.jb51.net/shouce/vbs/vsmthDeleteFile.htm 非常实用。   文件操作(FSO)13个实例 如有不清楚...
  • sl159
  • sl159
  • 2012年07月20日 09:40
  • 514

ASP中FSO的神奇功能-文件读取

现在已经有了一些用户信息保存在文件中,就像一个简单的数据库。假设有一个用户想了解所有的访问者,就要从登记的信息中分离出相关部分,因为没有象数据库一样拥有结构化的列。我们知道,在所创建的文件中,第1行是...
  • hejinde
  • hejinde
  • 2014年09月25日 19:23
  • 225
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[转载] 起泡法按照时间排列文件(FSO)
举报原因:
原因补充:

(最多只允许输入30个字)