伙计们,再次需要你们的帮助。我需要在一个变量上搜索2个字符串。如果找到这两个字符串,程序将返回True。
代码如下:
如果未找到“jose”,则返回false,不需要查找第二个字符串
如果找到“jose”,则搜索下一个字符串
第二个字符串可以是列表中的任意一个(“Michael”“Domino”“Carlos”“Smith”等)
如果不在列表中,则返回false。
我通过使用(2)if(vl string search)函数来实现我的目标,然后复制代码并粘贴4次,然后通过更改需要搜索的第二个字符串来搜索第二个字符串。很有趣,很长的例行程序,但它的工作。现在,我需要借用你的心思,思考如何使用列表来实现这一点。谢谢
- (defun c:test ()
- (vl-load-com)
- (setq myname "Jose Chan Smith")
- (setq mylist ("Michael" "Domino" "Carlos" "Smith"))
- (if (vl-string-search "JOSE" (strcase myname))
- ;;;<-- need your help here
- ;;;<-- I'm stuck
-
- (princ "Strings found")
- (princ "Strings not found")
- )
- (PRINC)
- )
|