Keskustelu: Ohjelmointikysymykset: VB6: ZIP-Pakkaus

Function Pakkaa(T$) As String
Dim I%, J%, K%, M$, V$, Esto As Boolean
    I = 1
    V = "|"
    Do
        J = 0
        M = Mid(T, I, 1)
        Do
            J = J + 1
        Loop Until Mid(T, I + J, 1) <> M Or I + J > Len(T)
        'ei saa olla "|"-merkki eikä numero
        If J <= 4 And Asc(M) <> 124 And Not (Asc(M) >= Asc("0") And Asc(M) <= Asc("9")) Then
            For K = 1 To J: V = V & M: Next K
            Esto = True
        Else
            If Esto Then V = V & "|"
            V = V & Mid(Str(J), 2) & "|" & Asc(M)
            Esto = False
        End If
        If Not Esto Then V = V & "|"
        I = I + J
    Loop Until I > Len(T)
    Pakkaa = V
End Function

Function Pura(T$) As String
Dim I%, J%, K%, Määrä%, Merkki%, V$
    I = 1
Do
    J = InStr(I, T, "|")                        'Ensimmäinen
    K = InStr(J + 1, T, "|")                    'Toinen
    If K = 0 Then K = Len(T)
    Määrä = Val(Mid(T, J + 1, (K - 1) - J))     'Määrä
    If IsNumeric(Mid(T, J + 1, (K - 1) - J)) = True Then
        J = K                                       'Merkin alku
        K = InStr(J + 1, T, "|")                    'Toinen
        I = K
        Merkki = Val(Mid(T, J + 1, (K - 1) - J))    'Merkki
        For K = 1 To Määrä
                V = V & Chr(Merkki)
        Next K
    Else
        I = K
        V = V & Mid(T, J + 1, (K - 1) - J)
    End If
Loop Until Len(V) >= 80
    Pura = V
End Function