String entpacken

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Benutzeravatar
mini990
1000 working lines a day
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

String entpacken

Beitrag von mini990 »

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
ramses
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2513
Registriert: Mi, 28. Jul 2010 17:16
Hat sich bedankt: 12 Mal
Danksagung erhalten: 77 Mal

Re: String entpacken

Beitrag von ramses »

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.
Valar Morghulis

Gruss Carlo
Benutzeravatar
mini990
1000 working lines a day
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

Beitrag von mini990 »

Hallo Carlo,
Xbzlib verwende ich für Datensicherungen.
Bin aber da in der Doku nicht fündig geworden.

Gruß Stefan
ramses
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2513
Registriert: Mi, 28. Jul 2010 17:16
Hat sich bedankt: 12 Mal
Danksagung erhalten: 77 Mal

Re: String entpacken

Beitrag von ramses »

Hallo Stefan

XbZ_UnCompress() - Un-Compress (Inflate) a string.

XbZ_UnCompress(@cData, @nSize, [@nError]) --> cUnCompressed
Valar Morghulis

Gruss Carlo
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: String entpacken

Beitrag von AUGE_OHR »

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
Antworten