Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r3615 -r3797
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3615)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 3797)
@@ -725,6 +725,14 @@
 	Quit $Translate(Tekst,$Char(9)_$Char(10)_$Char(13)_$Char(0),"    ")
 ]]></Implementation>
 </Method>
+
+<Method name="VervangNietPrintbaarKarakterDoorAnderKarakter">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Tekst:%String,TeVervangenKarakter:%Char,GewenstKarakter:%Char</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Translate(Tekst, TeVervangenKarakter, GewenstKarakter)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/TECH/StringUtils/VervangNietPrintbaarKarakterDoorAnderKarakter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StringUtils/VervangNietPrintbaarKarakterDoorAnderKarakter/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StringUtils/VervangNietPrintbaarKarakterDoorAnderKarakter/Test.cls.xml	(revision 3797)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StringUtils.VervangNietPrintbaarKarakterDoorAnderKarakter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: lege string zonder parameters">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).VervangNietPrintbaarKarakterDoorAnderKarakter("","",""),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: lege string met parameters">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).VervangNietPrintbaarKarakterDoorAnderKarakter("",$$$DummyString_"1",$$$DummyString_"2"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vervang NULL karakter door spatie">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).VervangNietPrintbaarKarakterDoorAnderKarakter($$$DummyString_$Char(0),$Char(0)," "),$$$DummyString_" ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vervang &apos;`&apos; door &apos;&apos;&apos; wanneer &apos;`&apos; niet aanwezig">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).VervangNietPrintbaarKarakterDoorAnderKarakter($$$DummyString,"`","'"),$$$DummyString)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Vervang &apos;`&apos; door &apos;&apos;&apos; wanneer meerdere &apos;`&apos; aanwezig">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).VervangNietPrintbaarKarakterDoorAnderKarakter("`"_$$$DummyString_"`","`","'"),"'"_$$$DummyString_"'")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>