Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3510 -r3517
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3510)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3517)
@@ -661,6 +661,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGetallenInTekst">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Tekst:%String,&GevondenGetallen:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim Einde As %Integer
+	#dim Waarde As %String
+	#Dim Start As %Integer = 0
+	#Dim Getal As %String = ""
+	#dim VorigWasCijfer, HuidigIsCijfer As %Boolean = ""
+	For i=0:1:$Length(Tekst) {
+		Set Karakter = $Extract(Tekst, i,i)
+		Set HuidigIsCijfer = Karakter?1N
+		If VorigWasCijfer {
+			If HuidigIsCijfer {
+				Set Getal = Getal _ Karakter
+			} Else {
+				Set GevondenGetallen(Getal) = "1"
+				Set Getal = ""
+			}
+		} Else {
+			If HuidigIsCijfer {
+				Set Getal = Karakter
+			}
+		}		
+		
+		Set VorigWasCijfer = HuidigIsCijfer
+	}
+	If ("" '= Getal) {
+		Set GevondenGetallen(Getal) = "1"
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ToFirstCase">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String</FormalSpec>