ASP和FileSystemObject如何才能在文件的开始加入一行文字？如何才能把文件最后一行文字删除？（解决马上给分，在线等……）

我想做一个实施更新的新闻页面，不能是动态的，只能是从数据库中读取数据然后生成.htm文件。当有新闻添加的时候就往.htm文件的最上面加入一条，并且把最下面删除一条。具体技术用FileSystemObject。


  现在我遇到的问题是： 
      如何才能在文件的最开始加入一行文字？
      如何才能把文件最后一行文字删除？

请大家帮帮忙呀？
（解决马上给分，在线等……）



     

6 个解决方案

#1

<%
Dim fso, f,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\a.txt", 1)
s = f.ReadAll
s = Left(s,InstrRev(s,vbCrLf))
Response.Write s
f.close
Set f= Nothing
s = "new" & vbCrLf & s
Set f = fso.OpenTextFile("c:\a.htm", 2)
f.Write s
f.Close
Set f= Nothing
%>

#2

<%
Dim fso, f,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\a.htm", 1)
s = f.ReadAll
s = Left(s,InstrRev(s,vbCrLf))
Response.Write s
f.close
Set f= Nothing
s = "new" & vbCrLf & s
Set f = fso.OpenTextFile("c:\a.htm", 2)
f.Write s
f.Close
Set f= Nothing
%>

#3

我觉得你可以重新生成，不要去修改原来的.htm文件，反正重新生成的时间也不长，

如果真的要修改,个人认为，你可以在生成.htm文件的时候，在每条新闻后面（或前面）加个标记（外面看不到的，如注释之类的，）然后要找的时候就去找相应的标记，

#4

to ： lovewindy(LOVE风云) 
不能删除文件，要是可以的话，可以删除数据，但是怎么才能删除所有的数据呢？
你说的加标记的方法具体怎么实现呢？

谢谢上面的几位
大家还有好的方法吗？

#5

思路:先将文件内容读出,存入变量Ｃ,然后把新增的Ｎ与Ｃ连接(Ｃ=Ｎ&Ｃ),最后将找到Ｃ中最后一个"换行"的位置,用字符串函数就可以做到了...

#6

我用了net_lover(孟子E章) 的方法，成功了。谢谢各位了
接分吧！
结帖了