Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3280 -r3815
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3280)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3815)
@@ -59,6 +59,7 @@
 <Method name="StartsWith">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim StartsWith As %Boolean = 0
 	
@@ -353,8 +354,11 @@
 		If $Length(Woord) > CharactersPerWoord {
 			Set Lijn = Lijn _$Extract(Woord, 1, CharactersPerWoord) _Delimiter
 			Set Woord = $Extract(Woord, CharactersPerWoord+1, *)
-		} 
-		Set Lijn = Lijn _Woord _Delimiter
+			Set Woord = ..SplitLongWord(Woord, CharactersPerWoord, Delimiter)
+		} Else {
+			Set Woord = Woord _Delimiter
+		}
+		Set Lijn = Lijn _Woord
 	}
 	quit Lijn
 ]]></Implementation>
@@ -518,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>
@@ -640,6 +658,73 @@
 	Quit Text
 ]]></Implementation>
 </Method>
+
+<Method name="Concatenate">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Strings...:%CacheString</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = ##class(TECH.ArrayMultiDimIterator).%New(.Strings)
+	#dim Stream As %Stream = ##class(%GlobalCharacterStream).%New()
+	
+	While (Iterator.HasNext()) {
+		Do Stream.Write(Iterator.Next())
+	}
+	
+	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>