Flasher
|
 Posted: Sun Jan 25, 2015 19:17 Post subject: |
 |
|
slawok25, сразу пишу - кодировки не отлаживал:
| Code: | '============================================================
' Заменить базовые имена выбранных htm(l)-файлов на заголовки
' Параметр: %WL
'============================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
Set HTML = CreateObject("htmlfile")
S = Split(""" | : ; \ / < > ?") : R = Split("''|-|,| -|_|_|-|-| ","|")
With CreateObject("Scripting.FileSystemObject")
Set List = .OpenTextFile(WScript.Arguments(0),,,-1)
Do : F = List.ReadLine
If .FileExists(F) Then
Ext = .GetExtensionName(F)
If InStr("html|hta", Ext) Then
HTML.Open : HTML.Write .OpenTextFile(F,,,-2).ReadAll
Title = "" : Title = Trim(HTML.Title)
If Title <> "" Then
For i = 0 To 8 : Title = Replace(Title, S(i), R(i)) : Next
Name = Title & "." & Ext : Path = .GetParentFolderName(F) & "\"
If Len(Path & Name) > 259 Then Name = Left(Title, 258 - Len(Path) - Len(Ext)) & "." & Ext
If Not .FileExists(Path & Name) Then .GetFile(F).Name = Name
HTML.Clear : HTML.Close
End If
End If
End If
Loop Until List.AtEndOfStream
End With : CreateObject("WScript.Shell").SendKeys "^R" |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Jan 26, 2015 09:01; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
