Fungsi CSS Decompress Untuk Editing | Visual Basic 6.0

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