VBS: пакетное переименование HTML-файлов

Function UTF8toWin1251(sIn)
    Set Recode = CreateObject("ADODB.Stream")
    Recode.Open
    Recode.CharSet = "windows-1251"
    Recode.WriteText sIn
    Recode.Position = 0
    Recode.CharSet = "UTF-8"
    UTF8toWin1251 = Recode.ReadText

Вы открываете поток, пишете в него в кодировке windows-1251, потом читаете уже в кодировке UTF-8, но функция называется UTF8toWin1251?

ну ладно. Тогда будет много слов.
1. Функция называется UTF8toWin1251, то есть она выполняет перевод UTF8 -> Win1251
2.1. Для этого создается поток, устанавливается кодировка Win1251
2.2. пишется в поток строка в UTF8
3.1. перключается кодировка на UTF8
3.2. считывается строка в кодировке Win1251

Мне непонятно именно как 2.1. и 2.2 соотносятся друг с другом. Почему строка UTF8 пишется в поток с выставленной кодировкой Win1251. Я уже не первый раз запинаюсь об этот ADODB.Stream и кажется на одном и том же месте. Кажется, логика нарушена.

Аскет, закомментировав:

On Error Resume Next

Вы и сами найдёте.

Элементарно:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Выбор каталога", &h10 + &h200, &h11)
If Not objFolder Is Nothing Then
    WScript.Echo objFolder.Self.Path
Else
    WScript.Echo "Каталог не выбран."
End If

OFF:
----
Аскет, хорошо, что Вы деятельно участвуете в работе форума, но жаль, что столь неконструктивно реагируете на критику Ваших решений.

Я полагал, что Вы начали-таки читать «Правила форума» — §3.10:

Видно, что я ошибся.

Ага. В теории. На практике же подобное использование «On Error Resume Next» в начале скрипта без какой-либо последующей обработки ошибок означает, что мы можем с большой вероятностью огрести в итоге кучу проблем с таким подходом.

В MSDN пример с «BrowseForFolder()» использует такой же, приведённый коллегой Dmitrii, способ — «Not … Is Nothing». И на нашем форуме ранее встречалась сия конструкция. Поскольку Вы не привели комментариев (см. выше), каким образом я должен был догадаться о столь странном предназначении «On Error Resume Next»?!

Шут с ним, использовали Вы его для метода «.BrowseForFolder()» — и ладно. Вопрос в другом. Почему включаете задолго до вызова метода? Почему не проверяете наличие ошибки и не обрабатываете её? Почему не возвращаете стандартную обработку ошибок на место после вызова метода и обработки? Закомментируйте «On Error Resume Next» и подивитесь на творение рук своих.

Всё верно. Наличие «Set» в операторе присваивания означает, что будет создан объект.

WScript.Echo TypeName(Nothing)
WScript.Echo VarType(Nothing), vbObject

Я говорю о том, что мне непонятно, чего Вы хотели, выкладывая Вашу разработку. Об этом Вы не написали в сопроводиловке.

Раз возникли вопросы (и по поводу «On Error Resume Next» в частности) — очевидно, недостаточно.

Пожалуйста.

Комментируем «On Error Resume Next». Запускаем скрипт. Выбираем папку с файлом *.htm. Получаем:

E:\Песочница\0036\0001.vbs(80, 9) Ошибка выполнения Microsoft VBScript: Недопустимое имя или номер
файла

Добавляю перед:

        FSO.Movefile fileName, NewName &  fileext

строку:

        WScript.Echo fileName, NewName &  fileext

Вижу:

author-patterns.htm \XPath Tutorial Application< - TITLE>.htm

Согласно стандарту HTML регистр символов в тэге «title» может быть произвольным. Браузер это понимает. Ваш скрипт:

            str = replace (str,LCase("</title>"),"")

— нет.

Кашляю дальше. Ваш скрипт исправляет некоторые недопустимые символы «/», «\», «:» из формируемого заголовка. MSDN говорит о несколько большем числе: «/», «\», «:», «*», «#», «?», «"», «<», «>» и «|». Далеко ходить не надо — в том же упоминаемом MSDN большое число страниц с такими символами в тэге «title»:

<title>KB243298 - BUG: A "C2668: 'InlineIsEqualGUID'" error occurs when you try to build a default ATL project that contains a COM object in Visual C++</title>
<title>KB244232 - How To Add Context Help Button (? Button) to Title Bar of CPropertySheet</title>
<title>KB242527 - PRB: #import Wrapper Methods May Cause Access Violation</title>

Продолжать? Потрясающе в скрипте выглядит перебор строк файла — вплоть до конца строки:

Do While not (file_.AtEndOfLine) …

Обычно ограничение — конец файла.

Двигаемся дальше. Стандарт HTML предусматривает, что веб-страницы могут быть не только в ANSI и UTF-8, но и в других кодировках. «По факту» — Ваш скрипт об этом знать не знает и переименовывает такие страницы как есть — то бишь, в наличествующей кодировке. Например:

<meta http-equiv="Content-Type" content="text/html; charset=koi8-r">
<title>Серый форум / AHK: Помогите создать скрипт</title>

E:\Песочница\0036\уЕТЩК ЖПТХН  -  AHK  рПНПЗЙФЕ УПЪДБФШ УЛТЙРФ.htm

А как насчёт того, что тэг «tile» не обязан располагаться на одной физической строке? Об этом скрипт тоже не в курсе. Итог — такое имя файла после работы скрипта:

.htm

Ну, как, коллега? Я насчитал пять мест, где Ваш скрипт чихать хотел на корректную работу и не делает того, что было заявлено.

Про использование недокументированных возможностей, типа «wsh.quit» вместо «WScript.Quit», полуописанные переменные (часть описана, часть нет), разный регистр в одних и тех же ключевых словах и общий внешний вид скрипта говорить после такого уже не хочется, хотя и это является необходимым требованием для помещения скрипта в Коллекцию.

Я бы вместо TextStream работал непосредственно c DOM или DHTML — сразу уйдут многие ошибки с некорректным определением «title». Наподобие:

Option Explicit

Dim objHTMLDocument
Dim objRegExp

Dim strTitle


Set objHTMLDocument = GetDocumentFromURL("file://E:\Песочница\0036\qww.htm")
Set objRegExp       = WScript.CreateObject("VBScript.RegExp")

strTitle = objHTMLDocument.title

With objRegExp
    .IgnoreCase = True
    .Global     = True
    .Pattern    = "[/|\\|:|\*|#|\?|""|<|>|\|]"
    
    WScript.Echo .Replace(strTitle, "_")
End With

Set objRegExp       = Nothing
Set objHTMLDocument = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
'Set objHTMLDocument = DocumentFromURL(url)
' http://forum.script-coding.com/viewtopic.php?pid=34580#p34580
' http://forum.script-coding.com/viewtopic.php?pid=7920#p7920
Function GetDocumentFromURL(strURL)
    Dim objHTMLDocument
    Dim arrHtmlText
    
    Set objHTMLDocument = WScript.CreateObject("HTMLFile")
    
    With WScript.CreateObject("MSXML2.XMLHTTP")
        .open "GET", strURL, False
        .send
        arrHtmlText = .responseBody
    End With
    
    With WScript.CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write arrHtmlText
        
        .Position = 0
        .Type = 2
        .Charset = "windows-1251"
        
        objHTMLDocument.write .ReadText
    End With
    
    Set GetDocumentFromURL = objHTMLDocument
    Set objHTMLDocument = Nothing
End Function
'=============================================================================

…
<title>
Серый форум / AHK: Помогите 
создать скрипт =/=\=:=\=*=#=?="=<=>=|=
</title>
…

Ах да, и ещё.

Во первых: у каждого свой стиль программирования, и не стоит навязывать кому бы то нибыло свой собственный (излишне педантичный, кстати говоря).

Во вторых: По поводу "часть описана, часть нет". Спецификация языка VBScript НЕ предполагает обязательного объявления переменных, до их использования, если это явно не указано интерпретатору.

Я вообще считаю что подобное растягивание кода dim'ами и формальными инструкциями (там где это явно излишнее) только затрудняет его понимание, и отводит взгляд от основных инструкций.

p.s. на заметку: «wsh» это синоним объекта «Wscript».

Неудачная ссылка - это справедливо для SQL Server 2008 R2, что в принципе и вытекает из категории документации (слева) и подзаголовка статьи.

----

Для добивки темы о запрещённых и разрешённых символах. Далеко ходить и рыться по документациям не надо.

1) в проводнике создаём файл с именем #%«'»&^.ext

2) там же пытаемся переименовать файл в ".ext и получаем подсказку с ясным списком запрещённых символов.