ASP高手来帮忙，对你们来说不难！读取文本内容……详细见问题

2024-12-14 15:44:13

推荐回答（1个）

回答1：

message.txt 文件内容
abc=123
def=456
jhi=789

现在找def的参数456
<%
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("message.txt"))
'打开message.txt

Do While fp.AtEndOfStream<>true
s=fp.ReadLine '读取一条数据
p=Instr(s,"=") '取得=号的位置
if Mid(s,1,p-1)="def" then '如果=号前边的字符串为def
val=Mid(s,p+1,Len(s)-p) '取出结果付值给s
end if
loop
set fp=nothing
set fso=nothing
response.write val '输出查询结果
%>