Binaryworld - HTMLEncode - Encode a string so that it can be displayed in a browser ... [ VB -> Internet ]

' Encode an string so that it can be displayed correctly
' inside the browser.
'
' Same effect as the Server.HTMLEncode method in ASP

Function HTMLEncode(ByVal Text As String) As String
  Dim i As Integer
  Dim acode As Integer
  Dim repl As String

  HTMLEncode = Text

  For i = Len(HTMLEncode) To 1 Step -1
    acode = Asc(Mid$(HTMLEncode, i, 1))
    Select Case acode
      Case 32
        repl = " "
      Case 34
        repl = """
      Case 38
        repl = "&"
      Case 60
        repl = "<"
      Case 62
        repl = ">"
      Case 32 To 127
        ' don't touch alphanumeric chars
      Case Else
        repl = "&#" & CStr(acode) & ";"
    End Select
    If Len(repl) Then
      HTMLEncode = Left$(HTMLEncode, i - 1) & repl & Mid$(HTMLEncode, _
        i + 1)
      repl = ""
    End If
  Next
End Function