Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r924 -r946
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 924)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 946)
@@ -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-03-08 15:39:03">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 09:33:32">
 <Class name="TECH.StringUtils">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62158,56342.61432</TimeChanged>
+<TimeChanged>62164,34491.061469</TimeChanged>
 <TimeCreated>62118,40201.439469</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -32,34 +32,6 @@
 <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="677920193"/>
+<Checksum value="2567831881"/>
 </Export>