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

 
'类中压缩与解压算法
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 intMatchPos As Integer
      Dim intMatchLen As Integer
      Dim intInputFile As Integer
      Dim intOutputFile As Integer
      Dim aintWindowNext(mcintWindowSize + 1 + mcintWindowSize) As Integer
      Dim aintWindowPrev(mcintWindowSize + 1) As Integer
      Dim intByteCodeWritten As Long
      Dim intBitCount As Integer
      Dim abytWindow(mcintWindowSize + mcintMaxMatchLen) As Byte
      Dim udtFileH As FileHeader
      Dim strOutTmpFile As String
      Dim lngBytesRead As Long
      Dim lngFileLength As Long
      Dim lngCurWritten As Long
      Dim lngInBufLen As Long, abytInputBuffer() As Byte, abytOutputBuffer() As Byte
      Dim lngOutBufLen As Long, lngInPos As Long, lngOutPos As Long
      Dim intErrNo As Integer