| View previous topic :: View next topic |
| Author |
Message |
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
 (Separately) Posted: Wed Nov 14, 2012 22:26 Post subject: |
 |
|
| пробую: не нравиться скрипту- строка 16 символ61. Если конечно все правильно сделано. |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Nov 15, 2012 02:22 Post subject: |
|
|
shveicar
Под "перед" имелось в виду "над". |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Thu Nov 15, 2012 14:59 Post subject: |
|
|
| Quote: | | Под "перед" имелось в виду "над". |
Конечно проверял и так - ошибка стока 18 символ 7
Файл не найден. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Nov 15, 2012 16:48 Post subject: |
|
|
shveicar
Не ту строку написал, исправил. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Thu Nov 15, 2012 16:56 Post subject: |
|
|
| Спасибо, - теперь порядок. |
|
| Back to top |
|
|
slawok25
Joined: 25 Jan 2015
Posts: 2
|
| (Separately) Posted: Sun Jan 25, 2015 15:51 Post subject: |
|
|
Может что то банальное спрошу,но
если HTml файл такого вида
| Quote: | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "....://....../TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="....3.org/1999/xhtml" lang="ru-RU">
<head profile="....org/xfn/11">
<title>курсы по фотографии | Пиктурист</title>
<meta http-equiv="content-type" content="text/html; charset=UTF-8" />
<meta name="description" content="Лучший сборник самых интересных фото" />
<meta name="generator" content="....." /><!-- Please leave for stats -->
и т.д....
</body>
</html> |
И нужно задать имя файла в зависимости от <title>. Что нужно изменить в скрипте из данной темы??? Заранее спасибо. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) 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 |
|
| Back to top |
|
|
slawok25
Joined: 25 Jan 2015
Posts: 2
|
| (Separately) Posted: Sun Jan 25, 2015 20:40 Post subject: |
|
|
Tol!k, Flasher спасибо, буду пробовать...
ПС:Flasher Всё работает спасибо. Правда, видимо при превышении определенного количества знаков в заголовке не переименовывает, но это единичный случай. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Jan 25, 2015 21:37 Post subject: |
|
|
slawok25
Сделал обрезку невлезаемой части имени в заданных API рамках.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
