From 2cf83ce830542b5ba50b18958434f89cbd86212b Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sat, 3 Oct 2015 16:02:25 +0200 Subject: Access2Base - new HtmlEncode property of Application object Change-Id: I6eb68f78d32b1d73969d37f6991ff0ef3e795606 --- wizards/source/access2base/Application.xba | 34 ++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'wizards/source') diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 70c98db9b192..7a76ed0ad70a 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -899,6 +899,40 @@ Error_Function: GoTo Exit_Function End Function ' Forms V0.9.0 +REM ----------------------------------------------------------------------------------------------------------------------- +Function HtmlEncode(ByVal pvString As Variant, ByVal Optional pvLength As Variant) As String +' Converts a string to an HTML-encoded string. + + If _ErrorHandler() Then On Local Error Goto Error_Function +Const cstThisSub = "HtmlEncode" + Utils._SetCalledSub(cstThisSub) + + HtmlEncode = "" + +Dim sOutput As String, l As Long, lLength As Long + If IsMissing(pvLength) Then pvLength = 0 + If Not Utils._CheckArgument(pvString, 1, vbString) Then Goto Exit_Function + If Not Utils._CheckArgument(pvLength, 1, _AddNumeric()) Then Goto Exit_Function + + sOutput = "" + lLength = CLng(pvLength) + If Len(pvString) > 0 Then + For l = 1 To Len(pvString) + If lLength > 0 And Len(sOutput) > lLength Then Exit For + sOutput = sOutput & Utils._UTF8Encode(Mid(pvString, l, 1) + Next l + End If + + HtmlEncode = sOutput + +Exit_Function: + Utils._ResetCalledSub(cstThisSub) + Exit Function +Error_Function: + TraceError(TRACEABORT, Err, cstThisSub, Erl) + GoTo Exit_Function +End Function ' HtmlEncode V1.4.0 + REM ----------------------------------------------------------------------------------------------------------------------- Public Function OpenConnection ( _ Optional pvComponent As Variant _ -- cgit