LotusScript Version of JavaScript-Unescape

On the Web, arguments are often sent in "escaped" form, to make them "Web-safe". Use this LotusScript-function

to "unescape" those strings.


Function LSunescape(strIn As String) As String
'
' This function performs the equivalent of a JavaScript unescape
' Kenneth H?man, TJ Group AB.
'
Dim i As Integer
Dim strChar As String
Dim strReturn As String

i = 1
strReturn = ""

While Not (i > Len(strIn))
strChar = Mid$(strIn, i, 1)
If Not strChar = "%" Then
strReturn = strReturn & strChar
Else
i = i + 1
strChar = "&H" & Mid$(strIn, i, 2)
strReturn = strReturn & Chr$(Val(strChar))
i = i + 1
End If
i = i + 1
Wend

LSunescape = strReturn

End Function

This was first published in March 2001

Dig deeper on Domino Resources - Part 7

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close