Чистка веб страниц, пример


#NoTrayIcon
#Include <FileOperations.au3>

$sep = 'le56tf98'
$aFileList = _FO_FileSearch(@ScriptDir, '*.htm', True, 0, 0)

For $i = 1 To $aFileList[0]

$sText = FileRead(@ScriptDir & '\' & $aFileList[$i])

$sText=StringRegExpReplace($sText, '(?s)<(script|ins|style).+?</\1>', '') ; удалить скрипты, встройки, стили
$sText=StringRegExpReplace($sText, '(?s)<(meta|link) .+?>', '') ; удалить метаданные
$sText=StringReplace($sText, '<head>', '<head>' & @CRLF & '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">' & @CRLF & '<link type="text/css" rel="stylesheet" href="styles.css">') ; добавить правильные метаданные
; <meta content="text/html; charset=windows-1251" http-equiv="Content-Type">
; <link type="text/css" rel="stylesheet" href="styles.css">

; $sText=StringRegExpReplace($sText, '(?s)<script.+?</script>', '') ; удалить скрипты
; $sText=StringRegExpReplace($sText, '(?s)<ins.+?</ins>', '') ; удалить ins
; $sText=StringRegExpReplace($sText, '(?s)<style.+?</style>', '') ; удалить style


$sText=StringRegExpReplace($sText, '(?s)<body>.+?<!-- (studru600x300|studorg600|studnet600) -->', '<body>' & @CRLF & '<!-- ' & $sep & ' -->', 1) ; удалить от начала тела до контента
; $sText=StringRegExpReplace($sText, '(?s)<!-- ' & $sep & ' -->.+?</center>', '', 1) ; удалить остатки от тега до контента
$sText=StringRegExpReplace($sText, '(?s)<!-- ' & $sep & ' -->.+?</tbody></table><div class="divtext">', '<div class="divtext">', 1) ; удалить остатки от тега до контента
$sText=StringRegExpReplace($sText, '(?s)<!-- ' & $sep & ' -->.+?</td><td valign="top"><h1>', '<h1>', 1) ; удалить остатки от тега до контента
$sText=StringRegExpReplace($sText, '(?s)<!-- (studru580|studnet580) -->.+?</body>', '</body>', 1) ; удалить концовку от контента
$sText = StringRegExpReplace($sText, '(?s)<div class="pagelink">(.+?)</div>', '')

; $sText=StringRegExpReplace($sText, '(?s)<!-- studrurekomend2 -->.+?</body>', '</body>', 1) ; удалить концовку от контента
; $sText=StringRegExpReplace($sText, '(?s)<!-- studsurekomed -->.+?</body>', '</body>', 1) ; удалить концовку от контента

; $sText=StringRegExpReplace($sText, '(?s)<p>\r\n<a href="http://studopedia.su/.+?</span></a>\t</p>', '', 1)
; $sText=StringRegExpReplace($sText, '(?s)<!-- RotaBan.ru Ad Code -->.+?<!-- END RotaBan.ru Ad Code -->', '')


; $aSample = [2, 'RotaBan.ru Ad Code', 'RotaBan.ru Zone']
; For $i = 1 To $aSample[0]
    ; $sText=StringRegExpReplace($sText, '(?s)<!-- ' & $aSample[$i] & ' -->.+?<!-- END ' & $aSample[$i] & ' -->', '')
; Next


$hFile = FileOpen(@ScriptDir & '\1' & $aFileList[$i], 2)
FileWrite($hFile, $sText)
FileClose($hFile)
Next