asp读取txt并显示符合要求的

例如我有一个文件夹，里面有很多txt，并且是以日期为文件名的txt。第一步，如何用ASP读取今天昨天前天三个日子的txt，例如今天2010年2月22日我想读今天的，就是2... 例如我有一个文件夹，里面有很多txt，并且是以日期为文件名的txt。

第一步，如何用ASP读取今天昨天前天三个日子的txt，例如今天2010年2月22日我想读今天的，就是2010年2月22日.txt，昨天就是2010年2月21日.txt，以此类推
第二步 txt的内容大概如下
22:11:10,张三,李四,北京,上海
22:14:43,张三,王五,北京,武汉
22:14:43,李四,王五,上海,武汉

那么如何用ASP读取这个txt后，并按照特定表格来显示我需要的内容，例如我要显示所有里面含有张三名字的内容，并且在网页上显示出来，不符合要求的不显示，显示结果就为：
时间,人物,另一个人物,地点,另一个地点
22:11:10,张三,李四,北京,上海
22:14:43,张三,王五,北京,武汉

没有实现以上2步的将不给分我实在没辙了看了很多ASP和FSO文章都不知道怎么弄求高手解决！展开

 我来答

2个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

匿名用户
2014-02-26

展开全部

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>周相鹏制作:查询/读取</title>
<style>.fonts{font-size:9pt;line-height:25px}</style>
</head>
<%
'取值
nDate=request.form("nDate")
sName=request.form("sName")
submit=request.form("submit")
if nDate="" then nDate=1
%>
<body>
<FORM name=searchForm action="?" method=post >
<select name="nDate" size="1">
<option value="1" <%if nDate=1 then response.write "selected"%>>今天</option>
<option value="2" <%if nDate=2 then response.write "selected"%>>昨天</option>
<option value="3" <%if nDate=3 then response.write "selected"%>>前天</option>
</select>
包含姓名：<input name="sName" type="text" value="<%=sName%>" maxlength="10">
<input type="submit" value="读取查找" id=submit name=submit>
</FORM>
<%
'逻辑处理
if submit<>"" then '提交了才能查询
'文件名
Dim fName
select case nDate
case 1 fName=Year(date())&"年"&month(date())&"月"&day(date())&"日"
case 2 fName=Year(date()-1)&"年"&month(date()-1)&"月"&day(date()-1)&"日"
case 3 fName=Year(date()-2)&"年"&month(date()-2)&"月"&day(date()-2)&"日"
end select
fName=fName&".txt"
Set rocFSO=Server.CreateObject("Scripting.FileSystemObject") '建立文件对象
If not rocFSO.FileExists(Server.MapPath(fName)) Then
response.write fName&"文件不存在"
response.end
End If

Set rocFileObject = rocFSO.OpenTextFile(server.mappath(fName),1)
rocCont = rocFileObject.ReadAll
rocFileObject.Close
Dim rocRs
rocRs=split(rocCont,chr(13))'回车分行

response.write "<table width='85%' border='0' cellspacing='1' cellpadding='0' bgcolor='B4E2EF' class='fonts'>"
response.write "<tr bgcolor='F4F4F4'><td><font color='990033'>时间</font></td><td><font color='990033'>人物</font></td><td><font color='990033'>另一个人物</font></td><td><font color='990033'>地点</font></td><td><font color='990033'>另一个地点</font></td></tr>"for i=0 to ubound(rocRs)
if sName="" or (sName<>"" and inStr(rocRs(i),sName)) then
Dim rocRecord
rocRecord=split(rocRs(i),",")
response.write "<tr bgcolor='#FFFFFF'><td>"&rocRecord(0)&"</td><td>"&rocRecord(1)&"</td><td>"&rocRecord(2)&"</td><td>"&rocRecord(3)&"</td><td>"&rocRecord(4)&"</td></tr>"
end if
next
response.write "</table>"
end if %></body>
</html>====================================================================花了半个小时给你做的，请将以上代码复制到你的ASP文件中，即可测试我的测试效果如下1、打开网页 2、选择“今天/昨天/前天”,单击“读取查找” 3、你也可以选择天的同时，输入姓名查询

本回答由网友推荐

已赞过 已踩过<

评论收起

百度网盘

广告2024-12-31

pdf转各种格式excel/word/ppt，pdf合并，pdf拆分，百度网盘一键搞定。轻松玩转职场，职场打工人必备，提升办公效率神器，百度网盘出品。

www.baidu.com

匿名用户
2014-02-26

展开全部

<%
dim path
Set fso = Server.CreateObject("Scripting.FileSystemObject")
test = formatdatetime(now(),1)
path = server.MapPath(test & ".txt") '获取以今天为日期的txt文件服务器路径If fso.FileExists(path) Then '查找文件是否存在
response.Write "<table border='1' cellpadding='0' cellspacing='0'>"
set myFile = fso.OpenTextFile(path,1,True)'1读取，2写入，8追加
do until myFile.AtEndOfStream

myRead = split(myFile.ReadLine,",")

for i=0 to ubound(myRead)
if myRead(i) = "张三" then
myHave = "1"
exit for
else
myHave = "0"
end if
next

if myHave = "1" then
response.Write "<tr>"
for i=0 to ubound(myRead)
response.Write "<td>" & myRead(i) & "</td>"
next
response.Write "</tr>"
else
response.Write ""
end if

loop

myFile.close
set myFile = nothing
response.Write "</table>"
Else
'set myFile=fso.CreateTextFile(path)
'创建新文件
response.Write "文件不存在"
end if
set fso = nothing
%> txt内格式不能变·