Hier ein Tool von Valik, wie man für 7-Zip die Prozente auslesen kann -> http://www.autoitscript.com/forum/topic/71…__1#entry527810
Vielleicht kann man das auch für unrar.exe umsetzen oder du verwendest 7-Zip für das Entpacken.
Gruß,
UEZ
Hallo Diggidie,
schau dir
[autoit]StdoutRead
[/autoit]mfg autoBert
Also ich schalt mich mal ein weils mich grad interessiert 
@ AutoBert
Das funkt echt super so die Prozente zu bekommen.
Aber die kommen relative ungeordnet und machmal doppelt raus?
#include <Constants.au3>
Global $ReadinfC
$pid=Run("unrar.exe x -o+ t.rar","", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While $pid > 0
$Readinfo=StdoutRead ($pid,False,False)
If @error Then ExitLoop
If $ReadinfC <> $Readinfo Then
ConsoleWrite($Readinfo&@CRLF)
EndIf
$ReadinfoC = $Readinfo
WEnd
EDIT: Fällt besonders auf wenn das archive viele kleine einzeldatein hat.
autoBert
Habe StdoutRead noch nie irgendwie benötigt.
habe mal ein wenig probiert, doch für mich kommen da
nur böhmische dörfer raus 
(anfänger halt 
, sorry)
das einzige was mir bei der ausgabe entgegenkam, ist, das
am ende der ausgabe immer eine prozentzahl oder ein "ok" rauskam.
den konnte ich dann verarbeiten, wie man an meinem script sehen
kann. das script ist mit sicherheit besser und einfacher zu schreiben,
wäre für kritik und verbesserungsvorschläge sehr dankbar 
@Matthias_199
mein script funktioniert einwandfrei, wenn in dem archiv nur eine
datei gepackt ist (was für mein programm immer so vorgesehen ist).
funktioniert aber nicht mit mehreren dateien 
.
aber hier können doch mit sicherheit die profis hilfe leisen 
Würde mich auch sehr interessieren.
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Global $Lese_UnRAR_Ausgabe
$UnRAR_Pfad = @ScriptDir & "\UnRAR.exe"
$Archiv_Name = @ScriptDir & "\Test.rar"
$Gui = GUICreate("UnRAR Progressbar", 500, 140)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Progressbar = GUICtrlCreateProgress (20, 20, 460, 50)
$StartButton = GUICtrlCreateButton("Starte entpacken...", 175, 90, 150, 30)
GUICtrlSetOnEvent (-1, "_StartButton")
GUISetState()
While 1
Sleep (10)
WEnd
Func _StartButton ()
$Lese_UnRAR_Ausgabe = Run ($UnRAR_Pfad & ' x -o+ "' & $Archiv_Name & '" ' & @ScriptDir & "\UnRAR-Test\", "", @SW_HIDE, 2)
AdlibRegister ("_Progressbar")
ProcessWaitClose ("UnRAR.exe")
GUICtrlSetData ($Progressbar, 100) ; der Optik halber, weil UnRAR scheinbar keine 100% ausgibt
AdlibUnRegister ("_Progressbar")
EndFunc
Func _Progressbar ()
$Lese_StdoutRead_Ausgabe = StdoutRead ($Lese_UnRAR_Ausgabe)
$Lese_Letzte_3_Zeichen = StringRight ($Lese_StdoutRead_Ausgabe, 3) ; kürzt den String auf die letzten 3 Zeichen (ist eine % Zahl oder OK)
$Lese_Erste_2_Zeichen = StringLeft ($Lese_Letzte_3_Zeichen, 2) ; kürzt das % Zeichen weg
$Entferne_Leerzeichen = StringStripWS ($Lese_Erste_2_Zeichen, 
; entfernt Leerzeichen bei einstelligen Zahlen
If StringIsDigit ($Entferne_Leerzeichen) Then GUICtrlSetData ($Progressbar, $Entferne_Leerzeichen) ; wenn nur eine Zahl übrig bleibt wird die Prozessbar aktualisiert
EndFunc
Func _Exit()
Exit
EndFunc
@Matthias_199
habs mal mit deinem script probiert und ein wenig experimentiert.
learning by doing bringt halt auch mal positive ergebnisse.
und siehe da, es funktioniert auch mit mehreren datein im archiv.
hier mal die Daten für meinen Test:
UnRAR.exe in der neuesten Version 4.0
Test-Archiv mit 200 Dateien (größe zwischen 15kb und 40kb)
Script, UnRAR.exe und eine Test.rar in ein Verzeichnis packen.
Entpackt wird nach @ScriptDir & "\UnRAR-Test\"
Vielleicht gehts ja noch einfacher (evtl bezüglich der strings?).
dann bitte posten.
#include <Constants.au3>
#include <GUIConstantsEx.au3>
Opt ("GUIOnEventMode", 1)
$UnRAR_Pfad = @ScriptDir & "\UnRAR.exe"
$Archiv_Name = @ScriptDir & "\Test.rar"
$Gui = GUICreate ("UnRAR Progressbar", 500, 140)
GUISetOnEvent ($GUI_EVENT_CLOSE, "_Exit")
$Progressbar = GUICtrlCreateProgress (20, 20, 460, 50)
$StartButton = GUICtrlCreateButton("Starte entpacken...", 175, 90, 150, 30)
GUICtrlSetOnEvent (-1, "_StartButton")
GUISetState ()
While 1
Sleep (10)
WEnd
Func _StartButton ()
$UnRAR = Run ($UnRAR_Pfad & ' x -o+ "' & $Archiv_Name & '" ' & @ScriptDir & "\UnRAR-Test\", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While $UnRAR > 0
$Lese_StdoutRead_Ausgabe = StdoutRead ($UnRAR, False, False)
If @error Then ExitLoop
$Lese_Letzte_3_Zeichen = StringRight ($Lese_StdoutRead_Ausgabe, 3) ; kürzt den String auf die letzten 3 Zeichen (ist eine % Zahl oder OK)
$Lese_Erste_2_Zeichen = StringLeft ($Lese_Letzte_3_Zeichen, 2) ; kürzt das % Zeichen weg
$Entferne_Leerzeichen = StringStripWS ($Lese_Erste_2_Zeichen, ; entfernt Leerzeichen bei einstelligen Zahlen
If StringIsDigit ($Entferne_Leerzeichen) Then GUICtrlSetData ($Progressbar, $Entferne_Leerzeichen) ; wenn nur eine Zahl übrig bleibt wird die Prozessbar aktualisiert
WEnd
GUICtrlSetData ($Progressbar, 100) ; der Optik halber, weil UnRAR scheinbar keine 100% ausgibt
EndFunc
Func _Exit()
Exit
EndFunc
Ja das kannste ja dierekt in die GUI posten.
musste das "BS" eben wegmachen, ich hab jetz nicht mehr weiter daran gebaut.
Aber wenn du willst kann ich ja mal versuchen die func mal gescheit umzusetzen
Ja genau das ises das passt mir ja auch nicht 
Aber du rbaucht in den nächsten 24H da nixht werwarten bin auf abschluss feier 
