global-functions: add $CharacterReplace

1 files changed, 15 insertions, 0 deletions

diff --git a/global-functions b/global-functions
index 8b7c5b3..50d0eed 100644
--- a/global-functions
+++ b/global-functions
@@ -40,6 +40,21 @@
   :return $Return;
 }
 
+# character replace
+:global CharacterReplace do={
+  :local String [ :tostr $1 ];
+  :local ReplaceFrom [ :tostr $2 ];
+  :local ReplaceWith [ :tostr $3 ];
+  :local Len [ :len $ReplaceFrom ];
+
+  :while ($String ~ $ReplaceFrom) do={
+    :local Pos [ :find $String $ReplaceFrom ];
+    :set String ([ :pick $String 0 $Pos ] . $ReplaceWith . [ :pick $String ($Pos + $Len) 999 ]);
+  }
+
+  :return $String;
+}
+
 # check and import required certificates
 :global CertificateAvailable do={
   :local CommonName [ :tostr $1 ];