devxlogo

HTMLEncode – Encode a string so that it can be displayed in a browser

HTMLEncode – Encode a string so that it can be displayed in a browser

' Encode an string so that it can be displayed correctly' inside the browser.'' Same effect as the Server.HTMLEncode method in ASPFunction 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    NextEnd Function

See also  11 Effective Keyword Research Tools and Techniques
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist