Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3449 -r3815
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3449)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3815)
@@ -522,6 +522,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeZonderDuplicatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String1:%String,String2:%String,Delimiter:%String=", "</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(String1 = "") String2
+	Quit:(String2 = "") String1
+
+	Quit:(String1 [ String2) String1   ; String2 niet meer toevoegen, want is reeds aanwezig 
+	Quit:(String2 [ String1) String2   ; String1 niet meer toevoegen, want is reeds aanwezig 
+	
+	Quit String1 _ Delimiter _ String2
+]]></Implementation>
+</Method>
+
 <Method name="StripAllExceptNumeric">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String</FormalSpec>
@@ -657,17 +671,60 @@
 		Do Stream.Write(Iterator.Next())
 	}
 	
-	Quit Stream.Read($SYSTEM.SYS.MaxLocalLength())
+	Quit Stream.Read($SYSTEM.SYS.MaxLocalLength()-1000) // -1000 want MaxLocalLength legt de limiet wel erg krap en op 1000 karakters komt het nu ook niet aan
 ]]></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>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.StringUtils).FirstToUpper(##class(TECH.StringUtils).ToLower(String))
 ]]></Implementation>
 </Method>
+
+<Method name="VervangNietPrintbareKaraktersDoorSpatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Tekst:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Quit $Translate(Tekst,$Char(9)_$Char(10)_$Char(13)_$Char(0),"    ")
+]]></Implementation>
+</Method>
 </Class>