
Скрипт
Dim fso, ts, s, re
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
Set f = fso.GetFile(filename)
Set ts = fso.OpenTextFile(filename, ForReading)
s = ts.read(1000)
ts.Close
re.Pattern = "<TITLE>(.*)</TITLE>"
if re.Test(s) then
Set tt = re.Execute(s)
content= re.replace (tt(0),"$1")
End if
set f=nothing
set fso=nothing
set re=nothing