Add function for split of string by string delimiter

embddr/common.scm

@@ -19,6 +19,7 @@
           has-duplicates? find-duplicates
           insert-between
           string-replace-text
+          string-split-str
           string-split-trim
           get-word
           substitute
@@ -220,6 +221,18 @@
            (substitute str template-format subst-list))
          ls)))
 
+;;; Split string by string delimiter
+(define (string-split-str str str_pred)
+  (if (string-null? str)
+      '()
+      (let ((didx (string-contains str str_pred)))
+        (if didx
+            (cons (substring str 0 didx)
+                  (string-split-str
+                   (substring str (+ didx (string-length str_pred)))
+                   str_pred))
+            (list str)))))
+
 ;;; Split string and remove empty itemes
 (define (string-split-trim str pred?)
   (remove string-null?