Variablen zu Packer-Archiven hinzufügen

[vonTurnundTaxis]

...Ich glaube, dass ich das nicht verstanden habe...
Kannst du mal ein Code-Beispiel machen? *bittebitte*

[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 !

[vonTurnundTaxis]

@Hroudtwolf:
Der Code funktioniert bei mir nicht.
Liegt das an der Demo-Version?

[Hroudtwolf]

Wahrscheinlich schon.

Ich würde an deiner Stelle die paar Kröten in die Vollversion von PB
schon investieren.

[ts-soft]

Liegt nicht an der Demo-Version

[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.

[vonTurnundTaxis]

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

[GPI]

Genauso bei den BUGS von JaPBe.........

Bitte was?

[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???

[vonTurnundTaxis]

Danke!
Ich werde mal mit deinen Tipps experimentieren