Topic: Make strange string in to a list?

[jeff101217]

hi! everybody,i have a question as follow,need your help

i use autolisp created these strings by reading a text data as follow;

"*jsyq_g_list*G1*G2*G3*G4*G5*"
"*jsyq_p_list*P1*P2*P3*P4*P5*P6*"
"*jsyq_e_list*E1*E2*E3*E4*E5*E6*E7*"
"*jsyq_m_list*M1*M2*M3*M4*M5*M6*M7*M8*"
"*jsyq_h_list*H1*H2*H3*H4*H5*H6*H7*H8*H9*"
"*jsyq_b_list*B1*B2*B3*B4*B5*B6*B7*B8*B9*B10*"

i want change these strings in to string lists as follow

("jsyq_g_list""G1""G2""G3""G4""G5")
("jsyq_p_list""P1""P2""P3""P4""P5""P6")
("jsyq_e_list""E1""E2""E3""E4""E5""E6""E7")
("jsyq_m_list""M1""M2""M3""M4""M5""M6""M7""M8")
("jsyq_h_list""H1""H2""H3""H4""H5""H6""H7""H8""H9")
("jsyq_b_list""B1""B2""B3""B4""B5""B6""B7""B8""B9""B10")

i though this problem for a few days ,can't get the ansewer,
is there any easy ways to solve this?

thanks!

[MP]

What was the original question posed by your teacher?

[jeff101217]

What was the original question posed by your teacher?

not my teacher's question , i want have a program which can read some items with some rules in the textbook,and put these items in to a dcl list box;

[MP]

Show us what have you developed so far.

[jeff101217]

Show us what have you developed so far.

my program ,

(defun jsyq_read_basic_data()
  (setq jsyq_read_data_circle_check 0)
  (setq jsyq_read_data_text (open "c:\\lisp\\Datas\\jsyq_datas.txt" "r"))
  (setq jsyq_data_list '() jsyq_read_str 0)
  (while (= jsyq_read_data_circle_check 0)
    (if (/= jsyq_read_str nil)
      (progn
   (setq jsyq_read_str (read-line jsyq_read_data_text))
   (setq jsyq_data_list (cons jsyq_read_str jsyq_data_list))
   )
   (setq jsyq_read_data_circle_check 1)
      )
    )
  (setq jsyq_data_list (cdr jsyq_data_list))
  (setq jsyq_data_basic_g_list (cadr (cddddr jsyq_data_list)))
  (setq jsyq_data_basic_p_list (car (cddddr jsyq_data_list)))
  (setq jsyq_data_basic_e_list (car (cdddr jsyq_data_list)))
  (setq jsyq_data_basic_m_list (car (cddr jsyq_data_list)))
  (setq jsyq_data_basic_h_list (car (cdr jsyq_data_list)))
  (setq jsyq_data_basic_b_list (car jsyq_data_list))
  
  )

the items in the textbook

*jsyq_g_list*G1*G2*G3*G4*G5*
*jsyq_p_list*P1*P2*P3*P4*P5*P6*
*jsyq_e_list*E1*E2*E3*E4*E5*E6*E7*
*jsyq_m_list*M1*M2*M3*M4*M5*M6*M7*M8*
*jsyq_h_list*H1*H2*H3*H4*H5*H6*H7*H8*H9*
*jsyq_b_list*B1*B2*B3*B4*B5*B6*B7*B8*B9*B10*

[VovKa]

Code: [Select]

(defun vk_StringSubstPat (NewPattern Pattern String / Pos NewPatternLen)
  (setq NewPatternLen (strlen NewPattern))
  (while (setq Pos (vl-string-search Pattern String Pos))
    (setq String (vl-string-subst NewPattern Pattern String Pos))
    (setq Pos (+ Pos NewPatternLen))
  )
  String
)
(mapcar
  (function
    (lambda (s)
      (read (strcat "(\"" (vk_StringSubstPat "\"\"" "*" (vl-string-trim "*" s)) "\")")
      )
    )
  )
  (list "*jsyq_g_list*G1*G2*G3*G4*G5*"
"*jsyq_p_list*P1*P2*P3*P4*P5*P6*"
"*jsyq_e_list*E1*E2*E3*E4*E5*E6*E7*"
"*jsyq_m_list*M1*M2*M3*M4*M5*M6*M7*M8*"
"*jsyq_h_list*H1*H2*H3*H4*H5*H6*H7*H8*H9*"
"*jsyq_b_list*B1*B2*B3*B4*B5*B6*B7*B8*B9*B10*"
  )
)


[jeff101217]

Code: [Select]

(defun vk_StringSubstPat (NewPattern Pattern String / Pos NewPatternLen)
  (setq NewPatternLen (strlen NewPattern))
  (while (setq Pos (vl-string-search Pattern String Pos))
    (setq String (vl-string-subst NewPattern Pattern String Pos))
    (setq Pos (+ Pos NewPatternLen))
  )
  String
)
(mapcar
  (function
    (lambda (s)
      (read (strcat "(\"" (vk_StringSubstPat "\"\"" "*" (vl-string-trim "*" s)) "\")")
      )
    )
  )
  (list "*jsyq_g_list*G1*G2*G3*G4*G5*"
"*jsyq_p_list*P1*P2*P3*P4*P5*P6*"
"*jsyq_e_list*E1*E2*E3*E4*E5*E6*E7*"
"*jsyq_m_list*M1*M2*M3*M4*M5*M6*M7*M8*"
"*jsyq_h_list*H1*H2*H3*H4*H5*H6*H7*H8*H9*"
"*jsyq_b_list*B1*B2*B3*B4*B5*B6*B7*B8*B9*B10*"
  )
)


thanks a lot~

[Lee Mac]

Another 

Code: [Select]

(defun StringStrip (str)
  ;; Lee Mac  ~  01.04.10

  (defun StringParser (str del)
    (if (setq pos (vl-string-search del str))
      (cons (substr str 1 pos)
            (StringParser (substr str (+ pos 1 (strlen del))) del))
      (list str)))

  (StringParser (vl-string-trim "*" str) "*"))


Code: [Select]

(StringStrip "*jsyq_g_list*G1*G2*G3*G4*G5*")
==> ("jsyq_g_list" "G1" "G2" "G3" "G4" "G5")


[alanjt]

I want to play...

Code: [Select]

;;; Convert string to list, based on separator
;;; #Str - String to convert
;;; #Sep - Separator to break string into items
;;; Ex. - (AT:Str2Lst "1,2,3" ",") -> '("1" "2" "3")
;;; Alan J. Thompson, 11.11.09 / 04.01.10
(defun AT:Str2Lst (#Str #Sep / #Inc #List #Str)
  (while (setq #Inc (vl-string-search #Sep #Str))
    (setq #List (cons (substr #Str 1 #Inc) #List))
    (setq #Str (substr #Str (+ 2 #Inc)))
  ) ;_ while
  (vl-remove "" (reverse (cons #Str #List)))
) ;_ defun
Result:

Code: [Select]

(at:str2lst "*jsyq_g_list*G1*G2*G3*G4*G5*" "*")
("jsyq_g_list" "G1" "G2" "G3" "G4" "G5")

Updated last line of code.

[CAB]

Code: [Select]

  ;;++++++++++++++++++
  ;;  parser by CAB 
  ;;++++++++++++++++++
  (defun sparser (str delim / ptr lst)
    (while (setq ptr (vl-string-search delim str))
      (setq lst (cons (substr str 1 ptr) lst))
      (setq str (substr str (+ ptr 2)))
    )
    (reverse (cons str lst))
  )

[alanjt]

LoL
Alan, we basically have the same thing.
However, I'm not sure why I appended mine instead of using cons. :ugly:

[CAB]

I was looking for the original thread on this subject but could not find it but did find these:

http://www.theswamp.org/index.php?topic=12985.0
http://www.theswamp.org/index.php?topic=19527.0

[alanjt]

The Counterpart: (Can't believe I never wrote one of these.)

Code: [Select]

;;; Convert List to String
;;; L - List to process
;;; S - Separator
;;; Ex. (AT:Lst2Str '("A" "B" "C") ",") -> "A,B,C"
;;; Alan J. Thompson, 04.01.10
(defun AT:Lst2Str (L S)
  (if (cdr L)
    (strcat (vl-princ-to-string (car L)) S (AT:Lst2Str (cdr L) S))
    (vl-princ-to-string (car L))
  ) ;_ if
) ;_ defun


[T.Willey]

Here is another way Alan.

Code: [Select]

(apply 'strcat (mapcar (function (lambda ( a ) (strcat a ","))) '("a" "b" "c")))

Granted you convert yours to a string, but that is easy enough also.

[alanjt]

Here is another way Alan.

Code: [Select]

(apply 'strcat (mapcar (function (lambda ( a ) (strcat a ","))) '("a" "b" "c")))

Granted you convert yours to a string, but that is easy enough also.

I've used something similar to that before when creating an ssget layer filter. Problem is, you end up with a trailing ",".