Topic: string manipulation

[CAB]

It is better to find approximate solution to an exact problem than to find an exact solution to approximate problem.

Author Unknown

[matrix2005in]

hi

this is what i want excellent code...thanks verymuch

[Jeff_M]

I want excellent code, too, but alas, all I have is me to write it ..... 

mathew, a well placed period "." or comma "," would change the meaning of that sentence quite a bit....

Kerry, I knew we were right and Jon was missing the mark.  :kewl:

CAB, well quoted!

[Andrea]

this is mine...

Code: [Select]

(setq t1 "ABCDEFGHIJK")
(setq list2 nil)
(while (/= t1 "")
  (setq list1 (substr t1 1 3))
  (setq list2 (append list2 (list list1)))
  (setq t1 (substr t1 4))
)
(foreach n list2
  (if (not text1)(setq text1 " "))
  (setq text1 (strcat text1 " " n))
)
(setq text2 (substr text1 3))

text2 = "ABC DEF GHI JK"

list2 = ("ABC" "DEF" "GHI" "JK")

[Kerry]

hi

...thanks verymuch

Have a play with this too .. though not as easy to understand, perhaps ..

Code: [Select]

;;---------------------------------------------------------------------------
(DEFUN numsOnly (str /)
    (VL-LIST->STRING (VL-REMOVE-IF-NOT '(LAMBDA (n) (AND (> n 47) (< n 58)))
                                       (VL-STRING->LIST str)
                     )
    )
)
;;---------------------------------------------------------------------------

[ElpanovEvgeniy]

Code: [Select]

(defun test (str)
  ; Not used VL-...
  (if (= str "")
    ""
    (if (< 47 (ascii str) 58)
      (strcat
(substr str 1 1)
(test (substr str 2))
      ) ;_  strcat
      (test (substr str 2))
    ) ;_  if
  ) ;_  if
) ;_  defun