[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/Application.xba |   34 +++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

New commits:
commit 2cf83ce830542b5ba50b18958434f89cbd86212b
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sat Oct 3 16:02:25 2015 +0200

    Access2Base - new HtmlEncode property of Application object
    
    Change-Id: I6eb68f78d32b1d73969d37f6991ff0ef3e795606

diff --git a/wizards/source/access2base/Application.xba 
b/wizards/source/access2base/Application.xba
index 70c98db..7a76ed0 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -900,6 +900,40 @@ Error_Function:
 End Function           &apos;  Forms   V0.9.0
 
 REM 
-----------------------------------------------------------------------------------------------------------------------
+Function HtmlEncode(ByVal pvString As Variant, ByVal Optional pvLength As 
Variant) As String
+&apos; Converts a string to an HTML-encoded string.
+
+       If _ErrorHandler() Then On Local Error Goto Error_Function
+Const cstThisSub = &quot;HtmlEncode&quot;
+       Utils._SetCalledSub(cstThisSub)
+
+       HtmlEncode = &quot;&quot;
+
+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 = &quot;&quot;
+       lLength = CLng(pvLength)
+       If Len(pvString) &gt; 0 Then
+               For l = 1 To Len(pvString)
+                       If lLength &gt; 0 And Len(sOutput) &gt; lLength Then 
Exit For
+                       sOutput = sOutput &amp; 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           &apos;  HtmlEncode      V1.4.0
+
+REM 
-----------------------------------------------------------------------------------------------------------------------
 Public Function OpenConnection ( _
                                Optional pvComponent As Variant _
                                , ByVal Optional pvUser As Variant _
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits