Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r28 -r54
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 28)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 54)
@@ -62,5 +62,73 @@
 <Implementation><![CDATA[	Quit $ZCVT(String,"I","HTML")
 ]]></Implementation>
 </Method>
+
+<Method name="MatchesPattern">
+<Description>
+Nagaan of Input match aan het opgegeven pattern.
+Volgende mogelijkheden
+* : 0 of meer characters
+? : exact 1 character
+
+Voorbeelden
+w ##class(TECH.StringUtils).MatchesWildCard("abcmqsldkfmlsqkfjdef","abc*def")
+w ##class(TECH.StringUtils).MatchesWildCard("adm","a?m")
+w ##class(TECH.StringUtils).MatchesPattern("a1mqsfd","a?m*")
+</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Pattern:%String,CaseSensitive:%Boolean=0</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	new tmpPattern, PatternOK , Code
+	If ('CaseSensitive){
+		set Input = $zconvert(Input,"U"),Pattern=$zconvert(Pattern,"U")
+	}
+	set tmpPattern = ..WildCardToPattern(Pattern)
+	set Code = "set PatternOK = Input?"_tmpPattern	xecute Code
+	quit PatternOK
+]]></Implementation>
+</Method>
+
+<Method name="WildCardToPattern">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WildCard:%String,StartWith:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	 Set NeedToEnd=0,Pattern="",EscapeChar=0
+
+	 If $E(WildCard)="§" Quit $E(WildCard,2,999) ; Zelf patternmatch ingegeven ipv van wildcard
+
+	 For Pos=1:1:$L(WildCard) Do
+	 . Set CurChar=$E(WildCard,Pos)
+	 . If (CurChar="\") && 'EscapeChar Do  Quit
+	 ..  Set EscapeChar=1
+	 . Else  If (CurChar="*") && 'EscapeChar Do
+	 ..  If NeedToEnd Do
+	 ...   Set Pattern=Pattern_""""
+	 ...   Set NeedToEnd=0
+	 ..  Set Pattern=Pattern_".E"
+	 . Else  If (CurChar="?") && 'EscapeChar Do
+	 ..  If NeedToEnd Do
+	 ...   Set Pattern=Pattern_""""
+	 ...   Set NeedToEnd=0
+	 ..  Set Pattern=Pattern_"1E"
+	 . Else  Do
+	 ..  If 'NeedToEnd Do
+	 ...   Set NeedToEnd=1
+	 ...  Set Pattern=Pattern_"1"""_CurChar
+	 ..  Else  Do
+	 ...  Set Pattern=Pattern_CurChar
+	 ..  Set EscapeChar=0
+
+	 If NeedToEnd Do
+	 . Set Pattern=Pattern_""""
+
+	 If $G(StartWith) Do
+	 . Set PatternLen=$L(Pattern)
+	 . Set:($E(Pattern,PatternLen-1,PatternLen)'=".E") Pattern=Pattern_".E"
+
+	 Quit Pattern
+]]></Implementation>
+</Method>
 </Class>
 </Export>