如何判断输入的字符串是表中的其中一员

lch8526

如何判断输入的字符串是表中的其中一员
例:输入的字符串是："12"
表是：("1" "2" "5" "7" "10" "12" "20" "30")
如果是表中的其中一员就返回此字符串，如果不是就返回nil

革天明

(member "12" (List "1" "2" "5" "7" "10" "12" "20" "30"))
("12" "20" "30")
_$
只要不返回Nil就表示要查询的对象在表中，根据返回表的长度可判定其在原表中的位置

lch8526

革天明 发表于 2015-12-8 14:54
(member "12" (List "1" "2" "5" "7" "10" "12" "20" "30"))
("12" "20" "30")
_$

还有其他方法吗？

ivde

_$ (vl-some '= '("12") '("12" "23"))
T

llsheng_73

lch8526 发表于 2015-12-9 23:12
还有其他方法吗？

1. (while(not(member(setq a(if(=(setq a(strcase(getstring"\n提示[20]")))"")"20"a))'("1" "2" "5" "7" "10" "12" "20" "30"))))
   
2. ;;如果输入的字符串不是所期望的则要求重新输入

(while(not(member(setq a(if(=(setq a(strcase(getstring"\n提示[20]")))"")"20"a))'("1" "2" "5" "7" "10" "12" "20" "30"))))<br /> ;;如果输入的字符串不是所期望的则要求重新输入

革天明

lch8526 发表于 2015-12-9 23:12
还有其他方法吗？

(defun check-str-lst (str lst / i flag)
  (setq        i    0
        flag nil
  )
  (repeat (Length lst)
    (if        (= (nth i lst) str)
      (setq flag T)
    )
    (setq i (1+ i))
  )
  flag
)
;;(setq str "12" lst (list "5" "9" "12" "13" "19"))
;;(check-str-lst str lst)
自定义函数来判断