und nochmals RunWait @ComSpec

mauric

Aber dies sollte doch funktionieren?, ich möchte dies verstehen!? Bitte

Danke Euch vielmals !

Code

Local $DirFolder, $7, $fil, $all, $de


	$DirFolder = "C:\Temp\Bulkowski\Patternz55\"
	$fil = "StocksCVSBackup*.zip"
	$all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup*.zip"
	$de = "-oc:\temp\bulkowski\patternz55\"
	$7 = "c:\windows\system32\7za.exe"
	$x = "x"


	RunWait(@ComSpec & ' /c ' & '$7, $x, $all, $de', '', @SW_SHOW)

Alles anzeigen

**chesstiger**

In AutoIt werden Variablen in Strings nicht automatisch ausgewertet. Du musst sie entweder mit & verketten oder ein Opt("ExpandVarStrings", True) an den Skriptanfang stellen und dann mit $variablenname$ im String die Variable bezeichnen.

**alpines**

Du gibst als Parameter die Variablen nicht an sondern die Strings "$7, $x, $all, $de" du musst die Variablen aber übergeben.

Richtig wäre RunWait(@ComSpec & ' /c ' & $7 & ", " & $x & ", " & $all & ", " & $de, '', @SW_SHOW)

**AspirinJunkie**

Lass dir mal ausgeben was du als Aufruf zusammenbastelst:

AutoIt

Local $DirFolder, $7, $fil, $all, $de


	$DirFolder = "C:\Temp\Bulkowski\Patternz55\"
	$fil = "StocksCVSBackup*.zip"
	$all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup*.zip"
	$de = "-oc:\temp\bulkowski\patternz55\"
	$7 = "c:\windows\system32\7za.exe"
	$x = "x"


MsgBox(0, "", @ComSpec & ' /c ' & '$7, $x, $all, $de')

Alles anzeigen

Das Ergebnis muss genauso aussehen wie als wenn du es manuell in die Kommandozeile tippen würdest.
Das ist hier bei dir nicht der Fall.

Ich hab mir für sowas mal ne kleine Funktion gebastelt mit welcher ich die Strings für Run etwas einfacher zusammenbasteln kann.
Vermutlich willst du im Ergebnis eher sowas erreichen:

AutoIt

Global $all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup*.zip"
Global $de = "-oc:\temp\bulkowski\patternz55\"
Global $7 = "c:\windows\system32\7za.exe"
Global $x = "x"


MsgBox(0,"", _buildRunString($7, $x, $all, $de))
Run(_buildRunString($7, $x, $all, $de))










; Hilfsfunktion welche kompakt Parameter für Run-Aufrufe zusammenbastelt und falls notwendig Anführungszeichen setzt
Func _buildRunString($A = "", $B = "", $C = "", $D = "", $E = "", $F = "", $G = "", $H = "", $I = "", $J = "", $K = "", $L = "", $M = "", $N = "")
	; by AspirinJunkie
	Local $s_Ret = ""
	For $I = 65 To 78
		If Eval(Chr($I)) = "" Then ExitLoop
		$s_Ret &= addQuotesIfNecessary(Eval(Chr($I))) & " "
	Next
	Return StringTrimRight($s_Ret, 1)
EndFunc   ;==>_buildRunString


Func addQuotesIfNecessary(ByRef Const $s_String, Const $s_Quote = '"')
	; by AspirinJunkie
	If StringLeft($s_String, StringLen($s_Quote)) == $s_Quote And StringRight($s_String, StringLen($s_Quote)) == $s_Quote Then Return $s_String
	Return StringInStr($s_String, ' ', 1) ? $s_Quote & $s_String & $s_Quote : $s_String
EndFunc   ;==>addQuotesIfNecessary

Alles anzeigen

Vor allem benötigst du kein @compspec da du keine Shell-eigenen Befehle verwendest sondern lediglich ein externes Programm.

**Bitnugger**

Zitat von AspirinJunkie

Vor allem benötigst du kein @compspec da du keine Shell-eigenen Befehle verwendest sondern lediglich ein externes Programm.

Das hatte ich ihm gestern schon gesagt...
Und mein Script startet ein weiteres Dos fenster ?!

Deine Hilfsfunktion... ich mache das lieber mit StringFormat!
RunWait(StringFormat('"%s" %s "%s" "%s"', $7, $x, $all, $de), '', @SW_SHOW)

**AspirinJunkie**

Zitat von Bitnugger

Das hatte ich ihm gestern schon gesagt...

Die Message schien nicht wirklich angekommen zu sein.
Daher der didaktische Versuch per Repetition die Aussage zu verfestigen.

Zitat von Bitnugger

Deine Hilfsfunktion... ich mache das lieber mit StringFormat!

Und davon hält dich auch keiner ab.

mauric

Zuerst möchte ich mich bei Euch bedanken für die vielen Antworten die ich erhalten durfte!

Ich habe Bitnugger schon korrekt verstanden doch dies funktioniert bei mir nicht!

Ich habe den Code nochmals angepasst aber das Dos-Fenster geht so schnell "AufZu" ich kann nicht sagen
was da genau steht, ich kann nur sagen dass es so noch nicht funktioniert.

Ich hatte dies schon probiert mit dem RunWait(StringFormat..... Aber.... deshalb hab ich ein neuen "thread" erstellt.
Entschuldigt dass ich dies nochmals aufkoche....

Spoiler anzeigen

AutoIt

#include <MsgBoxConstants.au3>


entpacken()


Func entpacken()


 Local $DirFolder, $fil, $all, $des, $7za, $ext


Opt("ExpandVarStrings", True)


;; From source CSV Files available, copy run
	$DirFolder = "C:\Temp\Bulkowski\Patternz55\"
	$fil = "StocksCVSBackup-21_04_2017.zip"
	$all = "C:\Temp\Bulkowski\Patternz55\StocksCVSBackup-21_04_2017.zip"
	$des = "-oc:\Temp\Bulkowski\Patternz55\"
	$7za = "c:\windows\system32\7za.exe"
	$ext = "x"


	RunWait(StringFormat('"%s" %s "%s" "%s"', $7za, $ext, $all, $des), '', @SW_SHOW)
	;; RunWait(@ComSpec & ' /c ' & $7za & ", " & $ext & ", " & $all & ", " & $des , '', @SW_SHOW)


EndFunc

Alles anzeigen

**alpines**

Wenn du lesen möchtest was in der Konsole gepostet wurde, dann solltest du am Ende folgendes hinzufügen >> Dump.txt.
Leerzeichen vor dem >> beachten!

Das wird dir den Output der Konsole in die Datei Dump.txt schreiben. Diese sollte wiederum im Working Directory des Scriptes liegen, sofern du beim Run nichts weiteres angegeben hast.

Candyland

Kleiner Tipp!
teste das mal aus, jetzt wirst du's ganz sicher raffen

AutoIt

Local $CheckforAdmin = IsAdmin() ;<= 1 for Yes, 0 for No
if $CheckforAdmin = 1 Then
	$Check = 'Ya'
Else
	$Check = 'Nein'
EndIf


MsgBox(0,"","Ich Zeige dir jetzt einen Code der zu schnell ausgeführt wird um das Ergebnis zu betrachten." & @CRLF & "Klicke OK!")
$BEFEHL = 'echo Mit stil in den Untergang. & echo Script hat Admin: ' & $Check
ConsoleWrite($BEFEHL & @CRLF)
RunWait(@ComSpec & ' /C ' & $BEFEHL, @ScriptDir, @SW_SHOW) ;<=) /C


MsgBox(0,"","Na was stand dort?" & @CRLF & "Ist ja auch egal, jedenfalls werden wir jetzt" & @CRLF & "das /C nach @ComSpec zu /K machen & damit die Konsole für den weiteren gebrauch geöffnet behalten werden kann")
$BEFEHL = 'echo Mit stil in den Untergang. & echo Script hat Admin: ' & $Check
ConsoleWrite($BEFEHL & @CRLF)
Run(@ComSpec & ' /K ' & $BEFEHL, '..', @SW_SHOW) ;<=) /K
Sleep(2000)
MsgBox(0,"","Und schon siehst du auch den Output wenn das mal nötig wird" & @CRLF & "Und jetzt noch was zu Alpines methode :3" & @CRLF & "Schließe das Fenster & klicke auf OK")


$BEFEHL = 'echo Dieser Text soll hier stehen ja.' & ' >Sahne.txt' ;<=) ' >1.txt'
ConsoleWrite($BEFEHL & @CRLF)
RunWait(@ComSpec & ' /C ' & $BEFEHL, @ScriptDir, @SW_SHOW) ;<=) /C


MsgBox(0,"","Easy Peazy, jetzt öffne mal im selben ordner wie von diesem Script die Sahne.txt" & @CRLF & "Das wars dann auch schon, schau dir das Script an & du wirst verstehen")

Alles anzeigen

mauric

Hallo alle Zusammen!

Ich habe nun doch einige Tests gemacht und komme zum Entschluss.

Wenn ich so ein Zip erstellen möchte, ist dass Zip File immer leer, und mit einem KB.

AutoIt

$iErr = RunWait(StringFormat('"%s" a "%s" "%s"', $sSevenZa, $sArchiv, $sSource), '', @SW_HIDE)

und der $iErr gibt so wieso nur eine nichts aussagende Zahl aus "-32475457" (für mich)

Mit diesem Weg klappt es auch nicht.

AutoIt

$c = RunWait(StringFormat('"%s" x "%s" "%s"',@ComSpec,@Systemdir, $7a, $x, $all, $de), '', @SW_SHOW)

Ich habe aber gesehen wie ich es doch korrekt packen&entpacken kann.

AutoIt

RunWait(@ComSpec & ' /c ' & $7 & " " & $x & " " & $all & " " & $de & " " & $d,'', @SW_SHOW)

Danke für die Hilfe,

Doch mit dem String Format würde es mich schon noch wundern wie dies nun wirklich funktionieren würde!?

**BugFix**

Zitat von mauric

Mit diesem Weg klappt es auch nicht.

$c = RunWait(StringFormat('"%s" x "%s" "%s"',@ComSpec,@Systemdir, $7a, $x, $all, $de), '', @SW_SHOW)

Wie auch. Du verwendest nur 3 Formatvariablen (%s) und hast im Befehl 6 Variablen!
Und was bitte soll das @ComSpec im Aufruf? Das ist doch total überflüssig, da du den Pfad zur Ausführungsdatei angibst und keinen Befehl aus der CMD.exe.

mauric

Wollte mich bei Euch allen bedanken für die Zahlreichen Antworten.