From 037ec7bdfbcc347cf3987be5332a510c63866361 Mon Sep 17 00:00:00 2001
From: YuCheng Hu <huyuchengus@gmail.com>
Date: Fri, 5 Jan 2024 21:26:22 -0500
Subject: [PATCH] init submit StringReplacement Code for mumps

---
 routines/StringReplacement.m | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 routines/StringReplacement.m

diff --git a/routines/StringReplacement.m b/routines/StringReplacement.m
new file mode 100644
index 0000000..50e5cc0
--- /dev/null
+++ b/routines/StringReplacement.m
@@ -0,0 +1,6 @@
+ N I
+ N TOK
+ N OSTR
+ S count=0
+ F I=1:1:$L(str," ") S TOK=$P(str," ",I) S:TOK=old TOK=new S:TOK=new count=count+1 S OSTR=$G(OSTR)_" "_TOK
+ QUIT $E(OSTR,2,$LENGTH(OSTR))