cRegex.pkg

// cRegex class v1.03:
// By Erik Svensson, posted on eriksven.com in March 2013
// License: MIT

Define cREGEX_INCLUDED for 1

// Visual DataFlex COM proxy classes generated from C:\Windows\system32\vbscript.dll\2
Use FlexCom20.pkg

// CLSID: {3F4DACA0-160D-11D2-A8E9-00104B365C9F}
Class cComIRegularExpressions is a Mixin

    { MethodType=Property DesignTime=False }
    Function ComPattern Returns String
        Handle hDispatchDriver
        String retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 10001 OLE_VT_BSTR to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComPattern String value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 10001 OLE_VT_BSTR to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComIgnoreCase Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 10002 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComIgnoreCase Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 10002 OLE_VT_BOOL to value
    End_Procedure

    { MethodType=Property DesignTime=False }
    Function ComGlobal Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 10003 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Procedure Set ComGlobal Boolean value
        Handle hDispatchDriver
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Set ComProperty of hDispatchDriver 10003 OLE_VT_BOOL to value
    End_Procedure

    Function ComExecute String llsourceString Returns Variant
        Handle hDispatchDriver
        Variant retVal
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsourceString
        Get InvokeComMethod of hDispatchDriver 10004 OLE_VT_DISPATCH to retVal
        Function_Return retVal
    End_Function

    Function ComTest String llsourceString Returns Boolean
        Handle hDispatchDriver
        Boolean retVal
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsourceString
        Get InvokeComMethod of hDispatchDriver 10005 OLE_VT_BOOL to retVal
        Function_Return retVal
    End_Function

    Function ComReplace String llsourceString String llreplaceString Returns String
        Handle hDispatchDriver
        String retVal
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 2
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llsourceString
        Send DefineParam to hDispatchDriver OLE_VT_BSTR llreplaceString
        Get InvokeComMethod of hDispatchDriver 10006 OLE_VT_BSTR to retVal
        Function_Return retVal
    End_Function
End_Class

// CoClass
// ProgID: VBScript.RegExp
// CLSID: {3F4DACA4-160D-11D2-A8E9-00104B365C9F}
Class cComRegularExpressions is a cComAutomationObject
    Import_Class_Protocol cComIRegularExpressions

    Procedure Construct_Object
        Forward Send Construct_Object
        Set psProgID to "{3F4DACA4-160D-11D2-A8E9-00104B365C9F}"
        Set peAutoCreate to acNoAutoCreate
    End_Procedure
End_Class

// CLSID: {3F4DACA1-160D-11D2-A8E9-00104B365C9F}
Class cComIRegExMatch is a Mixin

    { MethodType=Property DesignTime=False }
    Function ComValue Returns String
        Handle hDispatchDriver
        String retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Function ComFirstIndex Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 10001 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Function ComLength Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 10002 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function
End_Class

// CoClass
// CLSID: {3F4DACA5-160D-11D2-A8E9-00104B365C9F}
Class cComRegExMatch is a cComAutomationObject
    Import_Class_Protocol cComIRegExMatch

    Procedure Construct_Object
        Forward Send Construct_Object
        Set peAutoCreate to acNoAutoCreate
    End_Procedure
End_Class

// CLSID: {3F4DACA2-160D-11D2-A8E9-00104B365C9F}
Class cComIRegExMatchCollection is a Mixin

    { MethodType=Property DesignTime=False }
    Function ComItem Integer llindex Returns Variant
        Handle hDispatchDriver
        Variant retVal
        Get phDispatchDriver to hDispatchDriver
        Send PrepareParams to hDispatchDriver 1
        Send DefineParam to hDispatchDriver OLE_VT_I4 llindex
        Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Function ComCount Returns Integer
        Handle hDispatchDriver
        Integer retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
        Function_Return retVal
    End_Function

    { MethodType=Property DesignTime=False }
    Function Com_NewEnum Returns Variant
        Handle hDispatchDriver
        Variant retVal
        Get phDispatchDriver to hDispatchDriver
        Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
        Function_Return retVal
    End_Function
End_Class

// CoClass
// CLSID: {3F4DACA6-160D-11D2-A8E9-00104B365C9F}
Class cComRegExMatchCollection is a cComAutomationObject
    Import_Class_Protocol cComIRegExMatchCollection

    Procedure Construct_Object
        Forward Send Construct_Object
        Set peAutoCreate to acNoAutoCreate
    End_Procedure
End_Class

//Wrapper
Class cRegularExpressions is a cObject
    
    Procedure Construct_Object
        Variant vMyVar
        Handle hoRegExp
        
        Forward Send Construct_Object

        Property String  psPattern ""
        Property Boolean pbIgnoreCase False
        Property Handle  phRegex 0
        Property Boolean pbGlobalFind False

        Get Create U_cComRegularExpressions to hoRegExp
        Send CreateComObject of hoRegExp

        Set phRegex to hoRegExp
        
    End_Procedure

    Procedure Set Pattern String sPattern
        Set psPattern to sPattern
        Set ComPattern of (phRegex(Self)) to sPattern
    End_Procedure
    
    Procedure Set IgnoreCase Boolean bVal
        Set ComIgnoreCase of (phRegex(Self)) to bVal
    End_Procedure

    Procedure Set GlobalFind Boolean bVal
        Set ComGlobal of (phRegex(Self)) to bVal
    End_Procedure
    
    Function Test String sSource Returns Boolean
        Function_Return (ComTest(phRegex(Self),sSource))
    End_Procedure

    Function StringReplace String sSource String sWith Returns String
        Function_Return (ComReplace(phRegex(Self),sSource,sWith))
    End_Function

End_Class

//Global functions
Function Regex_Replace Global String sSource String sReplaceWith String sPattern Boolean bIgnoreCase Returns String
    Handle hRegEx
    String sRetVal
    
    Get Create U_cRegularExpressions to hRegEx
    If (hRegEx > 0) Begin
        If (num_arguments = 4) Begin
            Set IgnoreCase of hRegEx to bIgnoreCase
        End
        Set Pattern of hRegEx to sPattern
        Set GlobalFind of hRegEx to True
        Get StringReplace of hRegEx sSource sReplaceWith to sRetVal
        Send Destroy of hRegEx
    End
    Else Begin
        Error 999 "Cound not instatiate cRegex class"
    End
    
    Function_Return sRetVal
    
End_Function

Function Regex_IsMatch Global String sInput String sPattern Boolean bIgnoreCase Returns Boolean
    Handle hRegEx
    Boolean bIsMatch
    
    Get Create U_cRegularExpressions to hRegEx
    If (hRegEx > 0) Begin
        If (num_arguments = 3) Begin
            Set IgnoreCase of hRegEx to bIgnoreCase
        End
        Set Pattern of hRegEx to sPattern
        Set GlobalFind of hRegEx to True
        Get Test of hRegEx (Trim(sInput)) to bIsMatch
        Send Destroy of hRegEx
    End
    Else Begin
        Error 999 "Cound not instatiate cRegex class"
    End
    
    Function_Return bIsMatch
    
End_Function

Struct tRegexMatch
    String Val
    Integer FirstIndex
    Integer Length
End_Struct

Function Regex_Match Global String sInput String sPattern Boolean bIgnoreCase Returns tRegexMatch[]
    String sValue
    Variant vMatchCollection vMatch
    Integer iItems iItem iFirstIndex iLength
    Handle hMatchCollection hRegEx hMatch
    tRegexMatch match null
    tRegexMatch[] matchArr

    Get Create U_cRegularExpressions to hRegEx

    If (hRegEx > 0) Begin
        If (num_arguments = 3) Begin
            Set IgnoreCase of hRegEx to bIgnoreCase
        End
        Set Pattern of hRegEx to sPattern
        Set GlobalFind of hRegEx to True
        Get Create U_cComRegExMatchCollection to hMatchCollection
        Get ComExecute of (phRegex(hRegEx)) sInput to vMatchCollection
        Set pvComObject of hMatchCollection to vMatchCollection
        Get ComCount of hMatchCollection to iItems
        For iItem from 1 to iItems
            Get Create U_cComRegExMatch to hMatch
            Get ComItem of hMatchCollection (iItem-1) to vMatch
            Set pvComObject of hMatch to vMatch
            Get ComValue of hMatch to match.Val
            Get ComFirstIndex of hMatch to match.FirstIndex
            Get ComLength of hMatch to match.Length
            Move match to matchArr[SizeOfArray(matchArr)]
            Send Destroy of hMatch
        Loop
        Send Destroy of hMatchCollection
        Send Destroy of hRegEx
    End
    Else Begin
        Error 999 "Cound not instatiate cRegex class"
    End
    
    Function_Return matchArr

End_Function