Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Скрипт для записи в HTML-файлы информации о файлах JPG
Goto page Previous  1, 2, 3, 4, 5  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
berya



Joined: 15 Nov 2011
Posts: 46
Location: kiev

Post (Separately) Posted: Sun Dec 16, 2012 17:49    Post subject: Reply with quote

при первом использовании скрипта нумерация разная, после добавления файлов - имеется дубляж номеров - jpg - jpeg
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Dec 16, 2012 18:12    Post subject: Reply with quote

Так, а сейчас?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
berya



Joined: 15 Nov 2011
Posts: 46
Location: kiev

Post (Separately) Posted: Sun Dec 16, 2012 18:17    Post subject: Reply with quote

так годится, спасибо
Back to top
View user's profile Send private message
Yurbanizator



Joined: 13 Dec 2006
Posts: 26

Post (Separately) Posted: Sun Jan 13, 2013 22:45    Post subject: Reply with quote

Адаптировал скрипт под свои нужны и заметил одну непонятную для меня вещь, то ли баг, то ли я гоню.

https://dl.dropbox.com/u/11634001/maket.rar - тут находятся 4 файла.

maket.vbs - адаптированный под мои нужны скрипт
1.jpg - изображение которое обрабатывается
1.html - файл создаваемый скриптом
1+.html - копия файла 1.html

Весь вопрос в файлах 1.html и 1+.html
Визуально в редакторе они абсолютно идентичны. Но:
если запустить их в браузере то в 1.html вертикального скролинга не будет, а в 1+.html он будет и это будет правильно.

Кроме того размеры файлов различаются на 2 байта.

Как я получил 1+.html - просто переписал кусочек кода в котором присутствует высота изображения, которую создает скрипт http://joxi.ru/RC0PiHN

У меня возникло подозрение, что скрипт после цифр втыкает непечатаемый символ, который и не нравится браузеру. При переписывании руками этого куска, этот непечатаемый символ затирается и браузер правильно отображает изображение, появляется вертикальный скролинг.

Сравнение файлов в ТС в кодировке UTF-8 показало наличие запятой или знака похожего на него http://joxi.ru/MZtTTkzk


Помогите разобраться откуда берется этот "невидимый" символ?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Jan 13, 2013 23:57    Post subject: Reply with quote

Берётся из функции GetDetailsOf. Под Size = вставь Size = Left(Size, Len(Size) - 1)
Кстати, я там неправильный цикл сделал. Нужен Until вместо While.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Yurbanizator



Joined: 13 Dec 2006
Posts: 26

Post (Separately) Posted: Mon Jan 14, 2013 21:42    Post subject: Reply with quote

А можно подкорректированный скрипт?
Буду очень признателен!
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Jan 14, 2013 22:13    Post subject: Reply with quote

Yurbanizator
Не пойму, в чём сложность подстановки одной строки?
А цикл не я из скрипта убрал. Чего там корректировать?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Yurbanizator



Joined: 13 Dec 2006
Posts: 26

Post (Separately) Posted: Mon Jan 14, 2013 22:28    Post subject: Reply with quote

Добавил заработало.

Flasher wrote:

Кстати, я там неправильный цикл сделал. Нужен Until вместо While.

Это где?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Jan 15, 2013 02:31    Post subject: Reply with quote

Yurbanizator wrote:
Это где?
В исходнике.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Yurbanizator



Joined: 13 Dec 2006
Posts: 26

Post (Separately) Posted: Fri Jan 18, 2013 16:05    Post subject: Reply with quote

А как изменить скрипт, что бы продолжал нумерацию в случае если уже есть файлы 1.html и т.д. http://joxi.ru/nAm8SGhd
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jan 19, 2013 13:21    Post subject: Reply with quote

Логична проверка по jpg, она в исходнике и есть. На скриншоте таких файлов столько же, сколько html. Поэтому нужно вернуть цикл обратно.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Olejko



Joined: 23 May 2014
Posts: 13

Post (Separately) Posted: Tue Oct 14, 2014 17:31    Post subject: Reply with quote

Добрый день!
Как с помощью ТС можно получить в буфер обмена список выделенных файлов, обрамленных в HTML-код для последующей вставки в страницу с использованием уникального имени каталога?
Т.е., по шагам задача такая:
1. Выделяем нужные файлы.
2. Нажимаем на магическую кнопку, которая:
2.1. запрашивает имя уникального каталога.
2.2. обрамляет определенным HTML-кодом выделенные файлы и подставляет имя уникального каталога в качестве переменной в этом коде.
Например, имеем файлы img_01.jpg, img_02.jpg, ..., img_NN.jpg
Выделяем эти файлы, запускаем функцию, которая спрашивает нас об уникальном каталоге, пишем имя этого каталога (в моем случае, это 14102014-01) и на выходе в буфере обмена имеем следующий код:

Code:
<a href='/images/news/b/14102014-01/img_01.jpg' rel='lightbox[zero]' ><img src='/images/news/m/14102014-01/img_01.jpg' width='140' height='93' style='border:1px solid black; margin: 2px;'  ></a>
<a href='/images/news/b/14102014-01/img_02.jpg' rel='lightbox[zero]' ><img src='/images/news/m/14102014-01/img_02.jpg' width='140' height='93' style='border:1px solid black; margin: 2px;'  ></a>
<a href='/images/news/b/14102014-01/img_03.jpg' rel='lightbox[zero]' ><img src='/images/news/m/14102014-01/img_03.jpg' width='140' height='93' style='border:1px solid black; margin: 2px;'  ></a>
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Oct 16, 2014 00:04    Post subject: Reply with quote

Olejko
В общем-то, ничего сложного. Хочу прояснить пару моментов.
1) Система какая?
2) Нужно возвращать имена без путей к ним? Вот эти куски - "/images/news/b/", "/images/news/m" - являются константами?
Например, можно устанавливать нужные куски в параметрах:
<1 кусок> <файл из списка> <2 кусок> <файл из списка> <3 кусок>
Или сразу в код прописать?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Olejko



Joined: 23 May 2014
Posts: 13

Post (Separately) Posted: Fri Oct 17, 2014 11:08    Post subject: Reply with quote

Flasher wrote:
Olejko
В общем-то, ничего сложного. Хочу прояснить пару моментов.
1) Система какая?
2) Нужно возвращать имена без путей к ним? Вот эти куски - "/images/news/b/", "/images/news/m" - являются константами?
Например, можно устанавливать нужные куски в параметрах:
<1 кусок> <файл из списка> <2 кусок> <файл из списка> <3 кусок>
Или сразу в код прописать?


2 Flasher:
1. Система - Windows 7/8.
2. Возвращать имена без путей, "/images/news/b/" и "/images/news/m/" - это константы. Переменная - это та дата-счетчик, которую надо вводить руками (она уникальна, поэтому только ручной ввод), вставляется она в конец двух констант перед именем файла.
Вот так:
<a href='/images/news/b/14102014-01/img_01.jpg' rel='lightbox[zero]' ><img src='/images/news/m/14102014-01/img_01.jpg' width='140' height='93' style='border:1px solid black; margin: 2px;' ></a>
Жирным выделил переменную, курсивом и подчеркиванием - имена файлов.
Все остальное - это неизменный текст.
В код не оформлял - там не действуют теги жирный и курсив/подчеркивание.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Oct 18, 2014 13:17    Post subject: Reply with quote

Olejko wrote:
1. Система - Windows 7/8.
2. Возвращать имена без путей, "/images/news/b/" и "/images/news/m/" - это константы.
Этого достаточно, остальное я не спрашивал.
Code:
'============================================================================
' Занести в буфер обмена заданные HTML-строки, включая имена выбранных файлов
' Имя родительского каталога файлов в путях задаётся в окне

' Параметр: %WF
'============================================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
Dir = InputBox(String(5, vbnewline) & "Введите имя родительской папки:")
If Trim(Dir) = "" Then WScript.Quit

Set FSO = CreateObject("Scripting.FileSystemObject")
Set List = FSO.OpenTextFile(WScript.Arguments(0),,,-1)
Do Until List.AtEndOfStream
  File = List.ReadLine
  If File <> "" Then
    Buff = Buff & vbNewLine & "<a href='/images/news/b/" & Dir & "/" & File & _
     "' rel='lightbox[zero]' ><img src='/images/news/m/" & Dir & "/" & File & _
    "' width='140' height='93' style='border:1px solid black; margin: 2px;'  ></a>"
  End If
Loop

With CreateObject("WScript.Shell")
  TempFile = CreateObject("Shell.Application")._
  NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
  FSO.OpenTextFile(TempFile, 2, True, -1).Write Mid(Buff, 3)
  .Run "%comspec% /c clip < """ & TempFile & """", 0, True
End With : FSO.DeleteFile TempFile, 1

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4, 5  Next
Page 4 of 5

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group