How to strip values as text at a text list

[devitg]

Please , I need to strip and discard  all text that only represent a value , and keep text despite it have some value in. 

From this list 

(setq text+value-list(list "SUBRASANTE"
   "C.T.N."	"SUB-BASE"   "0.00"	  "CORTE CAJA 2"
   "CAJA 100%"	"0.01"	     "0.02"	  "0.03"       "16.59"
   "17.86"	"18.41"	     "2025.81"	  "31421.14"   "22.04"
   "22.39"	"33.62"
  ))

 To this one 

(setq no-value-list
       (list
	 "SUBRASANTE" "C.T.N." "SUB-BASE" "CORTE CAJA 2" "CAJA 100%") ;_ end of list
)

Thanks in advance 

 

[mhupp]

iterate through the lisp  with numberp

[devitg]

4 minutes ago, mhupp said:

iterate through the lisp  with numberp

  @mhupp  as I state it are nor real value it are string 

 

_$ (numberp  "18.41")
nil
_$ 

 

[devitg]

@mhupp Neither I can use ATOF or ATOI 

(atof "C.C.C. 95%")
0.0

As it return a number for a string 

 

[Tsuky]

This ?

(vl-remove nil (mapcar '(lambda (x) (if (eq (type (read x)) 'SYM) x)) text+value-list))

 

[devitg]

3 minutes ago, Tsuky said:

This ?

(vl-remove nil (mapcar '(lambda (x) (if (eq (type (read x)) 'SYM) x)) text+value-list))

 

Thanks , really a good solution. 

 

[Jonathan Handojo]

Even simpler:

(vl-remove-if 'distof lst)

 

[mhupp]

2 hours ago, devitg said:

  @mhupp  as I state it are nor real value it are string 

 

_$ (numberp  "18.41")
nil
_$ 

 

Been working in Vba to long isnumber() works on strings as well