Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r788 -r924
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 788)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 924)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 16:56:50">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 15:39:03">
 <Class name="TECH.StringUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62122,53431.034896</TimeChanged>
+<TimeChanged>62158,56342.61432</TimeChanged>
 <TimeCreated>62118,40201.439469</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -32,6 +32,34 @@
 <Implementation><![CDATA[	quit (($P(String,StartsWith,1)="")&&($L(String)))
 ]]></Implementation>
 </Method>
+
+<Method name="ReplaceBetween">
+<Description>
+Vervangt alle "Search" items door de "Replace" items die zich bevinden tussen de prefix en de suffix
+Bv: 
+ReplaceBetween("...[Iets]....[Iets]....Iets...","[","]","Iets","Niets")
+wordt "...[Niets]....[Niets]....Iets..."</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Prefix:%String,Suffix:%String,Search:%String,Replace:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = $Length(String,Prefix)
+	Set Find = 1
+	For i = 1:1:Aantal-1
+	{
+		Set Gevonden = $Piece($Piece($Extract(String,Find,$Length(String)),Prefix,2),Suffix)
+		Set Find = $Find(String,Prefix,Find)
+		If ($Extract(String,Find+$Length(Gevonden),Find+$Length(Gevonden)) = Suffix)
+		{
+			If ($Extract(String,Find,Find+$Length(Gevonden)-1) = Search)
+			{
+				Set $Extract(String,Find,Find+$Length(Gevonden)-1) = Replace
+			}
+		}
+	}
+	Quit String
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1429247905"/>
+<Checksum value="677920193"/>
 </Export>