Public Sub Komprimierung(Source As String, Destination As String)
 
Dim i As Long
Dim ffq As Integer
Dim ffz As Integer
Dim Anzahl As Integer
Dim aByte As Byte
Dim bByte As Byte
Dim LofFFq As Long
 
ffq = FreeFile
Open Source For Binary Access Read Lock Write As #ffq
ffz = FreeFile
Open Destination For Binary Access Write Lock Read As #ffz
 
Get #ffq, , aByte
bByte = aByte
Anzahl = 1
 
LofFFq = LOF(ffq)
 
For i = 1 To LofFFq
  Get #ffq, , aByte
  If aByte = bByte Then
    Anzahl = Anzahl + 1
    If i = LofFFq Then
      Put #ffz, , CByte(Anzahl)
      Put #ffz, , bByte
    End If
  Else
    Put #ffz, , CByte(Anzahl)
    Put #ffz, , bByte
    bByte = aByte
    Anzahl = 1
  End If
 
 
 
Next i
 
Close #ffq
Close #ffz
 
End Sub
 
 
Public Sub DeKomprimierung(Source As String, Destination As String)
 
Dim i As Long
Dim j As Integer
Dim aByte As Byte
Dim Anzahl As Byte
Dim ffq As Integer
Dim ffz As Integer
 
ffq = FreeFile
Open Source For Binary Access Read Lock Write As #ffq
ffz = FreeFile
Open Destination For Binary Access Write Lock Read As #ffz
 
For i = 0 To LOF(ffq)
  Get #ffq, , Anzahl
  Get #ffq, , aByte
 
  For j = 1 To Anzahl
    Put #ffz, , aByte
  Next j
Next i
 
Close #ffq
Close #ffz
 
End Sub
 
Private Sub Command1_Click()
Komprimierung "C:\Hallo.txt", "C:\kompTest.txt"
Beep
End Sub
 
Private Sub Command2_Click()
DeKomprimierung "C:\kompTest.txt", "C:\Hallo2.txt"
Beep
End Sub

____________________________
Heimschmiede.de.vu