[英]How do you compress a directory in Squeak Smalltalk?
如何壓縮Squeak Smalltalk中的目錄? 我在StandardFileStream中找到了compressFile方法,但我無法弄清楚如何壓縮多個文件或目錄。 我試驗過System-Compression類,但運氣不好。 提前致謝!
這就是我現在擁有的。 我在文件名末尾添加時間戳,所以在這里我想把所有以給定文件名開頭的文件放入zip或gzip文件中。
compressFile: aFileName in: aDirectory
| zipped buffer unzipped zipFileName |
zipFileName _ aFileName copyUpTo: $. .
zipped _ aDirectory newFileNamed: (zipFileName, FileDirectory dot, 'zip').
zipped binary; setFileTypeToObject.
zipped _ ZipWriteStream on: zipped.
buffer _ ByteArray new: 50000.
aDirectory fileNames do: [:f |
(f beginsWith: zipFileName) ifTrue: [
unzipped _ aDirectory readOnlyFileNamed: (aDirectory fullNameFor: f).
unzipped binary.
[unzipped atEnd] whileFalse:[
zipped nextPutAll: (unzipped nextInto: buffer)].
unzipped close]].
zipped close.
ZipWriteStream
只是一個用於壓縮的輔助類,它不知道如何ZipWriteStream
正確的ZIP文件,包含所有頭文件和目錄信息等。您想使用ZipArchive
類。
"first, construct archive layout in memory"
zip := ZipArchive new.
zip addFile: 'foo.txt'.
zip addFile: 'bar.txt' as: 'xyz.txt'.
zip addTree: dir match: [:entry | entry name beginswith: 'baz'].
"then, write archive to disk, compressing each member"
file := dest newFileNamed: 'test.zip'.
zip writeTo: file.
file close.
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.