VB6 Code - Fungsi CSS Compress Opsi Super Compact

Mengenai fungsi VB6 untuk mengcompress CSS super compact - Artikel di bawah ini kami beri judul fungsi css compress opsi super compact. Apa yang dimaksud dengan css compress ini, bisa Anda lihat pada link disamping ini [css compress]. Nah, sekarang Anda faham mengenai apa tujuan, kegunaan dan mengapa kode css dikompres. Bagaimana implementasi kode css compress ini pada pemrograman Visual Basic 6.0? bisa Anda lihat kodenya di bawah.

Kode fungsi css compress opsi super compact

Option Explicit

Function CSSCompressSuperCompact(sText As String) As String
  Dim sTextCSS As String
  Dim arrCSS() As String
  Dim i As Integer
  sTextCSS = sText
  sTextCSS = Replace(sTextCSS, " ", "")
  sTextCSS = Replace(sTextCSS, vbCrLf, "")
  arrCSS = Split(sTextCSS, vbCrLf)
  sTextCSS = ""
  For i = LBound(arrCSS) To UBound(arrCSS)
      If arrCSS(i) <> "" Then
          sTextCSS = sTextCSS & arrCSS(i) & vbCrLf
      End If
  Next
  CSSCompressSuperCompact =  sTextCSS
End Function

Contoh penggunaan css compress opsi super compact

Private Sub Command1_Click()
  Text1.Text = CSSCompressSuperCompact(Text1.Text)
End Sub