Hallo,
ich habe hier einen String den ich entpacken möchte.
Bisher löse ich das so:
StrFile( String, "Datei.ZIP")
Mit runshell() und z.B. funzip entpacke ich die Datei und lese sie dann wieder als String ein
Schöner wäre es wenn ich diesen Umweg nicht gehen müsste.
Gibt es da eine Möglichkeit?
Gruß Stefan
String entpacken
Moderator: Moderatoren
-
- Der Entwickler von "Deep Thought"
- Beiträge: 2517
- Registriert: Mi, 28. Jul 2010 17:16
- Hat sich bedankt: 12 Mal
- Danksagung erhalten: 77 Mal
Re: String entpacken
Hallo Stefan
es gibt eine Klasse in Xbase geschrieben die dies abdeckt.
Suche mal mit Google nach xbzlib da wird du schnell fündig. Vorsicht ist bei der verwendeten zlib.dll Version nötig.
es gibt eine Klasse in Xbase geschrieben die dies abdeckt.
Suche mal mit Google nach xbzlib da wird du schnell fündig. Vorsicht ist bei der verwendeten zlib.dll Version nötig.
Valar Morghulis
Gruss Carlo
Gruss Carlo
- mini990
- 1000 working lines a day
- Beiträge: 592
- Registriert: Sa, 28. Jan 2006 9:44
- Wohnort: Berg-Richtheim bei Neumarkt i.d.Opf.
- Danksagung erhalten: 1 Mal
Re: String entpacken
Hallo Carlo,
Xbzlib verwende ich für Datensicherungen.
Bin aber da in der Doku nicht fündig geworden.
Gruß Stefan
Xbzlib verwende ich für Datensicherungen.
Bin aber da in der Doku nicht fündig geworden.
Gruß Stefan
-
- Der Entwickler von "Deep Thought"
- Beiträge: 2517
- Registriert: Mi, 28. Jul 2010 17:16
- Hat sich bedankt: 12 Mal
- Danksagung erhalten: 77 Mal
Re: String entpacken
Hallo Stefan
XbZ_UnCompress() - Un-Compress (Inflate) a string.
XbZ_UnCompress(@cData, @nSize, [@nError]) --> cUnCompressed
XbZ_UnCompress() - Un-Compress (Inflate) a string.
XbZ_UnCompress(@cData, @nSize, [@nError]) --> cUnCompressed
Valar Morghulis
Gruss Carlo
Gruss Carlo
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: String entpacken
wie wäre es mit Windows On-Board Mittel (ab XP) ein ZIP zu entpacken
Code: Alles auswählen
FUNCTION Unzip(cZipFile, cDestFolder)
LOCAL oShell, oZIP, oNameDest
oShell := CreateObject("Shell.Application")
oZIP := oShell:NameSpace(cZipFile)
oNameDest := oShell:NameSpace(cDestFolder)
oNameDest:CopyHere(oZIP:items(), 0x10)
oShell:destroy()
RETURN NIL
gruss by OHR
Jimmy
Jimmy