System: Linux Mint 18.1 Serena / Cinnamon 3.2.7 (Gtk 3.18.9) / PB5.60 (x64)
kann es sein, dass PackEntryType() unter Linux teilweise falsche Ergebnisse liefert?
Beim Auflisten von Einträgen einer ZIP-Datei werden bei mir manche Dateien als #PB_Packer_Directory und manche Ordner als #PB_Packer_File ausgegeben.
Der Großteil der Dateien und Ordner wird allerdings korrekt ausgegeben. Eine Beispielausgabe:
Kann das jemand von Euch verifizieren?File: .gitignore
File: .travis.yml
File: Changelog
File: LICENSE
File: Makefile
File: package.json
!!! Falsch -> File: plugins/
File: plugins/all.js
[...]
File: plugins/expire_test.js
!!! Falsch -> Directory: plugins/json2.js
File: plugins/json2_test.js
Directory: plugins/lib/
File: plugins/lib/json2.js
[...]
File: plugins/v1-backcompat_test.js
File: README.md
!!! Falsch -> File: scripts/
File: scripts/compile-builds.js
[...]
File: scripts/run-saucelabs-tests.js
!!! Falsch -> File: scripts/saucelabs/
File: scripts/saucelabs/list-supported-browsers.js
[...]
File: scripts/saucelabs/tunnel.js
!!! Falsch -> File: src/
File: src/store-engine.js
File: src/util.js
!!! Falsch -> File: storages/
File: storages/all.js
[...]
File: storages/sessionStorage.js
File: sublime-storejs.sublime-project
!!! Falsch -> File: tests/
File: tests/tests.js
File: tests/util.js
Code: Alles auswählen
EnableExplicit
UseZipPacker()
CompilerIf #PB_Compiler_OS = #PB_OS_Linux
#PathSeparator = "/"
CompilerElse
#PathSeparator = "\"
CompilerEndIf
Define Filename.s
Define Dummy.s
Filename = OpenFileRequester("", "", "Zip file|*.zip", 0)
; Open the packed file
If OpenPack(0, Filename)
If ExaminePack(0)
While NextPackEntry(0)
Dummy = ""
If Right(PackEntryName(0), 1) = #PathSeparator And PackEntryType(0) = #PB_Packer_File
Dummy + "!!! Falsch -> "
EndIf
If Right(PackEntryName(0), 1) <> #PathSeparator And PackEntryType(0) = #PB_Packer_Directory
Dummy + "!!! Falsch -> "
EndIf
Select PackEntryType(0)
Case #PB_Packer_File
Dummy + "File: " + PackEntryName(0)
Case #PB_Packer_Directory
Dummy + "Directory: " + PackEntryName(0)
EndSelect
Debug Dummy
Wend
EndIf
ClosePack(0)
EndIf