скрипт для удаления - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - скрипт для удаления (http://forum.oszone.net/showthread.php?t=212739)

скрипт для удаления

подскажите скрипт для удаления div
пример кода:
<div style="position:absolute;top:22796px;left:48px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">номичность, комфорт как для пациен-</font></div>
<div style="position:absolute;top:22812px;left:48px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">та, так и для персонала (современный </font></div>
<div style="position:absolute;top:22572px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">дизайн, встроенный в гентри монитор </font></div>
<div style="position:absolute;top:22588px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">основных параметров сканирования </font></div>
<div style="position:absolute;top:22604px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">+ ЭКГ-сигнала опционально, лазерные </font></div>
<div style="position:absolute;top:22620px;left:285px;"><font face="OMIWOR+MyriadPro-Regular" color="#838182" style="font-size:13px">маркеры для позиционирования па-</font></div>

Предположу, что нужно удалять тэги DIV.

Код:

Option Explicit



Dim objFSO

Dim FileName

Dim OpenFile

Dim strText



Set objFSO = CreateObject("Scripting.FileSystemObject")



FileName = "z:\DIVremove.htm"



Set OpenFile = objFSO.OpenTextFile(FileName, 1)

  strText = OpenFile.ReadAll

OpenFile.Close

  

Set OpenFile = objFSO.OpenTextFile(FileName, 2) 

  OpenFile.Write ReplaceText(strText, "<div.*?>(.*?)</div>", "$1")

OpenFile.Close



WScript.Echo "Скрипт отработал."



WScript.Quit



Function ReplaceText(strSourceText, strPattern, strNewText)

  Dim objRegExp

    Set objRegExp = New RegExp

    objRegExp.Pattern = strPattern

    objRegExp.IgnoreCase = True

    objRegExp.Global = True

    ReplaceText = objRegExp.Replace(strSourceText, strNewText)

End Function

В принципе, можно удалять любой текст - просто нужно проставить нужные условия регулярных выражений (выделенные цветом). Первое - искомый текст, второе - текст на выходе.

да нужно удалить div