np/embddr-scheme-library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add function for split of string by string delimiter

Browse Source
This commit is contained in:
Nikolay Puzanov 2023-02-02 18:00:16 +03:00
parent f9f22f4f31
commit 4fb8185bdc
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
embddr/common.scm
View File

@ -19,6 +19,7 @@
has-duplicates? find-duplicates has-duplicates? find-duplicates
insert-between insert-between
string-replace-text string-replace-text
string-split-str
string-split-trim string-split-trim
get-word get-word
substitute substitute
@ -220,6 +221,18 @@
(substitute str template-format subst-list)) (substitute str template-format subst-list))
ls))) 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 ;;; Split string and remove empty itemes
(define (string-split-trim str pred?) (define (string-split-trim str pred?)
(remove string-null? (remove string-null?