Видоизменение справки (HTML)

[AZJIO]

Для 3.3.8.1

Convert_in_1251.au3

Local $LngDn, $LngMB1, $LngWrn
Local $hFile, $sFileList, $sText

$LngWrn = 'Предупреждение'
$LngMB1 = 'Вы действительно хотите конвертировать HTML-файлы, находящиеся в папке ??? в UTF-8 без BOM?'
$LngDn = 'Готово!'

If MsgBox(4 + 48, $LngWrn, $LngMB1) = 7 Then Exit

#include <FileOperations.au3>
$sFileList = _FO_FileSearch(@ScriptDir, '*.htm*')

For $i = 1 To $sFileList[0]
    $sText = FileRead($sFileList[$i])
    $sText = StringReplace($sText, 'charset=UTF-8"', 'charset=windows-1251"')
    $hFile = FileOpen($sFileList[$i], 2)
    FileWrite($hFile, $sText)
    FileClose($hFile)
Next
MsgBox(0, '', $LngDn)

Convert_in_UTF-8.au3

Local $LngDn, $LngMB1, $LngWrn
Local $hFile, $sFileList, $sText

; En
$LngWrn = 'Warning'
$LngMB1 = 'Are you sure you want to convert HTML files located in the folder ??? to UTF-8 without BOM?'
$LngDn = 'Done!'

; Ru
; если русская локализация, то русский язык
If @OSLang = 0419 Then
    $LngWrn = 'Предупреждение'
    $LngMB1 = 'Вы действительно хотите конвертировать HTML-файлы, находящиеся в папке ??? в UTF-8 без BOM?'
    $LngDn = 'Готово!'
EndIf

If MsgBox(4 + 48, $LngWrn, $LngMB1) = 7 Then Exit

#include <FileOperations.au3>
$sFileList = _FO_FileSearch(@ScriptDir, '*.htm*')

For $i = 1 To $sFileList[0]
    $sText = FileRead($sFileList[$i])
    $sText = StringReplace($sText, 'charset=windows-1251"', 'charset=utf-8"')
    $hFile = FileOpen($sFileList[$i], 2 + 128)
    FileWrite($hFile, $sText)
    FileClose($hFile)
Next
MsgBox(0, '', $LngDn)