honeymoose
/
mumps-demo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init submit StringReplacement Code for mumps

This commit is contained in:
YuCheng Hu 2024-01-05 21:26:22 -05:00
parent 6643772ab5
commit 037ec7bdfb
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
routines/StringReplacement.m Normal file
View File

@ -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))