String Business in SKILL

 Try this:

;*******************************************************************************
/*+
NAME:  CAL_shrParseString

FUNCTION:
  CAL_shrParseString(t_string [t_delimeter] [b_dappend])
    => l_strings/nil

SYNOPSYS:
  This function takes a string as input and a list of
  delimiter characters then returns a list of substrings.
  The difference between this command and parseString is
  that parseString will not return "empty" fields.

NEEDS:
  t_string      string to be parsed
  [t_delimeter] a sting of character delimiters. If not delimiters are
                specified a whitespace character is used.
  [b_dappend]   if t appends the delimiter to the end of the substring

RETURNS:
  l_strings     the resultanting list of substrings
  nil           on error

EXAMPLE:

  CAL_shrParseString("ABC||DEF|GEHI" list("|")
    => ("ABC" "" "DEF" "GEHI")
  CAL_shrParseString("NOW IS THE TIME" list(" "))
    => ("NOW" "IS" "THE" "TIME")
  CAL_shrParseString("NOW IS THE TIME list(" ") t)
    => ("NOW " "IS " "THE " "TIME ")

-*/
defun(CAL_shrParseString (string @optional (delimiters " ") dappend)
  let((delimiterList parsedString (subString "") char incr )
 
  ;check for good variables
  if(stringp(string) && stringp(delimiters) then

    ; build a list of delimiters
    incr=0
    while(char = getchar(delimiters ++incr)
      delimiterList = cons(char delimiterList)
    )

    ; walk the string, separating substrings at the delimiters
    incr = 0
    while(char = getchar(string ++incr)
      if(member(char delimiterList) then
        ; found a delimiter, add substring to list and reset it.
        when(dappend
          subString = strcat(subString char)
        )
        parsedString = tconc(parsedString subString)
        subString = ""
      else
        ; append character to substring
        subString = strcat(subString char)
      )
    )
    ; add final substring
    parsedString = car(tconc(parsedString subString))

  else
    ; oops bad variables
    error("CAL_shrParseString"
      sprintf(nil "Parameters are not valid strings -- string:%L delimiters%L"
        string delimiters)
    )
  )
  parsedString
));CAL_shrParseString

 

Wow, works perfectly. Many thanks!

Greetings,
Martin

Thanks for the info

Two years ago, I thought to myself, "How wonderful and fascinating it is to be a student." But, sadly, that is not the case; I am pursuing a degree in civil engineering and rarely have free time, but I do like to unwind now and again. That's why I started looking at https://onlinefreelancejobs.net/civil-engineering-job/ these individuals for help. I now work here because I have all of the requirements, a flexible schedule, and the ability to work from anywhere. They come highly recommended from me.