文件操作
文章平均质量分 80
homezj
这个作者很懒,什么都没留下…
展开
-
用Long型数组进行文件比对
此文件比对基于二进制,最大特点,使用了Long型数组,采用32系统最擅长的数据类型进行比对,速度明显快于Byte数组。Option Explicit Private CencelCopy As Boolean Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As A原创 2005-04-12 11:46:00 · 1240 阅读 · 0 评论 -
一个优化后的压缩算法(上)
这是一个在CSDN论坛中讨论过的压缩算法代码。与WinRAR以最快方式压缩ZIP比较,255M的文件Level=0时 用时24.98秒 大小95.1MLevel=255时 用时30.24秒 大小91.6MWinRAR最快压缩ZIP 用时 25.2秒 大小58.6M标准RAR压缩,我看了一下,实在太慢,也就没试了,估计要几分钟才会有结果。从速度看,基本持平了,这个算法虽然最大压缩能力有限,但感觉设计原创 2005-04-12 20:07:00 · 3585 阅读 · 0 评论 -
一个优化后的压缩算法(下)
类中压缩与解压算法Private Sub Compress() Dim lngTemp As Long, intCount As Integer Dim intBufferLocation As Integer Dim intMaxLen As Integer Dim intNext As Integer Dim intPrev As Integer Dim原创 2005-04-12 20:09:00 · 3539 阅读 · 3 评论