А работает?
Нет (хоть и не показывает ошибку).
]]>Ну так там вариантов не так много.
Loop, E:\Новая папка\*.html, , 1
{
utf := ""
FileRead, text, % A_LoopFileLongPath
if RegExMatch(text, "<meta.*?charset=utf-8"">") && utf := 1
FileRead, text, % "*P65001 " A_LoopFileLongPath
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}Вот так вроде уже работает...
]]>А работает?
Нет (хоть и не показывает ошибку).
]]>Так?
А работает? 
Гляньте в Loop (files & folders).
Так?
Loop, E:\Новая папка\*.html, 1
{
utf := ""
FileRead, text, % A_LoopFileLongPath
if RegExMatch(text, "<meta.*?charset=utf-8"">") && utf := 1
FileRead, text, % "*P65001 " A_LoopFileLongPath
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}А хотелось бы, чтобы распространялась и на все подпапки.
Гляньте в Loop (files & folders).
]]>Тогда так можно:...
Спасибо за готовое решение. Самому пришлось бы мучиться с этой кодировкой очень долго.
Но всё же остался один нерешённый нюанс. Команда работает только с той папкой, которая указана в шаблоне имени. А хотелось бы, чтобы распространялась и на все подпапки.
]]>Loop, E:\Новая папка\*.html
{
utf := ""
FileRead, text, % A_LoopFileLongPath
if RegExMatch(text, "<meta.*?charset=utf-8"">") && utf := 1
FileRead, text, % "*P65001 " A_LoopFileLongPath
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}Ради интереса, пришлите через Attachments или через какой-нибудь сервис файл, который с кракозябрами считывается.
Вот так выглядит файл в первозданном виде: http://med-75.narod.ru/34/335.html.
И вот так – после выполнения команды: http://med-75.narod.ru/34/335-1.html.
]]>Нужно посмотреть кодировку исходного файла и, если она не соответствует кодировке используемого интерпретатора, указать её в командах FileRead и FileAppend.
Указал:
Loop, E:\Новая папка\*.html
{
FileRead, text, % A_LoopFileLongPath, UTF-8
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath, UTF-8
}Только если в теле html-файла имеется "charset=utf-8", после выполнении команды вся кириллица превращается в кракозябры (при "charset=windows-1251" команда выполняется нормально).
Отсюда вопрос: можно ли для считывания текста файла в переменную указать универсальную (двойную) кодировку, а для записи только UTF-8?
]]>Loop, E:\Новая папка\*.html
{
FileRead, text, % A_LoopFileLongPath
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath
}Опять чего-то не учёл (возможно, дело в кодировке)...
]]>Loop, E:\Новая папка\*.txt
{
FileRead, text, % A_LoopFileLongPath
FileDelete, % A_LoopFileLongPath
text := RegExReplace(text, "Вредная и опасная")
FileAppend, % text, % A_LoopFileLongPath
}