Rodny
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: '==============================================================================
' Создание из выделенных файлов одного многостраничного TIFF
' с помощью программы IrfanView
' http://forum.ru-board.com/topic.cgi?forum=5&topic=33904&start=4660#4
'
' Параметры для кнопки (путь к IrfanView можно жёстко прописать в скрипте):
' %L "<путь к итоговому tiff-файлу>" "[путь к IrfanView]"
'
' Rodny (с)
'==============================================================================
Option Explicit
Dim FSO, WSH, iViewPath, NewFileName, ListFile, CurrentLine, SourceFiles
If WScript.Arguments.Count < 2 Then
MsgBox "Параметры кнопки не заданы!", vbOKOnly + vbExclamation, "Внимание!"
WScript.Quit
End If
' Здесь можно явно задать путь к IrfanView
If WScript.Arguments.Count > 2 Then
iViewPath = WScript.Arguments(2)
Else
iViewPath = "D:\Programs\IrfanView\i_view32.exe"
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
NewFileName = WScript.Arguments(1)
CurrentLine = ListFile.ReadLine
If Right(CurrentLine, 1) <> "\" Then
SourceFiles = CurrentLine
End If
Do While Not ListFile.AtEndOfStream
CurrentLine = ListFile.ReadLine
If Right(CurrentLine, 1) <> "\" Then
SourceFiles = SourceFiles & "," & CurrentLine
End If
Loop
WSH.Run iViewPath & " /multitif=(" & NewFileName & "," & SourceFiles & ")"
Set FSO = Nothing
Set WSH = Nothing
Set ListFile = Nothing
Wscript.Quit |
? Код создан и опубликован с помощью SciTE-Ru
Пример кнопки
Код: TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Scripts\MultiTiff.vbs
%L "D:\temp\1\folder test\test.tif" "%%COMMANDER_PATH%%\..\IrfanView\i_view32.exe"
C:\Windows\System32\WScript.exe,2
MultiTiff
-1
|
|
Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 01:18 17-04-2012 | Исправлено: Rodny, 01:21 17-04-2012 |
|
