VB6 Code - Fungsi CSS Decompress Untuk Editing

Mengenai fungsi VB6 untuk melakukan decompress - Artikel ini berjudul fungsi css decompress untuk editing. Maksud dari css decompress untuk editing ialah sebuah fungsi (procedure) yang digunakan untuk mengembalikan format css yang telah dicompress. Kita tahu bahwa css yang telah dicompress tentu saja akan menyulitkan pada saat kita ingin mengeditnya kembali. Bagaimana fungsi css decompress ini? Fungsi css decompress untuk editing

Option Explicit

Public Function CSSDecompress(sText As String) As String
    Dim sTextCSS As String
    Dim arrCSS() As String
    Dim i As Integer
    sTextCSS = CSSDelSpace(sText)
    sTextCSS = Replace(sTextCSS, "{", "{" & vbCrLf)
    sTextCSS = Replace(sTextCSS, "}", "}" & vbCrLf & vbCrLf)
    sTextCSS = Replace(sTextCSS, ";", ";" & vbCrLf)
    CSSDecompress = sTextCSS
End Function

Private Function CSSDelSpace(sText As String) As String
    Dim sTextCSS As String
    sTextCSS = sText
    sTextCSS = Replace(sTextCSS, " ",  "")
    sTextCSS = Replace(sTextCSS, vbCrLf, "")
    CSSDelSpace = sTextCSS
End Function

Contoh penggunaan fungsi css decompress untuk editing

Private Sub Command2_Click()
    Text1.Text = CSSDecompress(Text1.Text)
End Sub