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:
- Mengunjungi situs yang menyediakan untuk keperluan ini.
- Mengganti secara manual dengan menggunakan editor (notepad, notepad++, dll) dengan menggunakan Find and Replace.
- Membuat fungsi sendiri (ini yang sedang kita bahas).
- dan lain-lain.
Fungsi Untuk Mengkonversi tag HTML dalam Postingan
Public Function ConvertTag4Posting(ByVal sText As String)
sText = Replace(sText, "&", "&")
sText = Replace(sText, "<", "<")
sText = Replace(sText, ">", ">")
sText = Replace(sText, Chr(34), """)
sText = Replace(sText, "±", "±")
' sText = Replace(sText, " ", " ")
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