ASP 调用 TXT 文本文件

ASP\u5982\u4f55\u8bfb\u53d6TXT\u6587\u672c\u5185\u5bb9

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("read.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.ReadAll
response.write line & ""
end if
%>

line=txt.ReadAll'\u8bfb\u53d6\u6587\u4ef6\u4e2d\u7684\u6240\u6709\u6570\u636e
line=txt.ReadLine'\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6N\u4e2a\u5b57\u8282\u7684\u6570\u636e
line=txt.Read(N)'\u4ece\u6587\u4ef6\u4e2d\u8bfb\u53d6\u4e00\u884c\u6570\u636e

Set fso = CreateObject("Scripting.FileSystemObject")
Set htmlwrite=fso.OpenTextFile(server.MapPath("xxx.txt"))
strOut=htmlwrite.ReadAll
htmlwrite.close
response.write(strOut)
\u5927\u4f53\u610f\u601d\u5c31\u662f\u8fd9\u4e9b \u5176\u4ed6\u7684\u518d\u81ea\u5df1\u8865\u5145\u4e0b

为了实现这个功能，您可以尝试使用ASP中的FSO对象。
根据您提供的信息，您的要求是：
第4n+1行为公司名称，其格式为：前五个字符是“公司名称：”，后面的是公司名称
第4n+2行为地址，其格式为：前3个字符是“地址：”，后面的是公司地址。
第4n+3行是电话，第4n+4行是分隔符。
那么就以提取第一个公司的信息为例编写,设文本文件名是xx.txt,与ASP文件放于同一目录下：
<%
set fso=server.CreateObject("scripting.filesystemobject")
set txt=fso.openTextFile(server.MapPath("xx.txt"))
Dim CopName,CopAdd,CopTel
CopName=txt.readline()
CopAdd=txt.readline()
CopTel=txt.readline()
txt.close
'以下函数用于除去信息的前缀
'如第一行信息除去前面的“公司信息：”
function GetStr(prefix,str)
dim a
a=len(str)-(len(prefix)+1)
GetStr=right(str,a)
End function
CopName=getStr("公司名称",CopName)
CopAdd=getStr("地址",CopAdd)
CopTel=getStr("电话",CopTel)
%>

扩展阅读：免费ai智能写作一键生成 ... 新手s应该怎么玩 ... 免费ai写作入口 ... ai写作生成器在线使用 ... 免费ai写作助手 ... 作文生成器 ... 智能ai写作免费网站 ... ai写作 ... asp文本编辑器 ...