2.8w+
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xczhouyang 2004-11-24
888228(同志,请记得结贴!)
我觉得你的方法可能会比 lonz() 的速度更慢慢，比较了一下我觉得lonz() 好
我觉得你的方法可能会比 lonz() 的速度更慢慢，比较了一下我觉得lonz() 好
lonz 2004-11-24
明白了。谢谢大家！
888228 2004-11-24
直接读取应该是不行的.我查了很多相关资料的.都是先弄成数组.然后再排序.毕竟不象数据库,可以Order by..
如果是要读取最新的1个文件.用以下代码吧~~
dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
i=i+1
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
response.write num1&". "&tmp1(0)&"<br/>"
如果是要读取最新的1个文件.用以下代码吧~~
dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
i=i+1
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
response.write num1&". "&tmp1(0)&"<br/>"
xczhouyang 2004-11-24
lonz() 你办法算是好的了，除非能够读取时直接排序，但好象没有直接排序的
sfply 2004-11-24
我也在想这个问题，如何使用WINDOWS的排序方式让目录按要求排序
lonz 2004-11-24
能不能读取的时候就直接排序。取第一个就可以了？？
下面是我自己写的一段。不过感觉速度有点慢！！
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("E:\jpg")
'列出文件
Set fc = f.Files
dim LastestFileName
dim LastFileDate
LastFileDate="2000-11-12 20:12:04"
For Each f1 in fc
if (Cstr(f1.datelastmodified) > LastFileDate) then
LastFileDate=f1.datelastmodified
LastestFileName=f1.name
end if
Next
set fso=nothing
下面是我自己写的一段。不过感觉速度有点慢！！
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("E:\jpg")
'列出文件
Set fc = f.Files
dim LastestFileName
dim LastFileDate
LastFileDate="2000-11-12 20:12:04"
For Each f1 in fc
if (Cstr(f1.datelastmodified) > LastFileDate) then
LastFileDate=f1.datelastmodified
LastestFileName=f1.name
end if
Next
set fso=nothing
888228 2004-11-24
上面是对整个目录的文件进行读取,按照时间排列.
你如果只要最新的那个的话,就改成循环一次就行了.
你如果只要最新的那个的话,就改成循环一次就行了.
888228 2004-11-24
<%
dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
for k= 0 to ubound(tmp1)-1
num1=num1+1
response.write num1&". "&tmp1(k)&"<br/>"
next%>
dim folderPath
folderPath = Server.MapPath("images/") '修改成你要的路径,对这个路径下的文件按日期排列
dim fso,f
set fso=server.CreateObject("Scripting.filesystemobject")
set fld=fso.Getfolder(folderPath)
for each f in fld.files
dd=f.DateLastModified
dd1=year(dd)&"-"&right("0"&month(dd),2)&"-"&right("0"&day(dd),2)&" "
str=str&dd1&f.name&"|"
'response.write f.DateLastModified&f.name &"<br/>"
next
tmp=split(str,"|")
for j=0 to ubound(tmp)
str1=""
for i=0 to ubound(tmp)
if i=ubound(tmp) then exit for
if tmp(i)<=tmp(i+1) then
tt=tmp(i)
tmp(i)=tmp(i+1)
tmp(i+1)=tt
end if
str1=str1&tmp(i)&"|"
next
next
tmp1=split(str1,"|")
for k= 0 to ubound(tmp1)-1
num1=num1+1
response.write num1&". "&tmp1(k)&"<br/>"
next%>
TSD 2004-11-24
看看这个，然后将文件时间作个对比就行了
http://community.csdn.net/Expert/TopicView.asp?id=3568110
http://community.csdn.net/Expert/TopicView.asp?id=3568110
asp利用fso给文件夹和文件改名的代码 Dim fso,f,folder Set fso=Server.CreateObject(“scripting.filesystemobject”) ‘改目录名 Set folder=fso.getfolder(Server.Mappath(“Old”)) folder.name=”New” ‘新名字 ‘改文件名 Set f=fso.get...
ASP，FSO遍历目录及目录下文件 ’我写的一个遍历目录以及目录下文件的函数， %> <% function bianli(path) set fso=server.CreateObject(scripting.filesystemobject) on error resume next set objFolder=fso.GetFolder(path)...
asp结合fso实现文件或文件夹创建删除等操作的函数 ‘////////////////////////////////////////////////FSO操作///////////////////////////////////// ‘判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server....
ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串） FSO文件（File）对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的...
ASP中常用的22个FSO文件操作函数整理 ASP中FSO组件的功能很强大，如果没有FSO很难想象ASP...对于学习asp编程的朋友一定会接触到FSO相关的操作，如备份数据库，读取文件，生成静态页面等等。本文就列举了ASP中常用的22个FSO文件操作函数，相信能为您带来方便
fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总） Sub bl() '递归遍历文件夹及子文件夹中的文件 Dim SearchPath Dim DicList, FileList, I, FileName(), FilePath() Set DicList = CreateObject("Scripting.Dictionary") Set FileList = CreateObject("Scripting...
ASP编程入门进阶（十八）：FSO组件之文件操作（上） FSO中除了可以对驱动器、文件夹的操作以外，功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。一、fso.OpenTextFile无需多说，fso.OpenTextFile就是打开某个文件了，一般...
asp中FSO复制文件代码 代码如下:TempSource,TempEnd必须用绝对路径 rootPath=Request.ServerVariables(“APPL_PHYSICAL_PATH”) ‘获取...IF FSO.FileExists(TempEnd) then Response.Write “目标备份文件 ” & TempEnd & “ 已
ASP FSO文件浏览器 1.0.rar ASP FSO文件浏览器，也称WEB在线文件管理器，本程序是单文件版，仅仅只有一个文件。程序主要利用FSO集合对象进行磁盘信息查看以及文件操作，本代码没有使用如Shell.Application等容易造成杀毒软件误杀的组件（如果你...
asp下用ADODB.Stream代替FSO读取文本文件 在ASP中，我们常用Scripting.FileSystemObject组件来读写文本文件，但它有一个缺点是对编码支持不足，比如我们想读写一个utf-8文本文件，FSO就很难办到了，这时我们就需要使用Adodb.Stream组件来代替它。
FSO操作文件系统 实现功能： 文件(夹)目录列表 提供了查阅目录下面的文件和文件夹 文件 写,创,删 提供了编辑,删除文件(文件夹)的操作 创建文件夹/文件 针对创建文件夹(文件)而设置. 上传文件 您可以模拟FTP上传,文件大小,类型不...
ASP中FSO的神奇功能 – 文件读取 现在已经有了一些用户信息保存在文件中，就像一个简单的数据库。假设有一个用户想了解所有的访问者，就要从登 记的信息中分离出相关部分，因为没有象数据库一样拥有结构化的列。 我们知道，在所创建的文件中，第...
Unity3D实战入门之第三人称射击游戏（TPS） 这是一套第三人称射击游戏开发的入门基础课程。
本课程以一款小型的第三人称射击游戏为案例，手把手教你如何搭建一款3D射击游戏的雏形。麻雀虽小，五脏俱全，这款小游戏难度不大，但第三人称射击游戏该有的模块、功能它都有涉及。通过案例游戏的开发，学习者可以对第三人称射击游戏入门，对后续复杂大中型3D游戏的开发有实际的借鉴意义。
这套课程，对初次接触3D射击类游戏的学习者而言，是一块极好的跳板。 本课程从零开始，带领学习者逐步完成一款小型的第三人称射击游戏。向3D射击类游戏的初学者展示完整项目的制作流程和设计思路，对该类游戏的常用知识点、必备功能模块、代码结构进行详细讲解，让学习者能够快速搭建一款3D射击游戏的雏形，为后续中、大型游戏的开发打下良好基础。
综教楼后的那个坑用双向链表实现 描述
在 LIT 综教楼后有一个深坑，关于这个坑的来历，有很多种不同的说法。其中一种说法是，在很多年以前，这个坑就已经在那里了。这种说法也被大多数人认可，这是因为该坑有一种特别的结构，想要人工建造是有相当困难的。
从横截面图来看，坑底成阶梯状，由从左至右的 1..N 个的平面构成（其中 1 ≤ N ≤ 100,000），如图：
＊ ＊ :
＊ ＊ :
＊ ＊ 8
＊ ＊＊ ＊ 7
＊ ＊＊ ＊ 6
＊ ＊＊ ＊ 5
＊ ＊＊＊＊＊＊＊＊＊ 4 <- 高度
＊ ＊＊＊＊＊＊＊＊＊ 3
＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 2
＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 1
平面 ｜ 1 ｜2｜ 3 ｜
每个平面 i 可以用两个数字来描述，即它的宽度 Wi 和高度 Hi，其中 1 ≤ Wi ≤ 1,000、1 ≤ Hi ≤ 1,000,000，而这个坑最特别的地方在于坑底每个平面的高度都是不同的。每到夏天，雨水会把坑填满，而在其它的季节，则需要通过人工灌水的方式把坑填满。灌水点设在坑底位置最低的那个平面，每分钟灌水量为一个单位（即高度和宽度均为 1）。随着水位的增长，水自然会向其它平面扩散，当水将某平面覆盖且水高达到一个单位时，就认为该平面被水覆盖了。
请你计算每个平面被水覆盖的时间。
灌水 水满后自动扩散
| |
* | * * | * * *
* V * * V * * *
* * * .... * *~~~~~~~~~~~~*
* ** * *~~~~** : * *~~~~**~~~~~~*
* ** * *~~~~** : * *~~~~**~~~~~~*
* ** * *~~~~**~~~~~~* *~~~~**~~~~~~*
* ********* *~~~~********* *~~~~*********
*~~~~********* *~~~~********* *~~~~*********
************** ************** **************
************** ************** **************
4 分钟后 26 分钟后 50 分钟后
平面 1 被水覆盖 平面 3 被水覆盖 平面 2 被水覆盖输入
输入的第一行是一个整数 N，表示平面的数量。从第二行开始的 N 行上分别有两个整数，分别表示平面的宽度和高度。
输出
输出每个平面被水覆盖的时间。
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。
使用方法：
1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面
2、勾选开发者模式
3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。
4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch
rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
