Wie *.kmz via Kontextmenü extrahieren?

Hallöchen

Gibt es eine kleine Software um *.kmz per Explorer-Rechtsklick in einen gleichnamigen Ordner zu extrahieren?
(Ich werde sonst schnell so ein Toolchen schreiben+posten, würde aber WZUnzip voraussetzen...)

(Google und Search waren da nicht sonderlich hilfreich... Ev. gibt es das ja in eine grössere Software integriert?)

Merci!
Bruno

Zitat von BRotondi

Gibt es eine kleine Software um *.kmz per Explorer-Rechtsklick in einen gleichnamigen Ordner zu extrahieren?

Hallo Bruno,

wenn du WinRAR auf deinem PC installiert hast geht das mit
- Rechtsklick : Öffnen mit : WinRAR archiver
- auf Extrahieren klicken : OK
- fertig

Grüsse - Anton

KMZ ist ein einfaches ZIP-Archiv. Kannst also auch die files einfach in *.zip umbenennen und mit WinZip extrahieren. Umgekehrt geht es übrigens genau so: Dateien zu einer *.zip komprimieren und in *.kmz umbenennen. Man muss dann aber schon wissen, was man da alles zippt und die kml muss auch die Verweise auf die Files enthalten.

Merci für die Infos.

Diese Varianten sind mir bekannt. Da sich aber die zu extrahierenden *.kmz momentan häufen, werde ich demnach einen kleinen Workaround programmieren, um via Registryeintrag nicht nur ein %1, sondern auch ein %0 (=%1 ohne Endung) zur Verfügung zu haben.

Dann lässt sich nicht nur dieses Problemchen lösen, sondern auch ähnlich gelagerte.

Beste Grüsse, Bruno

O.K. Hier die Lösung (in VB, da ich viel für Office programmiere)

Reg0.exe ins Windows-Verzeichnis kopieren und in der Registry folgenderweise einsetzen:
reg0 Parameter>Commandline
wobei innerhalb Commandline wie gewohnt %1, %2 etc. vorkommen dürfen, sowie zusätzlich ein §§ welches Parameter bis zum letzten . entspricht
Beispiel um ein *.kmz in einen gleichnamigen Ordner zu extrahieren:
Reg0 %1>WZUNZIP -d -yO "%1" "§§"

kmz.reg ausführen wenn WZUNZIP + Reg0 im Windows-Verzeichnis sind + man via Rechtsklick im Explorer in einen gleichnamigen Ordner oder aufs Root extrahieren will.

Wie gesagt kann Reg0 für alles mögliche eingesetzt werden, habe diese Option nun schon zu oft vermisst

Reg0.exe ohne Parameter ausführen um eine kleine Einführung zu erhalten

Alles ohne Gewähr, Schadenersatzansprüche u.ä., kleiner Support hier im Thread.

Dateien im Anhang, Code hier

(bin etwas im Schuss, daher nur schnell hingeknallt + getestet...)

Bruno

Option Explicit


Global Const Modul = "BReg0"


Public Sub Main()
    Dim i
    Dim c, p1, p0   'Commandline, %1, %0
    
    If RunningInIDE Then
        c = "" '"E:\Original\_neue downloads\20080908.kmz>WZUNZIP -d -yO ""%1"" ""§§"""
    Else
        c = Command()   'auskommentieren für Debugging
    End If
    
    i = InStr(1, c, ">")
    If i = 0 Then
        MsgBox "Reg0.exe ins Windows-Verzeichnis kopieren und in der Registry folgenderweise einsetzen:" & vbCrLf & _
               "reg0 Parameter>Commandline" & vbCrLf & _
               "wobei innerhalb Commandline wie gewohnt %1, %2 etc. vorkommen dürfen, sowie zusätzlich ein §§ welches Parameter bis zum letzten . entspricht" & vbCrLf & _
               vbCrLf & _
               "Beispiel um ein *.kmz in einen gleichnamigen Ordner zu extrahieren:" & vbCrLf & _
               "Reg0 %1>WZUNZIP -d -yO ""%1"" ""§§"""


    Else
        p1 = Trim(Left(c, i - 1))
        If Left(p1, 1) = """" Then p1 = Mid(p1, 2)
        If Right(p1, 1) = """" Then p1 = Left(p1, Len(p1) - 1)
        
        c = Mid(c, i + 1)
        i = InStr(1, p1, ".")
        p0 = Left(p1, i - 1)
        
        c = Replace(c, "%1", p1)    'nur für's Debugging
        c = Replace(c, "§§", p0)
        
        If 0 Then
            If MsgBox(c, vbOKCancel) = vbCancel Then Exit Sub
            Shell "cmd /k " & c, vbNormalFocus
        Else
            Shell c, vbNormalFocus
        End If
    End If
End Sub
Function RunningInIDE() As Boolean
'Exit Function
   On Error Resume Next
   Debug.Print 1 / 0
   RunningInIDE = (Err.Number > 0)
   On Error GoTo 0
End Function

REGEDIT4


[HKEY_CLASSES_ROOT\Google Earth.kmzfile\shell\extract here\command]
@="Reg0 %1>WZUNZIP -d -yO \"%1\""


[HKEY_CLASSES_ROOT\Google Earth.kmzfile\shell\extract to Folder\command]
@="Reg0 %1>WZUNZIP -d -yO \"%1\" \"§§\""