Seite 2 von 3
Verfasst: 21.12.2004 21:32
von vonTurnundTaxis
...Ich glaube, dass ich das nicht verstanden habe...
Kannst du mal ein Code-Beispiel machen? *bittebitte*
Verfasst: 22.12.2004 00:28
von Hroudtwolf
Code: Alles auswählen
dim filenames$(1000)
OpenPack ("test.pck")
spad.l=NextPackFile()
grpk.l=PackFileSize()
If CreateFile (1,"paf.tmp") ; erstellen der Textdatei
WriteData (spad,grpk)
CloseFile(1)
EndIf
If OpenFile (1,"paf.tmp") ; Lesen der Textdatei
While Eof(1)=0
spad.l=NextPackFile()
grpk.l=PackFileSize()
filenames$(x)=ReadString()
x=x+1
Wend
CloseFile (1)
EndIf
ClosePack()
; Auspacken der Dateien
If OpenPack ("test.pck")
spad.l=NextPackFile()
For y=0 To x
spad.l=NextPackFile()
grpk.l=PackFileSize()
If CreateFile (1,filenames$(y))
WriteData (spad,grpk)
CloseFile(1)
EndIf
Next x
ClosePack()
EndIf
ich bitte SYNTAX-Fehler zu entschuldigen !
Verfasst: 25.12.2004 20:13
von vonTurnundTaxis
@Hroudtwolf:
Der Code funktioniert bei mir nicht.
Liegt das an der Demo-Version?
DEMO ?!?!
Verfasst: 25.12.2004 21:38
von Hroudtwolf
Wahrscheinlich schon.
Ich würde an deiner Stelle die paar Kröten in die Vollversion von PB
schon investieren.
Verfasst: 25.12.2004 21:47
von ts-soft
Liegt nicht an der Demo-Version
AHA
Verfasst: 25.12.2004 22:02
von Hroudtwolf
MUSS am Anwender liegen........
Genauso bei den BUGS von JaPBe.........
Niemals der Programmierer.
Witz beiseite:
Ich weiss selbst nicht ob der Code wie er ist funktioniert. Bin jetzt zu faul zum testen. War nur ein Beispiel wie es ungefähr gehen muss.
Verfasst: 26.12.2004 21:37
von vonTurnundTaxis
Hroudtwolf hat geschrieben:Ich würde an deiner Stelle die paar Kröten in die Vollversion von PB schon investieren.
Habe ich schon (fast)...
Aber der Code funktioniert trotzdem nicht...
Wärst du mal so nett und erklärst die Vorgehensweise noch mal, und zwar genauer? Ich versteh´ das Ganze irgendwie nicht
Re: AHA
Verfasst: 26.12.2004 23:14
von GPI
Hroudtwolf hat geschrieben:Genauso bei den BUGS von JaPBe.........
Bitte was?
ERKLÄRUNG
Verfasst: 27.12.2004 17:04
von Hroudtwolf
@vonTurnundTaxis
Du musst nur alle Dateinamen die du ins Pack machen willst in eine Textdatei speichern.
Diese Textdatei musst du dann als allererste Datei in das Pack geben. Und dann alle anderen.
So weisst du beim Entacken immer das die erste zu entpackende Datei die Dateinamen enthält die du zum entpacken der Dateien brauchst. Denn die Dateien im Pack haben keinen Namen mehr.(er wird nicht mitgepackt.)
Übrigens : Es ist manchmal auch ganz hilfreich wenn man die Anzahl der zu entpackenden Dateien auch gleich mit in die Textdatei gibt.
Kapiert???
Verfasst: 27.12.2004 17:43
von vonTurnundTaxis
Danke!
Ich werde mal mit deinen Tipps experimentieren