Index: vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StreamUtils/Replace/Test.cls.xml	(revision 1543)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StreamUtils.Replace.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+
+	set Stream = ##class(%GlobalCharacterStream).%New()	
+	#dim Counter As %Integer = 0
+	for Counter= 1 : 1 : 25 { 
+		do Stream.WriteLine("This is a test line the line number is "_Counter)
+	}
+	
+	#dim StreamSize As %Integer = Stream.Size
+	
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
+	
+	do ##class(TECH.StreamUtils).Replace(Stream,"line number is 15","line number is 99")
+	do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 15"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line number is 99"),"")
+	
+	do ##class(TECH.StreamUtils).Replace(Stream," ","*")
+	do $$$AssertEquals(Stream.Size,StreamSize,"")	
+	
+	do $$$AssertFalse(##class(TECH.StreamUtils).IsTextInStream(Stream," "),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(Stream,"line*number*is*11"),"")
+	
+	do ##class(TECH.StreamUtils).Replace(Stream,"*","**")
+	do $$$AssertNotEquals(Stream.Size,StreamSize,"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/StreamUtils.cls.xml
===================================================================
diff -u
--- TECH/StreamUtils.cls.xml	(revision 0)
+++ TECH/StreamUtils.cls.xml	(revision 1543)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.StreamUtils">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="IsTextInStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Stream:%Stream.Object,Text:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsTextInStream As %Boolean = 0
+	do Stream.Rewind()
+	while ('Stream.AtEnd) && ('IsTextInStream) {
+		#dim Line As %String = Stream.ReadLine()
+		set IsTextInStream = ( Line[Text )
+	}
+	do Stream.Rewind()
+	
+	quit IsTextInStream
+]]></Implementation>
+</Method>
+
+<Method name="Replace">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Stream:%Stream.Object,Search:%String,Replace:%String</FormalSpec>
+<Implementation><![CDATA[
+	set tmpStream = ##class(%GlobalCharacterStream).%New()
+	set tmpStream.LineTerminator = Stream.LineTerminator
+	do Stream.Rewind()
+	while 'Stream.AtEnd {
+		#dim String As %String = Stream.ReadLine()
+		do tmpStream.WriteLine(##class(TECH.StringUtils).Replace(String,.Search,.Replace))
+	}	
+	do Stream.Clear()
+	do Stream.CopyFrom(tmpStream)
+	do Stream.Rewind()
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>