Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r5647 -r33938
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 5647)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 33938)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.StringUtils">
+<ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -172,8 +174,195 @@
 <Method name="AddLeadingSpace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..AddLeadingChar(Input," ",Width)
 ]]></Implementation>
 </Method>
+
+<Method name="StandaardBase64NaarBase64url">
+<Description>
+Omzetting van standaard base64 naar "RFC 4648 'base64url' encoding".</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>StandaardBase64String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Base64urlVersie = $TR(StandaardBase64String, "+", "-")
+	Set Base64urlVersie = $TR(Base64urlVersie, "/", "_")
+	Set Base64urlVersie = $TR(Base64urlVersie, "=", "")
+	Quit Base64urlVersie
+]]></Implementation>
+</Method>
+
+<Method name="InList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lijst:%String,Waarde:%String,Delim:%String=";"</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set List = ##class(TECH.ListUtils).PiecesToList(Lijst,Delim)
+	Set InList = ( List.Find(Waarde) > 0 )
+	quit InList
+]]></Implementation>
+</Method>
+
+<Method name="Filler">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Length:%Integer,Char:%String=" "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Filler = ""
+	set $piece(Filler,Char,Length+1)=""
+	quit Filler
+]]></Implementation>
+</Method>
+
+<Method name="Append">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lijst:%String,Waarde:%String,Delim:%String=";"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Lijst = Lijst _ Delim _ Waarde
+	if ($Length(Delim) && ..StartsWith(Lijst,Delim)) set Lijst = $piece(Lijst,Delim,2,$length(Lijst,Delim))
+	quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="Occurrences">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubString:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set AantalPieces = $length(String , SubString)
+	quit $select(AantalPieces>0:AantalPieces-1,1:0)
+]]></Implementation>
+</Method>
+
+<Method name="GetLastPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,$length(String,Delimiter))
+]]></Implementation>
+</Method>
+
+<Method name="GetFirstPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,1)
+]]></Implementation>
+</Method>
+
+<Method name="StripLastPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,1,$length(String,Delimiter)-1)
+]]></Implementation>
+</Method>
+
+<Method name="StripFirstPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,2,$length(String,Delimiter))
+]]></Implementation>
+</Method>
+
+<Method name="Execute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	new ReturnWaarde
+	Xecute "Set ReturnWaarde = "_String
+	Quit ReturnWaarde
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeIndienNietLeeg">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubString:%String,Scheidingsteken:%String=", "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If SubString'= "" {
+		If String'=""{
+			Set String = String_Scheidingsteken
+		}
+		Set String = String_SubString
+	}
+	Quit String
+]]></Implementation>
+</Method>
+
+<Method name="StripAllExceptNumeric">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $zstrip(String,"*E'N")
+]]></Implementation>
+</Method>
+
+<Method name="StripAllNumeric">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $zstrip(String,"*N")
+]]></Implementation>
+</Method>
+
+<Method name="RemoveAllWhitespaces">
+<Description>
+Remove all whitespaces ($C(9), $C(32), $C(160))</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $zstrip(String, "*W")
+]]></Implementation>
+</Method>
+
+<Method name="Contains">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Contains = 0
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.SubStrings)
+	while ( Iterator.HasNext() ) && ( 'Contains ) {
+		Set SubString = Iterator.Next()	
+		set Contains = String[SubString
+	}
+	quit Contains
+]]></Implementation>
+</Method>
+
+<Method name="Equals">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,SubStrings...:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Equals = 0
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.SubStrings)
+	while ( Iterator.HasNext() ) && ( 'Equals ) {
+		Set SubString = Iterator.Next()	
+		set Equals = ( String=SubString) 
+	}
+	quit Equals
+]]></Implementation>
+</Method>
+
+<Method name="IsEmpty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (String = "")
+]]></Implementation>
+</Method>
+
+<Method name="IsNotEmpty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..IsEmpty(String))
+]]></Implementation>
+</Method>
 </Class>
 </Export>