当前位置：首页 > 资讯 > 技术文档

如何读取文本文件的内容？

时间：2021-07-04 22:21 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何读取文本文件的内容？

<% Dim write Dim fileSysObj, tf, read read = "intels.txt" ' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read ' 检索要读的文件的完整路径. Set fileSysObj = createObject("Scripting.FileSystemObject") ' 创建一个 FileSystem Object 实例,并把它保存到 fileSysObj 的变量中 IF (fileSysObj.FileExists(read)) Then Set tf = filesysobj.OpenTextFile(read, 1)

' 如果文件在,就打开读取.

read = tf.ReadLine tf.Close ELSE read = "噢,找不到这个文件!" ' 如果文件不存在,发出错误提示. END IF %>

<html>

<body>

<p align="center">千花飞舞之读取文本内容</p>

</table>

</center></div>

</body></html>

全部评论(0)

上一篇：MongoDB入门教程之C#驱动操作实例
下一篇：如何用ASP发送html格式的邮件？

资讯排行榜
更多>>