Question

I need to write a VBScript function that can convert arbitrary strings into a string that I can safely use inside JavaScript. Something like this:

"Hello World"
-- becomes --
"Hello World"

"Hello
World"
-- becomes --
"Hello\nWorld"

"Hello
    World"
-- becomes --
"Hello\n\tWorld"

"Hello'World"
-- becomes --
"Hello\'World"

I need to use the function like this:

var foo = '<p><%= thatfunction( Recordset( "TextField" ) ) %></p>';

I hope you got the point. The function does not have to be bullet-proof but close.

Answer 1

@Salman A: Here’s a Classic ASP function you could use

Function thatfunction(ByRef input_string)
    If NOT IsNull(input_string) AND input_string <> "" Then
        Dim working_string
        working_string = input_string
        working_string = Replace(working_string, vbNewLine, "\n")
        working_string = Replace(working_string, vbTab, "\t")
        working_string = Replace(working_string, "'", "\'")
        ' .. other escape values/strings you may wish to add

        thatfunction = working_string
    End If
End Function