Read-line before or after a comma

[Jonathan3891]

Is it possible to read a line in a text file before or after a comma?

For example:

Line 1 will have: TEST1,TOS %%script(Q = (%ObjectTopLevel): If Q>0 then appendstring ("+" & (FormatNumber(Q,3))) else appendstring (FormatNumber(Q,3)))

But the list box will only show: TOS %%script(Q = (%ObjectTopLevel): If Q>0 then appendstring ("+" & (FormatNumber(Q,3))) else appendstring (FormatNumber(Q,3)))

My current code segment to read a file:

  (setq LC nil)
  (setq OpenFile (open (findfile "LabelContent.cfg")"R"))
  (while (setq line (read-line OpenFile))
    (setq LC (cons line LC))
    );while
  (setq LC (reverse LC))
  (close OpenFile)
  (dcl-ListBox-AddList LabelContent/Form1/ListBox1 LC)

[ВeekeeCZ]

Why? Just split it afterward.

[Jonathan3891]

I'm building a dcl that contains vbscript's for Advance Steel.

The text before the comment is meant to be a description of the script.

I do not know how to split it afterward.

[ВeekeeCZ · Accepted solution]

Seems too simple, I must be missing something... 

(setq lc2 (mapcar '(lambda (x) (substr x (+ 2 (vl-string-search "," x)))) lc))
(dcl-ListBox-AddList LabelContent/Form1/ListBox1 LC2)

[Jonathan3891]

Thank you @ВeekeeCZ. I'm only a novice code writer.

I'm sure it's simple, but how do I read only the string before the comma?

[ВeekeeCZ · Accepted solution]

(setq lc1 (mapcar '(lambda (x) (substr x 1 (vl-string-search "," x))) lc))

[Jonathan3891]

Thank you @ВeekeeCZ!

[ВeekeeCZ]

BTW that posted code search for 1st comma in the line. But you have multiple commas there -- so it presumes that you have this comment at the beginning of each line (if there are more lines in the file).

[Jonathan3891]

The first comma is all I needed. The rest is part of the VBScript.

[Jonathan3891]

Here is what it looks like so far.