Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r54 -r321
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 54)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 321)
@@ -1,13 +1,15 @@
 <?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>
 
 <Method name="Replace">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>String,F,T,From,Cnt,Continue=0</FormalSpec>
+<FormalSpec>String:%String,F:%String,T:%String,From:%String,Cnt:%String,Continue:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
  	Set P=1
  	For I=1:1:$G(From) Set P=$F(String,F,P) Quit:'P
@@ -24,6 +26,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VervangEuroTeken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String</FormalSpec>
+<Implementation><![CDATA[
+	#define CharEuroTeken   $C(128)
+
+	If String[$$$CharEuroTeken {
+		Set String=..Replace(String,$$$CharEuroTeken,"EUR")
+	}
+	Quit String
+]]></Implementation>
+</Method>
+
 <Method name="StartsWith">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String,StartsWith</FormalSpec>
@@ -90,9 +105,10 @@
 </Method>
 
 <Method name="WildCardToPattern">
+<Description>
+[Previously private]</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>WildCard:%String,StartWith:%String</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	 Set NeedToEnd=0,Pattern="",EscapeChar=0
 
@@ -130,5 +146,186 @@
 	 Quit Pattern
 ]]></Implementation>
 </Method>
+
+<Method name="AlignRight">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Filler:%String,Width:%String</FormalSpec>
+<Implementation><![CDATA[	Quit $Tr($J(Input,Width)," ",Filler)
+]]></Implementation>
+</Method>
+
+<Method name="Trim">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,CharToTrim:%String=" "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..RightTrim(..LeftTrim(Input,CharToTrim),CharToTrim)
+]]></Implementation>
+</Method>
+
+<Method name="LeftTrim">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,CharToTrim:%String=" "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Positie = 1
+	While (..CharAt(Input,Positie) = CharToTrim)
+	{
+		Set Positie = Positie + 1
+	}
+	Quit $Extract(Input,Positie,$Length(Input))
+]]></Implementation>
+</Method>
+
+<Method name="RightTrim">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,CharToTrim:%String=" "</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Positie = $Length(Input)
+	While (..CharAt(Input,Positie) = CharToTrim)
+	{
+		Set Positie = Positie - 1
+	}
+	Quit $Extract(Input,1,Positie)
+]]></Implementation>
+</Method>
+
+<Method name="CharAt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Positie:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(Input, Positie, Positie)
+]]></Implementation>
+</Method>
+
+<Method name="WordWrap">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,CharactersPerLijn:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Input = ..Replace(Input,$$$TAB,"   ") 
+	
+	Set Lijnen = ##class(%ListOfDataTypes).%New()
+	Do Lijnen.Insert("")
+	
+	set InputLijnTeller = 0
+
+	set itInputLijnen = ##class(TECH.PiecesIterator).%New(Input,$$$CRLF)
+	while itInputLijnen.HasNext() {
+		set InputLijnTeller = InputLijnTeller + 1
+		set InputLijn = itInputLijnen.Next()
+		set itWoord = ##class(TECH.PiecesIterator).%New(InputLijn," ")
+		while itWoord.HasNext(){
+			set Woord = itWoord.Next()
+			set HuidigeLijn = Lijnen.Count()
+			set Lijn = Lijnen.GetAt(HuidigeLijn)_Woord_" "
+			If $Length(Lijn) < CharactersPerLijn { 
+				Do Lijnen.SetAt(Lijn,HuidigeLijn)
+			}Else{
+				Do Lijnen.Insert(Woord_" ")
+			}
+		}
+		do Lijnen.SetAt(..RightTrim(Lijnen.GetAt(Lijnen.Size)," "),Lijnen.Size)
+		if InputLijnTeller < $length(Input,$$$CRLF) do Lijnen.Insert("")
+	}
+	quit Lijnen
+]]></Implementation>
+</Method>
+
+<Method name="AddTrailingSpace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[	quit ..AddTrailingChar(Input," ",Width)
+]]></Implementation>
+</Method>
+
+<Method name="AddLeadingChar">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[
+	set result = Input
+	while $length(result) < Width {
+		set result = $extract(Char)_result
+	}
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="AddTrailingChar">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Char:%String=" ",Width:%Integer=50</FormalSpec>
+<Implementation><![CDATA[
+	set result = Input
+	while $length(result) < Width {
+		set result = result _ $extract(Char)
+	}
+	quit result
+]]></Implementation>
+</Method>
+
+<Method name="AddLeadingSpace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Width:%Integer=50</FormalSpec>
+<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= ..Replace(StandaardBase64String, "+", "-")
+	Set Base64urlVersie = ..Replace(Base64urlVersie, "/", "_")
+	Set Base64urlVersie = ..Replace(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="Append">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lijst:%String,Waarde:%String,Delim:%String=";"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Lijst = Lijst _ Delim _ Waarde
+	if ..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="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>
 </Class>
 </Export>