打印

[求助] 如何用脚本实现修改文本文件的内容?

本主题由 mwpq 于 2007-11-7 08:57 关闭

如何用脚本实现修改文本文件的内容?

我需要定期更改几个文本文件里的特定内容,请问不知道批处理能不能写出这样的脚本,执行时可以手工运行,不用设定schedule。我知道findstr语句能够找出需要的内容,但是不知道修改的语句,希望各位高手不吝赐教!!

TOP

复制内容到剪贴板
代码:
Dim fn '新建网页所使用的名称
Dim fle '新建网页
Dim fleT '模版网页
dim htmlTilte,zcsj,picfld '变量:网页标题,展出时间,图片文件夹
Dim tempStr,writeStr,i
'----------------------------------------------------
On Error Resume Next '错误处理

Set fso = CreateObject("Scripting.FileSystemObject") '创建FSO对象

fn = InputBox ("要保存的文件名是?")
If Right(fn,4) <> ".htm" Then
fn = fn & ".htm"
End if

'打开文件
Set fle = fso.OpenTextFile(fn,2,true)
Set fleT = fso.OpenTextFile("template.htm",1)

'执行文字替换
Do
tempStr = fleT.ReadLine
if Instr(1,tempstr,"<title>") <> 0 Then
htmltitle = inputbox("网页的标题是?")
writestr = Replace(tempstr,tempstr,"<title>" & htmlTitle & "</title>")
fle.Writeline(writestr)
else
fle.Writeline(tempstr)
end if

Loop Until fleT.AtEndOfStream = True

flet.Close
WScript.Quit
这是我用来修改一个内容比较固定的网页的,使用Replace替换整行内容,instr来判断某一行是否存在需要替换的文字……; D& a ]2 F, _! i5 f

. l9 W5 z* }4 Z% P# w呃,这是vbs脚本……你拿去参考下好了……
本帖最近评分记录
  • mwpq 菊花元 +10 谢谢分享 2007-6-5 04:41

TOP

谢谢楼上的达人,但是还是批处理文件比较适合我用,不知道还有没有其他方法?

TOP

批处理相比vbscript在处理文本上能力差很多。
《无量寿经·第十八愿》言:
设我得佛,十方众生,至心信乐,欲生我国,乃至十念,若不生者,不取正觉。唯除五逆,诽谤正法。

TOP

哎,这我知道,但是我现在的环境只允许我用批处理,是novell 4.0的环境,每个用户登陆后都有不同的DOS菜单,所以加入批处理比较容易维护。我在网上找了半天,只看到一个帖子说用change+if就可以解决,但是没有给出具体语句,还希望大家多帮帮我呀~

TOP

本功能由奇虎搜索实现

相关主题

标题 作者 最后发表
[站外] 在"开始运行"中都有一些什么代码。   [转帖] 网页制作 2008-09-06
[站外] Oracle中利用ADO对象实现存取和访问   [转帖] creditcard 2008-09-06
[站外] 用PHP自动把纯文本转换成Web页面   [转帖] creditcard 2008-09-06
点击阅读更多关于的相关帖子  更多相关主题