topic Re: Remove (text) from a List in Visual LISP, AutoLISP and General Customization Forum

Remove (text) from a List

DGCSCAD — Thu, 21 Dec 2023 15:42:50 GMT

How would I remove (CENTER) from this list?

List:

(CT5625062-1 (CENTER) NO NO TUBE)

Re: Remove (text) from a List

ВeekeeCZ — Thu, 21 Dec 2023 15:54:23 GMT

If it's '("CT5625062-1 (CENTER) NO NO TUBE") use vl-string-subst

Re: Remove (text) from a List

hak_vz — Thu, 21 Dec 2023 15:55:04 GMT

Here you have one option that checks all text entities inside list

(SETQ LST ' ( "CT5625062-1 (CENTER) NO NO TUBE" "CT5625062-1 (CENTER) NO NO TUBE" "CT5625062-1 (CENTER) NO NO TUBE" ) LST (MAPCAR '(lambda (x)(vl-string-subst "" " (CENTER)" x 0)) lst) ) ; result ("CT5625062-1 NO NO TUBE" "CT5625062-1 NO NO TUBE" "CT5625062-1 NO NO TUBE")

Re: Remove (text) from a List

john.kaulB9QW2 — Thu, 21 Dec 2023 16:17:05 GMT

Command: (vl-remove '(CENTER) '(CT5625062-1 (CENTER) NO NO TUBE))
(CT5625062-1 NO NO TUBE)

Didn't I make a beginner programming challenge for something like this at TheSwamp as well?

Re: Remove (text) from a List

DGCSCAD — Thu, 21 Dec 2023 16:32:26 GMT

@john.kaulB9QW2 wrote:
Command: (vl-remove '(CENTER) '(CT5625062-1 (CENTER) NO NO TUBE))
(CT5625062-1 NO NO TUBE)

Didn't I make a beginner programming challenge for something like this at TheSwamp as well?

I think you may have, many moons ago. 🙂

Thank you for the replies. I should have mentioned that the (CENTER) changes to other characters and is variable, but there's always alphabetical characters within the ( and ).

If that makes sense?

I'd need to use wildcards (*).

Re: Remove (text) from a List

john.kaulB9QW2 — Thu, 21 Dec 2023 16:56:11 GMT

'variable', 'wildcards', 'nested list' are red-flags that you should be asking a different question. What are you doing? Why are you removing items from a list (can you ignore instead)? -i.e. I have tried to demonstrate that more often than not you can typically get around "sorting" a list (because these types of operations are expensive); so that last question is/can be "what are you trying to do to each item in the list"?

Re: Remove (text) from a List

DGCSCAD — Thu, 21 Dec 2023 18:21:39 GMT

I 'm taking a string and cross-checking for a match in a comma delimited text file. The only common denominator between 1500 different strings is their "type", which is always the 2nd element in the returned list after matching the string. Some of the returned lists have (text), which throws off my nth count for those lists, but other than that they are consistent.

I have found a solution using an if statement (see below) which accounts for each situation and is consistent throughout, but I'd still like to see how to resolve the original predicament. For science purposes.

Code snippet:

(findfile (setq TextFile "mytxtfile.txt")) (setq SearchStr (strcat "Part1" ",")) (setq Opened (open TextFile "r")) (while (setq tmpLine (read-line Opened)) (if (vl-string-search SearchStr tmpLine) (setq endlist tmpLine) ) ) (close Opened) (if (/= endlist nil) (progn (setq term_type1_list (read (strcat "(" (vl-string-translate "," " " endlist) ")"))) (setq term_list1_lngth (length term_type1_list)) (if (= term_list1_lngth 4) (setq term_type1 (nth 1 term_type1_list)) (setq term_type1 (nth 2 term_type1_list)) ) ) )

Re: Remove (text) from a List

komondormrex — Thu, 21 Dec 2023 18:39:38 GMT

(setq _list '(CT5625062-1 (CENTER) NO NO TUBE))

(vl-remove (cadr _list) _list)

Re: Remove (text) from a List

DGCSCAD — Thu, 21 Dec 2023 18:55:54 GMT

@komondormrex wrote:
(setq _list '(CT5625062-1 (CENTER) NO NO TUBE))
(vl-remove (cadr _list) _list)

As simple as that. 🙂

Thank you komondormrex.

Re: Remove (text) from a List

john.kaulB9QW2 — Thu, 21 Dec 2023 20:48:12 GMT

@DGCSCAD wrote:
I 'm taking a string and cross-checking for a match in a comma delimited text file. The only common denominator between 1500 different strings is their "type", which is always the 2nd element in the returned list after matching the string. Some of the returned lists have (text), which throws off my nth count for those lists, but other than that they are consistent.

I have found a solution using an if statement (see below) which accounts for each situation and is consistent throughout, but I'd still like to see how to resolve the original predicament. For science purposes.

--- >%

Sorry, but it sounds like you may be making a tempest in a teacup. See my post on Self-commenting code.

-i.e. can't you just assign names to those positions and not really worry about "contents"?

-e.g.

( (lambda ( / one-half numer denom make ) (set 'numer car) (set 'denom cdr) (set 'make cons) (setq one-half (make 1 2)) (princ (strcat "\nNumerator: " (itoa (numer one-half)))) (princ (strcat "\nDenominator: " (itoa (denom one-half)))) (if (eq (type (numer one-half)) 'STRING) "Our fraction is broken!" ) (princ) ) )

Re: Remove (text) from a List

Kent1Cooper — Thu, 21 Dec 2023 21:06:01 GMT

@DGCSCAD wrote:
As simple as that. ....

Another simple way to remove the second item, whatever it is, from any List:

(cons (car TheList) (cddr TheList))

That has the advantage, if the situation arises, that if that second item is one of more than one occurrence of the same thing in the list, this will remove only the one in the second position, whereas (vl-remove) will remove all occurrences of the same entry.

Re: Remove (text) from a List

Sea-Haven — Sun, 24 Dec 2023 00:32:53 GMT

Another re message 5 always "(text)".

(setq str "CT5625062-1 (CENTER) NO NO TUBE") (setq pos1 (vl-string-search "(" str)) (setq pos2 (vl-string-search ")" str)) (setq str (strcat (substr str 1 (- pos1 1)) (substr str (+ pos2 2)))) "CT5625062-1 NO NO TUBE"

Another

Re: Remove (text) from a List

DGCSCAD — Thu, 28 Dec 2023 22:32:47 GMT

@john.kaulB9QW2 wrote:
Sorry, but it sounds like you may be making a tempest in a teacup. See my post on Self-commenting code.

-i.e. can't you just assign names to those positions and not really worry about "contents"?
-e.g.

I would love to be able to include elegant coding such as this, but I'd need to study and understand it. I kind of get the gist of it, but since I'm under the gun for solutions right now I'll have to tuck this away until I have more time to make sure it all sinks in. I appreciate the insight though John. Thank you.