findstring

I've written this to find a part of text within a string;

(defun findstring (fnd str / tel val)
(setq fnd (strcase fnd) str (strcase str) tel 1)
(while (and tel (/= str ""))
(if (= (substr str tel (strlen fnd)) fnd)
(setq val tel tel nil)
(if (= tel (strlen str))
(setq tel nil val nil)
(setq tel (1+ tel))
) )
) (eval val)
)

Might there already be a command for this?

M

 

Hi Marcel

See 'vl-string-search' in my previous answer...

Cheers

 

Likewise, FIND.

 

I'm. talking about lisp here!

 

wcmatch

 

Code:

  (defun search (fn st strt / hit rtn)
(setq hit (vl-string-search (strcase fn) (strcase st) strt))
(if hit
(setq rtn (cons hit (search fn st (1+ hit))))
'()
)
)
(cond ((> (length (setq rtn (search fnd str 0))) 0) rtn) (nil))
)


(defun c:test (/ fnd str)
(setq str "the cat found a intricate path")
(princ "\nx -> ")
(princ (setq hits (findstring "x" str)))
(princ "\ncat -> ")
(princ (setq hits (findstring "cat" str)))
(princ "\nth -> ")
(princ (setq hits (findstring "th" str)))
(princ "\nth -> ")
(princ (setq hits (findstring "a" "aaaaa")))
(princ)
)

 

Forgot about this one.
Why reinvent the wheel right?