[弹指神通]：关于IF函数

linhui12 · 发表于 2008-4-13 13:28:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(if
   (/= s1 "")
   (
   (setq k12 (- (strlen s0) (strlen s1)))
      (setq z3 (substr s0 (+ k11 2) (- k12 (+ k11 1))))
      (setq s1 (substr s1 2))
      (setq s1 (CommaFirst s1))
      (setq k13 (- (strlen s0) (strlen s1)))
      (setq x4 (substr s0 (+ k12 2) (- k13 (+ k12 1))))
      (setq s1 (substr s1 2))
      (setq s1 (CommaFirst s1))
      (setq k14 (- (strlen s0) (strlen s1)))
      (setq y4 (substr s0 (+ k13 2) (- k14 (+ k13 1))))
      (setq s1 (substr s1 2))
      (setq z4 s1)
   )
)
我是希望S1为空时,程序从(setq k12 (- (strlen s0) (strlen s1)))
向下执行.
实际情况是S1为空时,直接执行(setq z3 (substr s0 (+ k11 2) (- k12 (+ k11 1))))了,(setq k12 (- (strlen s0) (strlen s1)))被直接跳过了.
如何能让S1为空时,程序从(setq k12 (- (strlen s0) (strlen s1)))
向下执行.
请大家指教.谢谢

yy5heng · 发表于 2008-4-13 15:17:35

Try this:
[php]
(if (= s1 "")
(progn
      (setq k12 (- (strlen s0) (strlen s1)))
      (setq z3  (substr s0 (+ k11 2) (- k12 (+ k11 1))))
      (setq s1  (substr s1 2))
      (setq s1  (CommaFirst s1))
      (setq k13 (- (strlen s0) (strlen s1)))
      (setq x4  (substr s0 (+ k12 2) (- k13 (+ k12 1))))
      (setq s1  (substr s1 2))
      (setq s1  (CommaFirst s1))
      (setq k14 (- (strlen s0) (strlen s1)))
      (setq y4  (substr s0 (+ k13 2) (- k14 (+ k13 1))))
      (setq s1  (substr s1 2))
      (setq z4 s1)
);_end of progn
);_end of if
[/php]

PS: U can use only one "setq" instead of 12 same "setq" words.

linhui12 · 发表于 2008-4-13 18:13:39

谢谢

yaker_77 · 发表于 2008-7-10 13:20:01

继续请教：
if成立执行一个progn
不成立执行另一个progn
怎么实现？

Underway · 发表于 2008-7-10 15:35:24

(if (条件验证)
  ;; 成立
  (progn
....
  )
  ;; 不成立
  (progn
  ....
  )
)

yn100200 · 发表于 2008-7-11 11:08:06

非常感谢

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

[弹指神通]：关于IF函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子