Subversion Repositories Applications.papyrus

<!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 *              http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 *              http://www.fckeditor.net/
 * 
 * "Support Open Source software. What about a donation today?"
 * 
 * File Name: util.asp
 *      This file include generic functions used by the ASP Connector.
 * 
 * File Authors:
 *              Frederico Caldeira Knabben (fredck@fckeditor.net)
-->
<%
Function RemoveFromStart( sourceString, charToRemove )
        Dim oRegex
        Set oRegex = New RegExp
        oRegex.Pattern = "^" & charToRemove & "+"

        RemoveFromStart = oRegex.Replace( sourceString, "" )
End Function

Function RemoveFromEnd( sourceString, charToRemove )
        Dim oRegex
        Set oRegex = New RegExp
        oRegex.Pattern = charToRemove & "+$"

        RemoveFromEnd = oRegex.Replace( sourceString, "" )
End Function

Function ConvertToXmlAttribute( value )
        ConvertToXmlAttribute = Replace( value, "&", "&amp;" )
End Function

Function InArray( value, sourceArray )
        Dim i
        For i = 0 to UBound( sourceArray )
                If sourceArray(i) = value Then
                        InArray = True
                        Exit Function
                End If
        Next
        InArray = False
End Function

%>