Visual LISP, AutoLISP and General Customization

[#1]

How can I test a string to see if the first character is a number between 0 and 9 or something else. I.E. A-Z or a-z or a symbol.

[#2]

Maybe this?

(setq aa "1230C")

(substr aa 1 1)
"1"

(setq aa "A230C")

(substr aa 1 1)
"A"


HTH
Southie

[#3]

I'm not sure that's quite what I need.

I'm looking for a way to test a string and depending on what the first character is run one of two sub routines. If the string starts with any thing other than a number from 0-9 run sub "A". If it starts with a number from 0-9 run sub "B".

I'm trying to read text and pass it to my lisp. Some of the text will read "TC ###.##" and some will read "###.## TC". I want to end up with only the number, no alpha characters.

[#4]

Hi,

Try this utilising wcmatch.

{code}
(if (= (wcmatch (substr "TC 123.45" 1 1) "[0-9]") T)
(progn

... do stuff here for sub routine A

) ; end progn
(progn

... do stuff here for sub routine B

) ; end progn
) ; end if
{code}

Morgan.

[#5]

You can use wcmatch as pointed out, but you do not need substr.

[code]

(cond
((wcmatch myString "@*") (alert "string starts with a letter"))

((wcmatch myString "#*") (alert "string starts with a number"))

(t (alert "string starts with a nonalphanumeric character"))

)

[/code]

wrote in message
news:6150385@discussion.autodesk.com...
How can I test a string to see if the first character is a number between 0
and 9 or something else. I.E. A-Z or a-z or a symbol.

[#6]

(if (distof (substr 1 1) 2)
[yes]
[no]
);if
will also do the trick.
Just make sure is a string.

[#7]

Thanks Jason, I was able to use your code and make it work for my needs.

[#8]

Maybe this is enough:

Comando: (atof "TC 123.45")
0.0

Comando: (atof "TC123.45")
0.0

Comando: (atof "123.45")
123.45

Comando: (atof "123.45TC")
123.45

Comando: (atof "123.45 TC")
123.45


So:

(defun OnlyNumNoPrx (Str_In / NumOut)
(if (zerop (setq NumOut (atof Str_In)))
(atof (substr Str_In 4))
NumOut
)
)

Comando: (OnlyNumNoPrx "123.45 TC")
123.45

Comando: (OnlyNumNoPrx "TC 123.45")
123.45

--
Marc'Antonio Alessi
(vl-string-translate "1234567890" "ie@mst.lan" "499825513610716")
http://xoomer.alice.it/alessi
> 2D Parametric for 2000-2009 <
(strcat "I like " (substr (ver) 8 4) "!")
GPS: N45° 50' 16" E12° 22' 44"
--