各种数据类型的判断函数

Lisphk

1. ;; (KDUB:emptystring-p "1") ->nil
   
2. ;; (KDUB:emptystring-p "") ->T
   
3. ;; (KDUB:emptystring-p " ") ->T
   
4. ;;
   
5. ;; (KDUB:notemptystring-p "x") -> T
   
6. ;; (KDUB:notemptystring-p "") -> nil
   
7. ;; (KDUB:notemptystring-p " ") -> nil
   
8. ;;
   
9. ;; (KDUB:validstring-p "x") -> T
   
10. ;; (KDUB:validstring-p "") -> nil
    
11. ;; (KDUB:validstring-p " ") -> T
    
12. (defun kdub:string-p (arg) (= (type arg) 'str))
    
13. (defun kdub:validstring-p (arg) (and (= (type arg) 'str) (/= 0 (strlen arg))))
    
14. (defun kdub:emptystring-p (arg)
    
15.   (and (= (type arg) 'str) (= 0 (strlen (vl-string-trim " " arg))))
    
16. )
    
17. (defun kdub:notEmptystring-p (arg)
    
18.   (and (= (type arg) 'str) (/= 0 (strlen (vl-string-trim " " arg))))
    
19. )
    
20. (defun kdub:real-p (arg) (equal (type arg) 'real))
    
21. (defun kdub:integer-p (arg) (equal (type arg) 'int))
    
22. (defun kdub:vlaobject-p (arg) (equal (type arg) 'vla-object))
    
23. (defun kdub:ename-p (arg) (equal (type arg) 'ename))
    
24. (defun kdub:variant-p (arg) (equal (type arg) 'variant))
    

;; (KDUB:emptystring-p "1") ->nil<br /> ;; (KDUB:emptystring-p "") ->T<br /> ;; (KDUB:emptystring-p " ") ->T<br /> ;;<br /> ;; (KDUB:notemptystring-p "x") -> T<br /> ;; (KDUB:notemptystring-p "") -> nil<br /> ;; (KDUB:notemptystring-p " ") -> nil<br /> ;;<br /> ;; (KDUB:validstring-p "x") -> T<br /> ;; (KDUB:validstring-p "") -> nil<br /> ;; (KDUB:validstring-p " ") -> T<br /> (defun kdub:string-p (arg) (= (type arg) 'str))<br /> (defun kdub:validstring-p (arg) (and (= (type arg) 'str) (/= 0 (strlen arg))))<br /> (defun kdub:emptystring-p (arg)<br />   (and (= (type arg) 'str) (= 0 (strlen (vl-string-trim " " arg))))<br /> )<br /> (defun kdub:notEmptystring-p (arg)<br />   (and (= (type arg) 'str) (/= 0 (strlen (vl-string-trim " " arg))))<br /> )<br /> (defun kdub:real-p (arg) (equal (type arg) 'real))<br /> (defun kdub:integer-p (arg) (equal (type arg) 'int))<br /> (defun kdub:vlaobject-p (arg) (equal (type arg) 'vla-object))<br /> (defun kdub:ename-p (arg) (equal (type arg) 'ename))<br /> (defun kdub:variant-p (arg) (equal (type arg) 'variant))<br />

许锦华_gHav7

谢谢你，有没有转换功能呢