VB6 Code - Mengkonversi Tag HTML Dalam Postingan

Di bawah ini merupakan fungsi VB6 untuk mengkonversi tag HTML dalam postingan. Seperti yang kita ketahui kode-kode HTML yang diperuntukan untuk postingan tidak bisa langsung kita tulis, akan tetapi harus dikonversi terlebih dahulu, jika tidak maka kode-kode HTML tersebut akan ditampilkan tidak sesuai dengan apa yang diharapkan. Ada banyak cara mengkonversi kode HTML yang diperuntukan untuk postingan, diantaranya:

1. Mengunjungi situs yang menyediakan untuk keperluan ini.
2. Mengganti secara manual dengan menggunakan editor (notepad, notepad++, dll) dengan menggunakan Find and Replace.
3. Membuat fungsi sendiri (ini yang sedang kita bahas).
4. dan lain-lain.
   

Fungsi Untuk Mengkonversi tag HTML dalam Postingan
Public Function ConvertTag4Posting(ByVal sText As String)
   sText = Replace(sText, "&", "&")
   sText = Replace(sText, "<", "&lt;")
   sText = Replace(sText, ">", "&gt;")
   sText = Replace(sText, Chr(34), "&quot;")
   sText = Replace(sText, "±", "&plusmn;")
   '    sText = Replace(sText, " ", "&nbsp;")
   ConvertTag4Posting = sText
End Function

Contoh penggunaan fungsi untuk mengkonversi tag HTML dalam postingan

Private Sub Command1_Click()
   Dim sText As String
   sText = Text1.Text
   sText = ConvertTag4Posting(sText)
   Text1.Text = sText
End Sub

Tentu saja fungsi di atas dapat kita modifikasi disesuaikan dengan kebutuhan.

Posted by Mesin Posting 1.0 Created by http://khoiriyyah.blogspot.com