Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r321 -r687
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 321)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 687)
@@ -2,9 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="TECH.StringUtils">
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Replace">
@@ -327,5 +326,63 @@
 	Quit ReturnWaarde
 ]]></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="Ellipsis">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,MaxLength:%Integer,EllipsisSign:%String="~"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ($Length(String) > MaxLength) {
+		Set String = $Extract(String,1,MaxLength-$L(EllipsisSign)) _ EllipsisSign
+	}
+	Quit String
+]]></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>