一个优化后的压缩算法（上）

时间：2022-07-02 12:13:40 编辑：袖梨来源：一聚教程网

这是一个在CSDN论坛中讨论过的压缩算法代码。
与WinRAR以最快方式压缩ZIP比较，
255M的文件
Level=0时用时24.98秒大小95.1M
Level=255时用时30.24秒大小91.6M
WinRAR最快压缩ZIP 用时 25.2秒大小58.6M
标准RAR压缩，我看了一下，实在太慢，也就没试了，估计要几分钟才会有结果。
从速度看，基本持平了，这个算法虽然最大压缩能力有限，但感觉设计得很巧妙，每次都基于动态表，使软件可以做得很小巧，资源占用也很少。非常值得收藏！
'测试窗体中的代码
Option Explicit
Private WithEvents ObjZip As ClassZip
Private BgTime As Single
Private Sub Command1_Click()
      BgTime = Timer
      Command1.Enabled = False
      Command2.Enabled = False
      With ObjZip
      .InputFileName = Text1.Text
      .OutputFileName = Text2.Text
      .IsCompress = True
      .CompressLevel = Val(Text4.Text)
      .BeginProcss
      End With
      Label1.Caption = Round(Timer - BgTime, 2) & "秒"
      Command1.Enabled = True
      Command2.Enabled = True
End Sub
Private Sub Command2_Click()
      BgTime = Timer
      Command1.Enabled = False
      Command2.Enabled = False

推荐专题

最新下载

热门教程

一个优化后的压缩算法（上）

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程