Серый форум — AHK: Пакетное удаление текста в строке по заданному шаблону

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Mon, 24 Feb 2014 13:24:27 +0000

teadrinker пишет:

Ну так там вариантов не так много.

Loop, E:\Новая папка\*.html, , 1
{
   utf := ""
   FileRead, text, % A_LoopFileLongPath
   if RegExMatch(text, "") && utf := 1
      FileRead, text, % "*P65001 " A_LoopFileLongPath
   FileDelete, % A_LoopFileLongPath
   text := RegExReplace(text, "Вредная и опасная")
   FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}

Вот так вроде уже работает...

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Mon, 24 Feb 2014 12:47:39 +0000

Ну так там вариантов не так много.

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Mon, 24 Feb 2014 12:33:55 +0000

teadrinker пишет:

А работает?

Нет (хоть и не показывает ошибку).

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Mon, 24 Feb 2014 12:28:40 +0000

Эдвард пишет:

Так?

А работает?

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Mon, 24 Feb 2014 12:26:27 +0000

teadrinker пишет:

Гляньте в Loop (files & folders).

Так?

Loop, E:\Новая папка\*.html, 1
{
   utf := ""
   FileRead, text, % A_LoopFileLongPath
   if RegExMatch(text, "") && utf := 1
      FileRead, text, % "*P65001 " A_LoopFileLongPath
   FileDelete, % A_LoopFileLongPath
   text := RegExReplace(text, "Вредная и опасная")
   FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Mon, 24 Feb 2014 12:21:28 +0000

Эдвард пишет:

А хотелось бы, чтобы распространялась и на все подпапки.

Гляньте в Loop (files & folders).

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Mon, 24 Feb 2014 12:07:06 +0000

teadrinker пишет:

Тогда так можно:...

Спасибо за готовое решение. Самому пришлось бы мучиться с этой кодировкой очень долго.

Но всё же остался один нерешённый нюанс. Команда работает только с той папкой, которая указана в шаблоне имени. А хотелось бы, чтобы распространялась и на все подпапки.

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Sun, 23 Feb 2014 17:39:08 +0000

Тогда так можно:

Loop, E:\Новая папка\*.html
{
   utf := ""
   FileRead, text, % A_LoopFileLongPath
   if RegExMatch(text, "") && utf := 1
      FileRead, text, % "*P65001 " A_LoopFileLongPath
   FileDelete, % A_LoopFileLongPath
   text := RegExReplace(text, "Вредная и опасная")
   FileAppend, % text, % A_LoopFileLongPath, % "CP" . (utf ? "65001" : "1251")
}

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Sun, 23 Feb 2014 17:00:58 +0000

teadrinker пишет:

Ради интереса, пришлите через Attachments или через какой-нибудь сервис файл, который с кракозябрами считывается.

Вот так выглядит файл в первозданном виде: http://med-75.narod.ru/34/335.html.

И вот так – после выполнения команды: http://med-75.narod.ru/34/335-1.html.

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Sun, 23 Feb 2014 11:19:31 +0000

Можно только так, как в справке прописано. Ради интереса, пришлите через Attachments или через какой-нибудь сервис файл, который с кракозябрами считывается.

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Sun, 23 Feb 2014 10:04:51 +0000

teadrinker пишет:

Нужно посмотреть кодировку исходного файла и, если она не соответствует кодировке используемого интерпретатора, указать её в командах 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?

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Fri, 21 Feb 2014 13:47:34 +0000

Нужно посмотреть кодировку исходного файла и, если она не соответствует кодировке используемого интерпретатора, указать её в командах FileRead и FileAppend.

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Fri, 21 Feb 2014 10:31:25 +0000

Странно. Стоило поменять расширение, и код перестал работать:

Loop, E:\Новая папка\*.html
{
   FileRead, text, % A_LoopFileLongPath
   FileDelete, % A_LoopFileLongPath
   text := RegExReplace(text, "Вредная и опасная")
   FileAppend, % text, % A_LoopFileLongPath
}

Опять чего-то не учёл (возможно, дело в кодировке)...

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (Эдвард) — Fri, 21 Feb 2014 08:04:56 +0000

Большое спасибо. Заработало!

Re: AHK: Пакетное удаление текста в строке по заданному шаблону

null@example.com (teadrinker) — Thu, 20 Feb 2014 21:58:35 +0000

Loop, E:\Новая папка\*.txt
{
   FileRead, text, % A_LoopFileLongPath
   FileDelete, % A_LoopFileLongPath
   text := RegExReplace(text, "Вредная и опасная")
   FileAppend, % text, % A_LoopFileLongPath
}