新手求助

slysmart · 发表于 2024-8-14 13:51:08

下面这句不明白意思
(setq bstr (= (strcase strkind) (strcase "Good")))
是不是后面相等就赋值给bstr?
如何再加个条件，或等于strcase "very Good"

黄翔 · 发表于 2024-8-14 14:02:43

(setq bstr (= (strcase strkind) (strcase "Good")))
等价于
(setq bstr (= (strcase strkind) "GOOD"))

判断 strkind 是否等于 "GOOD",(忽略大小写)
sbstr 返回bool 结果只有 T nil

slysmart · 发表于 2024-8-14 14:06:37

黄翔发表于 2024-8-14 14:02
(setq bstr (= (strcase strkind) (strcase "Good")))
等价于
(setq bstr (= (strcase strkind) "GOOD")) ...

非常感谢，能否改写一下，即strkind 是否等于GOOD或者等于VERYGOOD?满足一项返回T

黄翔 · 发表于 2024-8-14 14:12:09

(setq bstr (or (= (strcase strkind) "GOOD") (= (strcase strkind) "VERYGOOD")))
或
(setq bstr (wcmatch (strcase strkind) "GOOD,VERYGOOD"))

aws · 发表于 2024-8-14 14:14:46

(setq bstr(or(=(strcase strkind)"GOOD")(=(strcase strkind)"VERYGOOD")))

slysmart · 发表于 2024-8-14 14:25:12

谢谢各位！

xyp1964 · 发表于 2024-8-14 14:34:34

(setq bstr (and strkind (member (strcase strkind) '("GOOD" "VERYGOOD"))))

muai2010 · 发表于 2024-8-14 15:22:45

最简写法了，用在判断合适

账号		自动登录	找回密码
密码			注册

[基础] 新手求助