VB6 Code - Fungsi Encode Dan Decode Tag HTML

Mengenai Fungsi VB6 untuk meng-encode dan decode tag HTML - Kode HTML yang dituliskan dalam sebuah tulisan/postingan tentu saja tidak dapat ditulis secara langsung tetapi harus dikonversi terlebih dahulu agar format tulisannya sesuai dengan apa yang diharapkan. Perlu kita ketahui bahwa mesin penerjemah (compiler) akan menganggap tulisannya merupakan kode HTML dan menerjemahkannya, padahal yang kita maksud adalah tulisan, tulisan yang mengandung kode HTML . Dibawah ini merupakan fungsi encode dan decode tag HTML yang bisa Anda gunakan ketika membuat tulisan/postingan yang melibatkan banyak kode/tag HTML.

Option Explicit

Dim EncodeTag() As String
Dim DecodeTag() As String

Enum eType
    Decode
    Encode
End Enum

Public Function EncDecTag(strText As String, EncDec As eType) As String
    Dim i As Integer
    InitTagArray
    For i = LBound(EncodeTag) To UBound(EncodeTag)
        If EncDec = Encode Then
            strText = Replace(strText, EncodeTag(i), DecodeTag(i), , ,  vbTextCompare)
        Else
            strText = Replace(strText, DecodeTag(i), EncodeTag(i), , , vbTextCompare)
        End If
    Next
    EncDecTag = strText
End Function

Private Function InitTagArray()
    Dim EncTag As String
    Dim DecTag As String
    EncTag = "&,<,>," & Chr(34) & ",±"
    DecTag = "&amp;,&lt;,&gt;,&quot;,&plusmn;"
    EncodeTag = Split(EncTag, ",")
    DecodeTag = Split(LCase(DecTag), ",")
End Function

Cara Penggunaan Fungsi Encode dan Decode Tag HTML

Private Sub Command1_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Decode)
End Sub

Private Sub Command2_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Encode)
End Sub