FSO 的问题，批量文件的读操作。

xmayxmei 2004-11-30 10:08:24
一个文件夹下，有如下的文本文件。
20030629185219
20030629185219b
20030712074821
20030712074821b
20030718221530
20030718221530b
20030720141608
20030720141608b
20030724221514
20030724221514b
20030727125115
20030727125250
20030727125639
20030727125639b
20030801124428
20030801124428b
20030802102640
20030802102640b
20030806170219
20030806170219b
20030809220518
20030809220518b
20030813201723
20030813201723b
20030817164732
……………………
文件无数，
象这样的文件是一对：
20030629185219
20030629185219b
如何先读20030629185219，再读20030629185219b
然后继续下一对；
再下一对，一直到读完。
...全文
140 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mylovelypig 2004-11-30
  • 打赏
  • 举报
 回复
给你一段取得一个文件夹下所有文件的例子:
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function
你可以用Server.MapPath("/myfolder")之类的方法得到folderspec,然后传过去,
排序你自己来吧,还有就是你排序后可以用文件TextStreamObject对象来顺序打开这些文件,
都分别写成一个过程来调用吧.
honghe1 2004-11-30
  • 打赏
  • 举报
 回复
获取所有文件名称,放入一个数组,按字符排序,然后从最前面的文件开始,一个一个往后读写就是了.

可以考虑用javaScript来实现,javaScript的数组有排序功能.
lienzhu 2004-11-30
  • 打赏
  • 举报
 回复
1.遍理文件夹，把名字存入数据表中，例如表名为ftable,字段为path

2.读取数据库，select * from ftable order by path

3.用fso读取文件
mylovelypig 2004-11-30
  • 打赏
  • 举报
 回复
<%@ Language = "VBScript" %>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
DIM FilesList() ' 存放文件名用的,由于文件的个数随时可变,定义动态数组

Function GetFilesList(FolderPath) ' 取得文件列表放在数组中
Dim FolderObj,FilesColt,TxtFile, FileCount,I

Set FolderObj = fso.GetFolder(FolderPath)
Set FilesColt = FolderObj.Files
FileCount = FilesColt.Count
ReDIM FilesList(FileCount)
I = 1
For Each TxtFile in FilesColt
FilesList(I) = TxtFile.Name
I = I+1
Next
End Function

Function SortFiles() ' 对数组中存放的文件名进行排序
DIM i,j
DIM XChang
FOR i=1 to UBound(FilesList)
FOR j = i to UBound(FilesList)
IF FilesList(i) > FilesList(j) THEN
XChang = FilesList(i)
FilesList(i) = FilesList(j)
FilesList(j) = XChang
END IF
NEXT
NEXT
End Function

Function DisplaySort() ' 显示排序后数组中存放的文件名
dim i
FOR i=1 to UBound(FilesList)
Response.Write FilesList(i)
Response.Write "<BR>"
NEXT
End Function

Function OpenFile(FolderPath) ' 逐一打开每一个文件显示其中的内容
Dim FilePath,i
FOR i=1 to UBound(FilesList)
FilePath=FolderPath & "/" & FilesList(i)
Set tso = fso.OpenTextFile(FilePath)
Response.Write FilesList(i) & "中的内容:" & "<BR>"
Do While tso.AtEndOfStream <> True
Text = tso.ReadLine
Response.Write Text
Response.Write "<BR>"
LOOP
tso.Close
NEXT
End Function
%>
<html>
<head>
<title>
读文件
</title>
</head>
<body>

<%
FolderPath = "/news" ' 注:在这里改为你的文本文件在IIS根目录下的路径
FolderPath = Server.MapPath(FolderPath)
Response.Write "正在取得文件列表......" & "<BR>"
GetFilesList(FolderPath)
Response.Write "正在排序文件列表......" & "<BR>"
SortFiles()
Response.Write "排序列表后的顺序......" & "<BR>"
DisplaySort()
Response.Write "============================================================================" & "<BR>"
Response.Write "显示文件内容如下......" & "<BR>"
OpenFile(FolderPath) ' 注:如果你的文件内容太多,建议将这行注释掉不要运行,要不打开的网页内容非常长!
%>

</body>
</html>
mylovelypig 2004-11-30
  • 打赏
  • 举报
 回复
中午无事做,用VBScrip写了一个OpenFiles.ASP
高考学校录取查询系统 2012.8
学校录取查询系统是由九把刀修改自匠心网络的一套用于学校录取查询，高考录取查询以及报名录取查询的高效ASP查询系统。当前版本为2012.8.0，包含系统所有的功能，无任何限制，各大学\技能学校\培训学校\中学\小学等均可下载免费使用。 本系统有如下特色： 1.完善的前后台设计，使得管理操作起来更加方便。 2.前台采用DIV+CSS设计，提高访问速度以及查询的效率。 3.前台查询设计了输入验证和随机验证码，防止恶意查询和恶意提交数据。 4.后台登录设计了随机验证，防止恶意登录和非法提交。 5.后台部分采用AJAX设计。 6.数据库管理人员密码均采用MD5-16位加密，即使数据库被下载也不会导致管理密码泄露。 7.可以自由修改管理密码，添加删除管理员，方便多个管理员输入录取信息，提高录入效率。 8.后台自由发布公告。 9.后台控制数据压缩，数据备份和数据还原。 10.后台自由添加修改删除录取专业。 11.回车即输入下一个录取的选项，回车提交即输入下一个录取考生信息，方便录入设计。 12.自由Excel批量导入录取信息到数据库。在本地编辑好一定格式的Excel录取信息表，在后台即可    直接把Excel的信息批量导入到数据库，免去每个录取信息都手动添加的繁重工作量。 13.数据库信息自由导出到Excel，生成指定名称的Excel表，并可下载回本地查看或者打印，方便信息的查看\转移    \打印\统计\修改。 14.后台可以按指定的考生姓名或准考证号查询所有考生的信息。 15.管理员可以查询指定的考生并修改其录取的考生姓名\准考证号\高考分数\录取专业\录取时间等信息。 1. 系统需求 =========================================== 1) 软件系统：WIN2000+IIS5.0 / WINXP+IIS5.1 / WIN2003+IIS6.0 2) 数 据 库：Access2000 3) 其 他：服务器必须安装 微软IE浏览器5.0或以上版本 使用Email功能，需要安装Jmail 4.0或以上版本 部分功能需要服务器支持FSO(FileSystemObject) 推荐：Windows 2000+IIS5.0+Access2000+IE5.5环境测试 2. 系统安装 =========================================== 1) 将此文件夹中文件上传到服务器或者本地WEB目录，就立即可以使用了。    注意：如果不是安装在根目录，请修Conn.Asp中的安装目录。也记得修改CONN.ASP中的网站安装名称。 2) 在运行前请确保您的服务器或者系统满足第一项的系统需求，运行前请看清楚文件中的说明。 3. 常见问题 =========================================== 1) 如何进入后台进行管理 ? 为了系统安全，Web页面上没有直接给出后台登录的链接，您可以直接输入“网站目录/admin”来登录后台。 默认管理员（前/后台）：admin 密码：admin 请登录后立即修改管理员用户名及密码。 2) 出现数据库不能更新的错误提示 ? 请检查网站目录中的权限配置。是否对系统所在目录开放了写入权限。 数据库读写权限打开方法：右键数据库或该文件夹…安全…添加…选Everyone组…添加…确定…权限栏允许：修改、读、写、运行…确定。 3) 出现数据库连接出错。 因为数据库连接使用的是绝对路径，在这里再一次强调大家，如果不是安装在根目录上的，请一定要先修改安装目录。 修改安装目录：    打开Conn.Asp,找到Const WebDir= "/"，把值改为正确的安装目录即可。    例：如果安装在：School目录下，安装目录即为：Const InstallDir= "/School/"。 更多问题解答请发邮件到[email protected]，以得到更多的技术支持。
VBA调用fso读取TXT转化EXCEL
VBA：TXT转EXCEL EXCEL版本： 2016 适用TXT样式： 固定分隔符规范TXT数据源 效果： 调用对话框选择打开TXT，设置TXT分割符，将转化文件保存到TXT文件同一目录下。如下图： 关于批量txt转化EXCEL： 可以结合Dir语句，遍历选定目下txt文件，再逐个转化成EXCEL文件。调用文件对话框选择目录语句如下： Sub select_file_d...
Excel-VBA文件操作
转载自https://blog.csdn.net/threshold1980/article/details/78864240 1、利用Excel对象来处理文件； 2、利用VBA文件处理语句来处理文件； 3、利用FileSystemObject对象来处理文件； 4、利用API函数来处理文件。 对于数据库文件，还可以利用ADO＋SQL的方法操作，本文不讨论 利用Excel对象自带的方法来操作文件是最...
读文件 —— WEB前端读取本地文件内容哪些事（前台解析txt文件）…… – 杰儿__er 的博客 – CSDN博客...
文章目录[隐藏]读文件 —— WEB前端读取本地文件内容哪些事（前台解析txt文件）……参考链接：https://blog.csdn.net/pl1612127/article/details/77862174可供参考的链接：https://zhidao.baidu.com/question/2052152980493488107.htmlJavaScript中的ActiveXObject对象） ...
ASP自动生成HTML文件方法
首先这项技术的优点是：(1)减轻数据库的压力;(2)把数据库和页面隔离开来然后给大家讲一下实现原理..ASP生成HTML其实是使用服务器的FSO内置对象..其定义方法为set fs=createobject("scripting.filesystemobject") \\'设置FSO对象在建立FSO对象后就可以对服务器进行文件及文件夹管理操作...所以在服务器新建一个网页文件也是很轻松的事... ...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章