Влияние @SW_HIDE на результат выполнение батника
- Автор темы gora
- Дата начала
- Сообщения
- 7,790
- Репутация
- 2,322
gora [?]
Можно так попробовать:
Я про это забыл уже, а всю тему не перечитывал.
Можно так попробовать:
Код:
#include <Constants.au3>
$s7zip = @ScriptDir & '\7z.exe'
$sTest = @ScriptDir & '\Test.7z'
$sPass = 'gora'
$sLog = ''
$sTitle = 'Реальные данные из архива'
$pid = Run('"' & $s7zip & '" l "' & $sTest & '" -p' & $sPass, '', @SW_HIDE, $STDOUT_CHILD)
If Not $pid Then
MsgBox(16, 'Error', 'Error')
Exit
EndIf
While 1
$sLog &= StdoutRead($pid)
If @error Then ExitLoop
If StringLen($sLog) >= 1000 Then ExitLoop
Sleep(10)
WEnd
If ProcessExists($pid) Then
ProcessClose($pid)
EndIf
If Not StringInStr($sLog, 'Error') Then
$sMethod = StringRegExpReplace($sLog, '(?s).*?(Method.*?)\r\n?.*', '\1')
If @extended <> 1 Then
$sMethod = 'Method = LZMA2 LZMA'
$sTitle = 'Не смог прочитать архив'
EndIf
Else
$sMethod = 'Method = LZMA2 LZMA'
$sTitle = 'Не смог прочитать архив'
EndIf
MsgBox(64, $sTitle, $sMethod)madmasles
Не подходит. :(
В нормальном выводе архиватора до искомой строки дважды выводится полный путь\имя архива. Поменяем в Вашем примере одну строку:
... и поиск в выводе по ключевым словам выдаст неверный результат.
Не подходит. :(
В нормальном выводе архиватора до искомой строки дважды выводится полный путь\имя архива. Поменяем в Вашем примере одну строку:
Код:
$sTest = @ScriptDir & '\Test Method Error 1.7z'- Сообщения
- 7,790
- Репутация
- 2,322
gora [?]
Так, вроде, без ошибок
Это я не подумал. :-[
Так, вроде, без ошибок
Код:
#include <Constants.au3>
$s7zip = @ScriptDir & '\7z.exe'
$sTest = @ScriptDir & '\Test Method = Error 1.7z'
$sPass = 'gora'
$sLog = ''
$sTitle = 'Реальные данные из архива'
;$sExt = StringRegExpReplace($sTest, '^.*\.', '')
$pid = Run('"' & $s7zip & '" l "' & $sTest & '" -p' & $sPass, '', @SW_HIDE, $STDOUT_CHILD)
If Not $pid Then
MsgBox(16, 'Error', 'Error')
Exit
EndIf
While 1
$sLog &= StdoutRead($pid)
If @error Then ExitLoop
If StringLen($sLog) >= 1000 Then ExitLoop
Sleep(10)
WEnd
If ProcessExists($pid) Then
ProcessClose($pid)
EndIf
;$sMethod = StringRegExpReplace($sLog, '(?s).*?' & $sExt & '\r\n(Method.*?)\r\n?.*', '\1')
$sMethod = StringRegExpReplace($sLog, '(?s).*?\r\n(Method.*?)\r\n?.*', '\1')
If @extended <> 1 Then
$sMethod = 'Method = LZMA2 LZMA'
$sTitle = 'Не смог прочитать архив'
EndIf
MsgBox(64, $sTitle, $sMethod)
MsgBox(64, '', $sLog)