Entzip-Program

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Phil.

    Entzip-Program

    hallo,

    wer kennt das nicht? man lädt was runter und es ist gezippt. nun stellt sich die frage, ob im zip-paket ein eigener ordner drin ist oder nicht. bei den meisten zip-programmen hat man die möglichkeit per rechtsklick entweder "hier entpacken" oder "entpacken in name_der_datei\" auszuwählen.
    nun meistens wähle ich die zweite version. jedoch ist es dann meistens so dass in dem gerade erstellten ordner wieder nur ein ordner drin ist. falls ich mal die andere option nehme, dann sind natürlich 100 einzelne dateien verstreut in meinem download-ordner. ich hoffe der sachverhalt ist klar ^^

    deswegen würde ich gerne ein eigenes unzip-programm schreiben, welches vorher prüft ob im zip-paket ein eigenständiger ordner bzw nur eine datei drin liegt, wenn ja dann wird alles im aktuellen ordner-entpackt. wenn nicht soll die datei in einem neuen ordner entpackt werden.

    ist dies überhaupt möglich? kann man mit visual basic 2005 ein programm schreiben, welches alle gängigen zip- und rar-dateien entpacken kann? wenn ja: wie ließe sich dies anstellen? wo sollte ich anfangen? wäre über jede idee oder über jeden link, der mir helfen könnte, froh.

    oder kennt ihr ein unzip-programm welches meine funktion schon integriert hat? wenn ja, könnte ich mir nämlich die arbeit sparen :D


    ich hoffe man kann verstehen was ich wissen möchte :))

    ich hab auch mal sonen ähnliches Problem gehabt, ich hab nen ganz nützliches unzip-Programm gefunden, das auch nicht irgendwie installiert werden muss. Was das alles kann, weiß ich nicht genau, aber das kannst du ja rausfinden....
    binaryessence.de/prd/deDL0010.htm

    hey, danke für die antworten, aber ich hab jetzt doch ein eigenes programm geschrieben. es baut auf die 7zip-command version auf. und prüft eben vorher wie viel dateien enthalten sind.
    wenn das programm installiert ist muss man nur alle zip und rar dateien mit dem programm verknüpfen (also dass sie standardmäßig mit meinem programm geöffnet werden) und schon wird alles automatisch gemacht.
    falls interesse besteht, kann ich ja den quellcode posten.

    okay, dann poste ich mal den quellcode. der vorteil ist eben dass alle dateien behandelt werden können, die auch 7-zip behandeln kann; und das sind schon ein paar :))

    habs noch schnell kommentiert, damit man es besser nachvollziehen kann.

    VB.NET-Quellcode

    1. Public Class frmMain
    3. Const sz_path As String = "C:\Program Files\7-Zip\7z" 'pfad zu sevenzip. eigentlich heißt die 7zG.exe aber es muss trotzdem 7z heißen
    4. Dim archive_filepath As String 'pfad zum archiv welches entpackt werden soll
    5. Dim archive_Directorypath As String 'pfad in dem das archiv drin liegt
    6. Dim dest_path As String 'pfad wo der inhalt entpackt werden soll
    7. Dim filename As String 'der name des archivs (ohne suffix)
    8. Dim ausgabe As String
    9. Dim IntAnzahl As Integer
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. Me.Visible = False 'unsichtbar machen
    16. Dim test As Boolean = False
    18. If Command$() <> "" Or test Then 'wenn ein parameter vorhanden ist dann
    19. If test Then
    20. archive_filepath = "testpfad"
    21. Else
    22. archive_filepath = Mid(Command$(), 2, Len(Command$()) - 2) 'anführungszeichen (vorne und hinten) werden abgeschnitten
    23. End If
    25. archive_Directorypath = detect_archiv_directorypath() 'ordner-pfad vom archiv wird ermittelt
    27. filename = detect_filename() 'dateiname des archivs (ohne suffix) wird ermittelt)
    28. dest_path = """" & func_dest_path() & """" 'zielpfad wird festgelegt (mit anführungszeichen)
    30. If dest_path = """""" Then
    31. MsgBox("Beim Entpacken ist ein Fehler aufgetreten. Das Archiv ist möglicherweise beschädigt.", MsgBoxStyle.Exclamation, "Fehler")
    32. Else
    33. Dim befehl As String = sz_path & " x """ & archive_filepath & """ -o" & dest_path & " -aou"
    34. Shell(befehl) 'x entpackt mit allen pfaden den folgenden pfad. auf -o folgt der zielpfad. -aou bewirkt dass nichts überschrieben wird, sondern automatisch die zu entpackenden dateien umbenannt werden
    35. End If
    36. End If
    38. Me.Close() 'schließen
    39. End Sub
    41. Private Function detect_filename() As String
    42. Dim i As Integer = 0
    43. detect_filename = ""
    45. While Mid(archive_filepath, Len(archive_filepath) - i, 1) <> "\"
    46. detect_filename = Mid(archive_filepath, Len(archive_filepath) - i, 1) & detect_filename
    47. i += 1
    48. End While
    50. i = 0
    52. While Mid(detect_filename, Len(detect_filename) - i, 1) <> "."
    53. i += 1
    54. End While
    56. i += 1
    58. detect_filename = Mid(detect_filename, 1, Len(detect_filename) - i)
    59. End Function
    61. Private Function detect_archiv_directorypath() As String
    62. Dim i As Integer = 0
    64. While Mid(archive_filepath, Len(archive_filepath) - i, 1) <> "\"
    65. i += 1
    66. End While
    67. i += 1
    69. Return Mid(archive_filepath, 1, Len(archive_filepath) - i) 'erste "-zeichen wird abgeschnitten
    70. End Function
    72. Private Function func_dest_path() As String
    73. IntAnzahl = anzahl()
    75. If IntAnzahl < 0 Then _
    76. Return ""
    78. If IsNewDirectoryDemanded() Then 'neuen ordner erstellen
    79. If IO.Directory.Exists(archive_Directorypath & "\" & filename) Then 'wenn der pfad schon besteht, dann einen neuen finden
    80. Dim i As Integer = 1
    82. While IO.Directory.Exists(archive_Directorypath & "\" & filename & " " & i)
    83. i += 1
    84. End While
    86. IO.Directory.CreateDirectory(archive_Directorypath & "\" & filename & " " & i)
    87. Return archive_Directorypath & "\" & filename & " " & i
    88. Else
    89. IO.Directory.CreateDirectory(archive_Directorypath & "\" & filename)
    90. Return archive_Directorypath & "\" & filename
    91. End If
    92. Else 'bestehenden pfad zurückgeben
    93. Return archive_Directorypath
    94. End If
    95. End Function
    97. Private Function IsNewDirectoryDemanded() As Boolean
    98. Dim lines() As String = ausgabe.Split(Chr(13))
    99. Dim files(IntAnzahl - 1) As String
    101. For i As Integer = 7 To lines.Length - 1 - 3
    102. files(i - 7) = Mid(lines(i), 54)
    103. Next
    105. Dim stammordner As String = files(0)
    106. IsNewDirectoryDemanded = False
    108. For i As Integer = 1 To IntAnzahl - 1
    109. If Mid(files(i), 1, Len(stammordner) + 1) <> stammordner & "\" Then _
    110. IsNewDirectoryDemanded = True
    111. If IsNewDirectoryDemanded = True Then _
    112. Return True
    113. Next
    114. End Function
    116. Private Function anzahl() As Integer
    118. Dim ObjShell = CreateObject("WScript.Shell")
    119. Dim befehl As String = sz_path & " l """ & archive_filepath & """" 'informationen auflisten lassen
    120. Dim ObjExec = ObjShell.exec(befehl)
    122. ausgabe = ObjExec.StdOut.ReadAll 'ausgabe in variable einlesen
    124. If InStr(ausgabe, "Error:") Then 'wenn ein fehler aufgetreten ist -1 zurückgeben
    125. Return -1
    126. Else
    127. Dim i As Integer = Len(ausgabe)
    128. Dim z As Integer = 0
    129. Dim zahl As String = ""
    131. While z < 2 'zahl auslesen
    132. If Mid(ausgabe, i, 1) = " " Then z += 1
    133. If IsNumeric(Mid(ausgabe, i, 1)) Then zahl = Mid(ausgabe, i, 1) & zahl
    134. i -= 1
    135. End While
    137. Return zahl
    138. End If
    139. End Function
    140. End Class




    der einzigste nachteil ist, dass es keine fortschrittsanzeige gibt :/
    aber vllt fällt mir da auch noch was ein.


    ps: warum werden die tabstops in den vb-tags nicht richtig angezeigt? denn dann wären die kommentare schön untereinander gewesen.


    /edit:
    okay, habe ein problem. 7zip listet alle dateien aus einem archiv auf; auch wenn alle in einem ordner stecken. dadurch wird von meinem programm immer ein neuer ordner erstellt wenn mehrere dateien in dem archiv vorhanden sind, auch wenn die dateien alle in einem ordner stecken.
    ich arbeite gerade an einer lösung :/

    /edit nr. 2:
    okay, habe das problem gelöst. es sollte jetzt eigentlich alles funktionieren :)
    (habe den schon vorhanden code korrigiert.)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Phil“ ()

    der einzigste nachteil ist, ...
    Du weißt schon, dass es einzige heißt? :P

    der vorteil ist eben dass alle dateien behandelt werden können, die auch 7-zip behandeln kann
    7zip ist in 99% der Fälle besser oder schneller als RAR und es ist Open Source. Leider ist RAR im Netz viel zu weit verbreitet :(

    Wie gesagt: 7zip ist Open Source. Im SDK findest du ein Beispiel wie man mit C# OHNE ne .exe alle vorgänge durchführt: 7-zip.org/sdk.html
    Das schöne dran ist, dass man nichtmal ne hässliche .dll braucht; man kann das ganze Teil (den Source) reinkompilieren.
    Ich weiß aber nicht, ob da die restlichen Dateiformate (zip, tar, gz, bz2) auch drin sind :(


    so long..
    Andy

    Original von Mad Andy
    der einzigste nachteil ist, ...
    Du weißt schon, dass es einzige heißt? :P


    Hast ja recht; werde es mir merken :rolleyes: :))

    Original von Mad Andy
    Wie gesagt: 7zip ist Open Source. Im SDK findest du ein Beispiel wie man mit C# OHNE ne .exe alle vorgänge durchführt: 7-zip.org/sdk.html
    Das schöne dran ist, dass man nichtmal ne hässliche .dll braucht; man kann das ganze Teil (den Source) reinkompilieren.
    Ich weiß aber nicht, ob da die restlichen Dateiformate (zip, tar, gz, bz2) auch drin sind :(


    Ja, das hatte ich mir schon runtergeladen und angeguckt; nur leider verstehe ich von c# so gut wie gar nichts.
    Außerdem ist ja mein Programm sowieso schon fertig; nur eben die nicht vorhandene progress bar stört mich persönlich noch ein bisschen. aber vllt fällt mir da auch was ein :))

Facebook
Telefonspende