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

复制内容到剪贴板

代码:

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脚本……你拿去参考下好了……

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

批处理相比vbscript在处理文本上能力差很多。

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