//a short comment about the program
/*
A longer comment about the function of the program.
*/
string appName ="VBScript.RegExp"
OleAutoObj RegExpObj = oleCreateAutoObject(appName)
if (null (RegExpObj)) error "Cannot connect to OLE Application >"appName"<!"

OleAutoObj MatchesColl
OleAutoObj MatchObj
OleAutoObj SubMatchesColl
OleAutoArgs args = create
Regexp Escapes = regexp "(\"|\\(|\\)|\\[|\\]|\\.|\\^|\\||\\$|\\+|\\*|\\\\|?)"

void addEscapesForRegexp(string &txt) {
	if ( txt == "" ) return

	Buffer b = create
	int i = 0

	while ( Escapes txt[i:] ) {
		b += txt[i:i+start(0)-1]
		if( txt[i+start(0):i+end(0)] =="\\\\") b += "\\\\\\\\"
		elseif ( txt[i+start(0):i+end(0)] == txt[i:][match 0] ) b += "\\" txt[i+start(0):i+end(0)]
		else b += txt[i+start(0):i+end(0)]
		i += (end 0)+1
	}
	b += txt[i:]
	txt = stringOf b
	delete(b)
}

string VBReplace(string inStr, FindStr, RepStr, bool IgnoreCase) {
	string Str=""
	clear args
	addEscapesForRegexp(FindStr)
	olePut(RegExpObj,"Global",true)
	olePut(RegExpObj,"Pattern",FindStr)
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	put(args, inStr)
	put(args, RepStr)
	oleMethod(RegExpObj,"Replace",args,Str)
	return Str
}

void ReturnSubMatches( Skip PassedSkip, string inStr, FindPattern, int SubMatchNum, bool IgnoreCase) {
	string SubMatch
	clear args
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	olePut(RegExpObj,"Global",true)
	int NumOfMatches=0,i,j=0

	olePut(RegExpObj,"Pattern",FindPattern)
	put(args, inStr)
	oleMethod(RegExpObj,"Execute",args,MatchesColl)
	oleGet(MatchesColl,"Count",NumOfMatches)

	if(NumOfMatches==0) return

	for(i=0;i<NumOfMatches;i++) {
		clear args; put(args,i)
	    oleGet(MatchesColl,"Item",args,MatchObj)

	    oleGet(MatchObj,"SubMatches",SubMatchesColl)
	    clear args; put(args,SubMatchNum)
	    oleGet(SubMatchesColl,"Item",args,SubMatch)

	    if(!null SubMatch) {
	        if(!find(PassedSkip,SubMatch)) {
				put(PassedSkip,SubMatch,SubMatch)
			}
		}
	}
	MatchesColl =null
	MatchObj =null
	SubMatchesColl=null
}

string ReturnFirstSubMatch( string inStr, FindPattern, int SubMatchNum, bool IgnoreCase) {
	string SubMatch
	clear args
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	olePut(RegExpObj,"Global",false)
	int NumOfMatches=0,i,j=0

	olePut(RegExpObj,"Pattern",FindPattern)
	put(args, inStr)
	oleMethod(RegExpObj,"Execute",args,MatchesColl)
	oleGet(MatchesColl,"Count",NumOfMatches)
	if(NumOfMatches==0) return ""
	clear args; put(args,0)
    oleGet(MatchesColl,"Item",args,MatchObj)

    oleGet(MatchObj,"SubMatches",SubMatchesColl)
    clear args; put(args,SubMatchNum)
    oleGet(SubMatchesColl,"Item",args,SubMatch)

    if(null SubMatch) return ""

	MatchesColl =null
	MatchObj =null
	SubMatchesColl=null
	return SubMatch
}

string ReturnFirstMatch( string inStr, FindPattern, bool IgnoreCase) {
	string MatchStr
	clear args
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	olePut(RegExpObj,"Global",false)
	int NumOfMatches=0,i,j=0

	olePut(RegExpObj,"Pattern",FindPattern)
	put(args, inStr)
	oleMethod(RegExpObj,"Execute",args,MatchesColl)
	oleGet(MatchesColl,"Count",NumOfMatches)
	if(NumOfMatches==0) return ""

	clear args; put(args,0)
    oleGet(MatchesColl,"Item",args,MatchObj)
    oleGet(MatchObj,"Value",MatchStr)
	if(null MatchStr) return ""

	MatchesColl =null
	MatchObj =null
	return MatchStr
}


void ReturnMatches( Skip PassedSkip, string inStr, FindPattern, bool IgnoreCase) {
	string MatchStr
	clear args
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	olePut(RegExpObj,"Global",true)
	int NumOfMatches=0,i,j=0

	olePut(RegExpObj,"Pattern",FindPattern)
	put(args, inStr)
	oleMethod(RegExpObj,"Execute",args,MatchesColl)
	oleGet(MatchesColl,"Count",NumOfMatches)

	if(NumOfMatches==0) return

	for(i=0;i<NumOfMatches;i++) {
		clear args; put(args,i)
	    oleGet(MatchesColl,"Item",args,MatchObj)

	    oleGet(MatchObj,"Value",MatchStr)
	    if(!null MatchStr) {
	        if(!find(PassedSkip,MatchStr)) {
				put(PassedSkip,MatchStr,MatchStr)
			}
		}
	}
	MatchesColl =null
	MatchObj =null
}


void ReturnUnsortedMatches( Skip PassedSkip, string inStr, FindPattern, bool IgnoreCase) {
	string MatchStr
	clear args
	olePut(RegExpObj,"IgnoreCase",IgnoreCase)
	olePut(RegExpObj,"Global",true)
	int NumOfMatches=0,i,j=0

	olePut(RegExpObj,"Pattern",FindPattern)
	put(args, inStr)
	oleMethod(RegExpObj,"Execute",args,MatchesColl)
	oleGet(MatchesColl,"Count",NumOfMatches)

	if(NumOfMatches==0) return

	for(i=0;i<NumOfMatches;i++) {
		clear args; put(args,i)
	    oleGet(MatchesColl,"Item",args,MatchObj)

	    oleGet(MatchObj,"Value",MatchStr)
	    if(!null MatchStr) {
	        if(!find(PassedSkip,MatchStr)) {
				put(PassedSkip,i,MatchStr)
			}
		}
	}
	MatchesColl =null
	MatchObj =null
}


void Test() {
	Skip Tester = createString
	string s
	ReturnMatches(Tester,"((NOT ((Object Text Contains 'DELETED' ) OR (Object Heading Contains 'DELETED' ))) AND (RM Type == Requirement)) AND (NOT ((((((evidence compliance state == PLANNED (?P)) OR (evidence compliance state == IN PROGRESS (?D))) OR (evidence compliance state == BEING ASSESSED (?A))) OR (evidence compliance state == BEING REWORKED (?E))) OR (evidence compliance state == EXCEPTION)) OR (evidence compliance state == COMPLIANT)))","\\(*([^\\)\\(]+) (Contains |CONTAINS |>= |> |<= |< |!= |== |is empty|is not empty)",false)
	ReturnSubMatches(Tester,"(((NOT ((Object Text Contains 'DELETED' ) OR (Object Heading Contains 'DELETED' ))) AND (RM Type == Requirement)) AND (Has in-links through <Non-existent link module>)) AND (NOT (demo code includes DTG))","\\(*([^\\)\\(]+) (Contains |CONTAINS |>= |> |<= |< |!= |== |is empty|is not empty)",0,false)
	// print ReturnFirstSubMatch("((NOT ((Object Text Contains 'DELETED' ) OR (Object Heading Contains 'DELETED' ))) AND (RM Type == Requirement)) AND (NOT ((((((evidence compliance state == PLANNED (?P)) OR (evidence compliance state == IN PROGRESS (?D))) OR (evidence compliance state == BEING ASSESSED (?A))) OR (evidence compliance state == BEING REWORKED (?E))) OR (evidence compliance state == EXCEPTION)) OR (evidence compliance state == COMPLIANT)))","\\(*([^\\)\\(]+) (Contains |CONTAINS |>= |> |<= |< |!= |== |is empty|is not empty)",0,false)
	// print ReturnFirstMatch("((NOT ((Object Text Contains 'DELETED' ) OR (Object Heading Contains 'DELETED' ))) AND (RM Type == Requirement)) AND (NOT ((((((evidence compliance state == PLANNED (?P)) OR (evidence compliance state == IN PROGRESS (?D))) OR (evidence compliance state == BEING ASSESSED (?A))) OR (evidence compliance state == BEING REWORKED (?E))) OR (evidence compliance state == EXCEPTION)) OR (evidence compliance state == COMPLIANT)))","\\(*([^\\)\\(]+) (Contains |CONTAINS |>= |> |<= |< |!= |== |is empty|is not empty)",false)
	for s in Tester do // print s "\n"
	delete Tester
}
//Test