Fungsi 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 = &quot;&amp;,<,>,&quot; &amp; Chr(34) &amp; &quot;,&plusmn;&quot; 
    DecTag = &quot;&amp;amp;,&amp;lt;,&amp;gt;,&amp;quot;,&amp;plusmn;&quot; 
    EncodeTag = Split(EncTag, &quot;,&quot;) 
    DecodeTag = Split(LCase(DecTag), &quot;,&quot;) 
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