Код:
#include <File.au3>
#include <Array.au3>
Local $file_Read[0], $name_file_0[0]
$FileList =_FileListToArray(@ScriptDir, "*.html", 0)
DirCreate(@ScriptDir & '\new')
FileDelete(@ScriptDir & '\new\*.html')
for $i=1 to $FileList[0] Step 1
$hFile = FileOpen(@ScriptDir & '\' & $FileList[$i], 0)
If $hFile = -1 Then
MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
Exit
EndIf
$f = FileRead($hFile)
_ArrayAdd($file_Read,$f)
$f_wo_html = StringRegExp($FileList[$i],'(.+).html',3)
_ArrayAdd($name_file_0,$f_wo_html)
$name_file = '<title>' & $name_file_0[$i-1] & '</title>'
$pattern = '<title>(.+)</title>'
$output = StringRegExpReplace($f,$pattern,$name_file)
FileWrite(@ScriptDir & '\new\new_' & $FileList[$i], $output)
Next
Программа в файлах html папки скрипта заменяет текст между тегами <title></title> на имя файла без расширения. Новые файлы сохраняются в папку "new".
Вопрос: как сделать, чтобы html файл сохранялся в кодировке UTF-8?