[Автоматизация] Выполнение параметров встроенной программы не работает

Tosyk · 19 Сен 2015

Приветствую,

Есть программа nvdxt.exe (конвертер текстур в формат dds). Нужная команда:

nvdxt -file tach_cockpit.tga -dxt1c -quality_highest -outsamedir -output tach_cockpit.dds

Скрипт, который по идее должен это делать (написан не мной, я его просто исправил):

Код:

#Include <File.au3>

AutoItSetOption("MustDeclareVars", 1)

Local $i
Local $sSourceFile, $sDestFile
Local $sDrive, $sFolder, $sFileName, $sExt

Local $sPattern = "\.(?i:tga|jpg|bmp|png|tif|jpeg)"


If $CmdLine[0] <> 0 Then
	If FileInstall("nvdxt.exe", @TempDir & "\", 1) = 1 Then
		ProgressOn("Compressing", "", "0%")

		For $i = 1 To $CmdLine[0]
			$sSourceFile = $CmdLine[$i]

			ProgressSet(($i / $CmdLine[0]) * 100, $sFileName & $sExt, String(Round($i / $CmdLine[0] * 100, 1)) & "%")

			If FileExists($sSourceFile) Then
				_PathSplit($sSourceFile, $sDrive, $sFolder, $sFileName, $sExt)

				If StringRegExp($sExt, "\A" & $sPattern & "\z", 0) = 1 Then
					$sDestFile = _PathMake($sDrive, $sFolder, $sFileName, ".dds")

					RunWait("""" & @TempDir & "\nvdxt.exe"" """ & """ -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """", @TempDir, @SW_HIDE)
				Else
					ConsoleWriteError("Extension of file [" & $sSourceFile & "] is [" & $sExt & "] and not in [" & $sPattern & "]" & @CRLF)
				EndIf
			Else
				ConsoleWriteError("File [" & $sSourceFile & "] not found" & @CRLF)
			EndIf
		Next

		ProgressSet(100 , "Compressing complete", "100%")

		If FileExists(@TempDir & "\nvdxt.exe") = 1 Then
			FileDelete(@TempDir & "\nvdxt.exe")
		EndIf

		Sleep(1000)
		ProgressOff()
	Else
		ConsoleWriteError("Can't extract [nvdxt.exe] into [" & @TempDir & "]" & @CRLF)
	EndIf
Else
	MsgBox(0, "Usage", @ScriptName & " <file>")
	ConsoleWrite("Usage: " & @ScriptName & " <file>" & @CRLF)
EndIf

Exit(0)

По идее должно конвертировать tga в dds, но ничего не происходит.

Буду признателен помощи.

ildar · 19 Сен 2015

Код:

RunWait("""" & @TempDir & "\nvdxt.exe"" """ & """ -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """", @TempDir, @SW_HIDE)

Для чего столько кавычек?

Код:

RunWait(@TempDir & '\nvdxt.exe -file ' & $sSourceFile & ' -dxt1c -outsamedir -output ' & $sDestFile, @TempDir, @SW_HIDE)

madmasles · 19 Сен 2015

Tosyk,
У Вас ошибка с кавычками:

Код:

$sSourceFile = @ScriptFullPath
$sDestFile = @ScriptFullPath
;~ Ваша строка:
ConsoleWrite("""" & @TempDir & "\nvdxt.exe"" """ & """ -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """" & @LF)
;~ Должно быть:
ConsoleWrite('"' & @TempDir & '\nvdxt.exe"' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"' & @LF)
ConsoleWrite("""" & @TempDir & "\nvdxt.exe""" & " -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """" & @LF)

Добавлено:
Сообщение автоматически объединено: 19 Сен 2015

ildar,
Если в путях есть пробелы, до их надо экранировать кавычками(двойными).

Tosyk · 19 Сен 2015

спасибо, но к сожалению ни один из вариантов не работает.

однако если я делаю строку такой:

Код:

RunWait('"' & @TempDir & '\nvdxt.exe"' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"' & @LF)

то во время выполнения мелькает консольное окно (не понятно почему) и рядом с конвертируемым файлом появляется nvdxt_scratch.tmp

нужного файла ИМЯ_ФАЙЛА.dds не появляется.

madmasles · 19 Сен 2015

Tosyk [?]

если я делаю строку такой:

А зачем @LF в конце?

мелькает консольное окно

Вы не указали параметр @SW_HIDE и другие параметры тоже не указали.

Tosyk · 19 Сен 2015

madmasles,

но я просто заменил свою строку в скрипте:

Код:

RunWait("""" & @TempDir & "\nvdxt.exe"" """ & """ -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """", @TempDir, @SW_HIDE)

вашими двумя:

Код:

ConsoleWrite('"' & @TempDir & '\nvdxt.exe"' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"' & @LF)
ConsoleWrite("""" & @TempDir & "\nvdxt.exe""" & " -file """ & $sSourceFile & """ -dxt1c -outsamedir -output """ & $sDestFile & """" & @LF)

вы не писали ни про @SW_HIDE ни про другие параметры.

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

Tosyk · 22 Сен 2015

Прошу прощения за даблпост. Мне кажется тут проблема очень не серьёзная. Профи, помогите пожалуйста. Я могу прикрепить nvdxt.exe если это нужно.

Сам я перепробовал и перечитал и переэкранировал уже все варианты. Не могу понять в чём проблема.

Skif_off · 22 Сен 2015

Tosyk

Код:

If FileExists($sSourceFile) Then
                _PathSplit($sSourceFile, $sDrive, $sFolder, $sFileName, $sExt)

FileInstall() вроде только для скомпилированных скриптов?

nvdxt.exe рядом со скриптом:

Код:

#Include <File.au3>

AutoItSetOption('MustDeclareVars', 1)

Local $i
Local $sSourceFile, $sDestFile
Local $sDrive, $sFolder, $sFileName, $sExt, $aPathSplit

Local $sPattern = '\.(tga|jpg|bmp|png|tif|jpeg)'

If $CmdLine[0] <> 0 Then
;    If FileInstall('nvdxt.exe', @TempDir & '\', 1) = 1 Then
    If FileExists(@ScriptDir & '\nvdxt.exe') Then
        ProgressOn('Compressing', '', '0%')

        For $i = 1 To $CmdLine[0]
            $sSourceFile = $CmdLine[$i]
            $aPathSplit = _PathSplit($sSourceFile)
            ProgressSet(($i / $CmdLine[0]) * 100, $aPathSplit[3] & $aPathSplit[4], String(Round($i / $CmdLine[0] * 100, 1)) & '%')

            If FileExists($sSourceFile) Then
                If StringRegExp($aPathSplit[4], $sPattern, 0) Then
                    $sDestFile = StringRegExpReplace($sSourceFile, '(?im)\.(tga|jpg|bmp|png|tif|jpeg)$', '.dds')
                    RunWait('"' & @ScriptDir & '\nvdxt.exe" ' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"', @TempDir, @SW_HIDE)
                Else
                    ConsoleWriteError('Extension of file [' & $sSourceFile & '] is [' & $sExt & '] and not in [' & $sPattern & ']' & @CRLF)
                EndIf
            Else
                ConsoleWriteError('File [' & $sSourceFile & '] not found' & @CRLF)
            EndIf
        Next

        ProgressSet(100 , 'Compressing complete', '100%')

;        If FileExists(@TempDir & '\nvdxt.exe') = 1 Then
;            FileDelete(@TempDir & '\nvdxt.exe')
;        EndIf

        Sleep(1000)
        ProgressOff()
    Else
        ConsoleWriteError("Can't extract [nvdxt.exe] into [" & @TempDir & "]" & @CRLF)
    EndIf
Else
    MsgBox(0, 'Usage', @ScriptName & ' <file>')
    ConsoleWrite('Usage: ' & @ScriptName & ' <file>' & @CRLF)
EndIf

Exit(0)

Tosyk · 22 Сен 2015

Skif_off сказал(а):
Tosyk

Код:

If FileExists($sSourceFile) Then _PathSplit($sSourceFile, $sDrive, $sFolder, $sFileName, $sExt)

FileInstall() вроде только для скомпилированных скриптов?

вообще да, я этот скрипт потом компилирую и перетаскиваю на exe нужны мне файлы!

Skif_off · 23 Сен 2015

Tosyk [?]

вообще да, я этот скрипт потом компилирую и перетаскиваю на exe нужны мне файлы!

Тогда раскомментируйте закомментированные строки, замените @ScriptDir на @TempDir и попробуйте ещё раз.

И вы цитируете больше, чем нужно: смайл относился не к FileInstall(), а к строке

Код:

_PathSplit($sSourceFile, $sDrive, $sFolder, $sFileName, $sExt)

где непонятно что происходит.
Вообще уберите эту функцию и не понадобится #include <File.au3> и получайте имя файла с помощью StringRegExpReplace(), тогда так:

Код:

Local $i, $sSourceFile, $sDestFile, $sDrive, $sFolder, $sFileName, $sExt, $sPattern = '\.(tga|jpg|bmp|png|tif|jpeg)'
;...

        For $i = 1 To $CmdLine[0]
            $sSourceFile = $CmdLine[$i]
            $sFileName = StringRegExpReplace($sSourceFile, '^.*\\', '')
            ProgressSet(($i / $CmdLine[0]) * 100, $sFileName, String(Round($i / $CmdLine[0] * 100, 1)) & '%')

Запускал нескомпилированный скрипт так:

Код:

AutoIt3.exe convert.au3 file1 file2 file3 file4 file5

всё работало.

Tosyk · 23 Сен 2015

Не получилось.

Пробовал так:

Код:

#Include <File.au3>

AutoItSetOption('MustDeclareVars', 1)

Local $i
Local $sSourceFile, $sDestFile
Local $sDrive, $sFolder, $sFileName, $sExt, $aPathSplit

Local $sPattern = '\.(tga|jpg|bmp|png|tif|jpeg)'

If $CmdLine[0] <> 0 Then
    If FileInstall('nvdxt.exe', @TempDir & '\', 1) = 1 Then
;     If FileExists(@ScriptDir & '\nvdxt.exe') Then
        ProgressOn('Compressing', '', '0%')

        For $i = 1 To $CmdLine[0]
            $sSourceFile = $CmdLine[$i]
            $aPathSplit = _PathSplit($sSourceFile)
            ProgressSet(($i / $CmdLine[0]) * 100, $aPathSplit[3] & $aPathSplit[4], String(Round($i / $CmdLine[0] * 100, 1)) & '%')

            If FileExists($sSourceFile) Then
                If StringRegExp($aPathSplit[4], $sPattern, 0) Then
                    $sDestFile = StringRegExpReplace($sSourceFile, '(?im)\.(tga|jpg|bmp|png|tif|jpeg)$', '.dds')
                    RunWait('"' & @ScriptDir & '\nvdxt.exe" ' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"', @TempDir, @SW_HIDE)
                Else
                    ConsoleWriteError('Extension of file [' & $sSourceFile & '] is [' & $sExt & '] and not in [' & $sPattern & ']' & @CRLF)
                EndIf
            Else
                ConsoleWriteError('File [' & $sSourceFile & '] not found' & @CRLF)
            EndIf
        Next

        ProgressSet(100 , 'Compressing complete', '100%')

        If FileExists(@TempDir & '\nvdxt.exe') = 1 Then
            FileDelete(@TempDir & '\nvdxt.exe')
        EndIf

        Sleep(1000)
        ProgressOff()
    Else
        ConsoleWriteError("Can't extract [nvdxt.exe] into [" & @TempDir & "]" & @CRLF)
    EndIf
Else
    MsgBox(0, 'Usage', @ScriptName & ' <file>')
    ConsoleWrite('Usage: ' & @ScriptName & ' <file>' & @CRLF)
EndIf

Exit(0)

и так:

Код:

AutoItSetOption('MustDeclareVars', 1)

Local $i, $sSourceFile, $sDestFile, $sDrive, $sFolder, $sFileName, $sExt, $sPattern = '\.(tga|jpg|bmp|png|tif|jpeg)'

If $CmdLine[0] <> 0 Then
    If FileInstall('nvdxt.exe', @TempDir & '\', 1) = 1 Then
;     If FileExists(@ScriptDir & '\nvdxt.exe') Then
        ProgressOn('Compressing', '', '0%')

        For $i = 1 To $CmdLine[0]
            $sSourceFile = $CmdLine[$i]
            $sFileName = StringRegExpReplace($sSourceFile, '^.*\\', '')
            ProgressSet(($i / $CmdLine[0]) * 100, $sFileName, String(Round($i / $CmdLine[0] * 100, 1)) & '%')

            If FileExists($sSourceFile) Then
                If StringRegExp($aPathSplit[4], $sPattern, 0) Then
                    $sDestFile = StringRegExpReplace($sSourceFile, '(?im)\.(tga|jpg|bmp|png|tif|jpeg)$', '.dds')
                    RunWait('"' & @ScriptDir & '\nvdxt.exe" ' & ' -file "' & $sSourceFile & '" -dxt1c -outsamedir -output "' & $sDestFile & '"', @TempDir, @SW_HIDE)
                Else
                    ConsoleWriteError('Extension of file [' & $sSourceFile & '] is [' & $sExt & '] and not in [' & $sPattern & ']' & @CRLF)
                EndIf
            Else
                ConsoleWriteError('File [' & $sSourceFile & '] not found' & @CRLF)
            EndIf
        Next

        ProgressSet(100 , 'Compressing complete', '100%')

        If FileExists(@TempDir & '\nvdxt.exe') = 1 Then
            FileDelete(@TempDir & '\nvdxt.exe')
        EndIf

        Sleep(1000)
        ProgressOff()
    Else
        ConsoleWriteError("Can't extract [nvdxt.exe] into [" & @TempDir & "]" & @CRLF)
    EndIf
Else
    MsgBox(0, 'Usage', @ScriptName & ' <file>')
    ConsoleWrite('Usage: ' & @ScriptName & ' <file>' & @CRLF)
EndIf

Exit(0)

Error: Variable used without being declared.

я наверное что-то неправильно делаю, да?

madmasles · 23 Сен 2015

Tosyk,
Прикрепите nvdxt.exe и пару картинок.

Tosyk · 23 Сен 2015

По ссылке.

http://www.mediafire.com/download/p2kb8xb3mmknsax/converting_textures.zip

Там так же есть imagemagick convert.exe и скрипт, которые я использую для конвертирования в png. Этот скрипт почти идентичен тому, что я вставил в первый пост. только этот работает, а вставленный нет.

Буду признателен.

p.s.: imagemagick convert.exe тоже умеет конвертировать картинки в dds, но делает это криво и с малым количеством параметров.

Skif_off · 23 Сен 2015

Tosyk
Так

Код:

RunWait('"' & @ScriptDir & '\nvdxt.exe" '

не будет работать, ведь nvdxt.exe вы извлекаете не рядом со скриптом, исправьте на:

Код:

RunWait('"' & @TempDir & '\nvdxt.exe" '

Error: Variable used without being declared

Лишняя переменная здесь:

Код:

If StringRegExp($aPathSplit[4], $sPattern, 0) Then

прошу прощения, проглядел, т.к. _PathSplit() убрана, исправьте на

Код:

If StringRegExp($sSourceFile, $sPattern, 0) Then

madmasles · 23 Сен 2015

Tosyk,
Так у меня все работает с Вашими файлами (в скомпилированном виде).

Код:

#cs ----------------------------------------------------------------------------
	AutoIt Version:		3.3.8.1
	Author:				madmasles
#ce ----------------------------------------------------------------------------
Opt('TrayMenuMode', 3)
Opt('MustDeclareVars', 1)

If WinExists('[TITLE:{7619078-DKJNBVC-WQNMOLK}; CLASS:AutoIt v3]') Then Exit
AutoItWinSetTitle('{7619078-DKJNBVC-WQNMOLK}')

If Not $CmdLine[0] Then Exit MsgBox(16, 'Error', 'Usage ' & @ScriptName & ' <file>')

Global $sNvdxt = @TempDir & '\nvdxt.exe', $iCount = 0, $iError = 0, $iPercent, $iAll = $CmdLine[0]

If Not FileInstall('nvdxt.exe', $sNvdxt, 1) Then Exit MsgBox(16, 'Error', 'Can''t extract [nvdxt.exe] into [' & @TempDir & ']')
ProgressOn('Compressing', 'Files: 0 (' & $iAll & ')', '0%')
For $i = 1 To $CmdLine[0]
	If (Not FileExists($CmdLine[$i])) Or (Not StringRegExp($CmdLine[$i], '(?i)\.(tga|jpg|bmp|png|tif|jpeg|jpg)$')) Then
		$iAll -= 1
		ContinueLoop
	EndIf
;~ 	If RunWait('"' & $sNvdxt & '" -file "' & $CmdLine[$i] & '" -dxt1c -outsamedir -output "' & StringRegExpReplace($CmdLine[$i], '(?i)\..+$', '.dds') & '"', '', @SW_HIDE) Then
	If RunWait('"' & $sNvdxt & '" -file "' & $CmdLine[$i] & '" -dxt1c', '', @SW_HIDE) Then; не заметил никакой разницы с такими параметрами
		$iError += 1
	Else
		$iCount += 1
	EndIf
	$iPercent = Round($iCount / $iAll * 100)
	ProgressSet($iPercent, $iPercent & '%', 'Files: ' & $iCount & ' (' & $iAll & ')')
Next
Sleep(2000)
ProgressOff()
If $iError Then MsgBox(16, 'Error', 'Errors: ' & $iError & @LF & 'Files converted: ' & $iCount & ' (' & $iAll & ')')

PS
Только не называйте файл nvdxt.au3.

Tosyk · 23 Сен 2015

Всё сработало. большое спасибо!

Автор темы	Похожие темы	Форум	Ответы	Дата
B	[Автоматизация] Выполнение операции после выполнения одновременно 2-х условий	Общие вопросы по AutoIt	5	1 Дек 2014
	[Автоматизация] Последовательное выполнение команд мыши в цикле	Стол заказов	1	7 Апр 2014
D	[Автоматизация] Функция Bound, выполнение действия при нахождении текста?	Автоматизация IE и Web-интерфейса	1	23 Дек 2013
R	[Автоматизация] Выполнение операций до совпадения по цвету в заданных координатах	Общие вопросы по AutoIt	2	20 Ноя 2013
И	[Автоматизация] Автоматическое выполнение командной строки из tmp-файла	Стол заказов	2	2 Июн 2013

Поиск

Поиск

[Автоматизация] Выполнение параметров встроенной программы не работает

Tosyk

Новичок

ildar

Осваивающий

madmasles

Модератор

Tosyk

Новичок

madmasles

Модератор

Tosyk

Новичок

Tosyk

Новичок

Skif_off

Знающий

Tosyk

Новичок

Skif_off

Знающий

Tosyk

Новичок

madmasles

Модератор

Tosyk

Новичок

Skif_off

Знающий

madmasles

Модератор

Tosyk

Новичок