Counting Characters

[BoKirra]

Hi ALL,

Supposed I need to count the number of characters which I input at the command prompt.
Here is a sample:
(setq test_1 (getstring "Please Enter Characters: ")
(if (< (strlen "test_1") 3)
(setq test_1
(getstring "Please enter not less than 3 characters : "))
) ;end of if
What is the problem with the code?
Thanks in advance.

[RobertB]

You need to loop until the input is acceptable or the user cancels.

(defun C:Test (/ inp)
(while (and (< (strlen (setq inp (getstring "\nSpecify text or Enter to exit: "))) 3)
(/= inp ""))
(princ "\nNote: You must specify at least 3 characters."))
(cond ((/= inp "") (princ "\nValid input, continue code."))
((princ "\nHandle exit.")))
(princ))

[BoKirra]

You need to loop until the input is acceptable or the user cancels.

(defun C:Test (/ inp)
(while (and (< (strlen (setq inp (getstring "\nSpecify text or Enter to exit: "))) 3)
(/= inp ""))
(princ "\nNote: You must specify at least 3 characters."))
(cond ((/= inp "") (princ "\nValid input, continue code."))
((princ "\nHandle exit.")))
(princ))

Thanks, Robert.
It's a "WHILE" function, again! :Oops:

[peter]

Using the GRREAD expression you can accept only 3 characters in an input. You would probably need to add additional checking to filter out characters you may not want to accept as input.


(defun C:X1 ()
(setq str "")
(while (< (strlen str) 3)
(if (= 2 (car (setq lst (grread))))
(progn
(if (= (setq int (cadr lst)) 8)
(setq str (substr str 1 (1- (strlen str))))
(setq str (strcat str (chr (cadr lst))))
)
(princ "\r \r")
(princ str)
)
)
)
(princ "\n")
str
)

[BoKirra]

Using the GRREAD expression you can accept only 3 characters in an input. You would probably need to add additional checking to filter out characters you may not want to accept as input.


(defun C:X1 ()
(setq str "")
(while (< (strlen str) 3)
(if (= 2 (car (setq lst (grread))))
(progn
(if (= (setq int (cadr lst)) 8)
(setq str (substr str 1 (1- (strlen str))))
(setq str (strcat str (chr (cadr lst))))
)
(princ "\r \r")
(princ str)
)
)
)
(princ "\n")
str
)


Thanks, Peter.
Hope I've learnt something from you.