Question

ASP读取TXT第一行内容并且删除

具体源码是这样
<%
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.ReadLine'
response.write "领取成功！激活码为" &line & "请存好！"
end if
%>

读取read.txt的内容第一行

现在我希望读取第一行内容完后并自动删除

有谁可以帮帮忙吗

Answer 1

你好,答案如下:

<%
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")

'读取文本文件中的所有行内容
Set MyFile = fso.OpenTextFile("E:\Web\fsofso\default.txt", ForReading)
j=0
Do While Not MyFile.atEndOfStream

if j<>0 then
abc = abc + MyFile.ReadLine &","
else
edf = MyFile.ReadLine '这里得到了首行的内容
end if

j=j+1
loop
MyFile.Close

if j>0 then
Response.Write "领取成功！激活码为" &edf & ",请您存好！"
else
response.write "对不起，已无激活码可领取！"
end if

if j>1 then
abc=Left(abc,Len(abc)-1) '去掉最后一个符号
end if

'写入内容到文本文件中
Set MyFile = fso.OpenTextFile("E:\Web\fsofso\default.txt", ForWriting, True)
StrQ=split(abc,",")
For i=LBound(StrQ) to UBound(StrQ)
MyFile.WriteLine StrQ(i)
next
MyFile.Close
%>

以上代码经过测试,100%达到你的要求!