Monday, March 22, 2010

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