vl-string-search 查找符号怎么是nil呢

taocitc · 发表于 2012-3-8 13:54:37

(setq lgg "20×200×300")
（setq a(vl-string-search "×" lgg))
这样a=nil 为什么呢？查找其他字符没问题的

nzl1116 · 发表于 2012-3-8 14:01:09

小括号弄错了

taocitc · 发表于 2012-3-8 14:23:31

nzl1116 发表于 2012-3-8 14:01
小括号弄错了

你好，你试试 vl-string-search 能不能获取 × 这个字符？

snddd2000 · 发表于 2012-3-8 14:30:25

taocitc 发表于 2012-3-8 14:23
你好，你试试 vl-string-search 能不能获取 × 这个字符？

a 返回 2

taocitc · 发表于 2012-3-8 14:45:42

snddd2000 发表于 2012-3-8 14:30
a 返回 2

奇怪了，单独试就没问题

  (print lgg)
  (setq lxh1 (vl-string-search "×" lgg))
  (print lxh1)

这是程序的片段

在程序里就这样了，怎么回事啊？

Andyhon · 发表于 2012-3-8 14:51:23

Command: (setq lgg "20×200×300")
"20×200×300"

Command: (setq a (vl-string-search "x" lgg))
nil

Command: (setq a (vl-string-search "×" lgg))
2

taocitc · 发表于 2012-3-8 15:09:52

Andyhon 发表于 2012-3-8 14:51
Command: (setq lgg "20×200×300")
"20×200×300"

我还能连x跟×都分不清吗
(print lgg)
(setq lxh1 (vl-string-search "×" lgg))
(print lxh1)
(setq lgg "10×200×300")
(setq lxh1 (vl-string-search "×" lgg))
(print lxh1)
然后是

"10×200×300"
nil
2 出错: 参数类型错误: numberp: nil

Andyhon · 发表于 2012-3-8 15:41:32

Result here:
Command: (progn
(_> (setq lgg "20×200×300")
(_> (print lgg)
(_> (setq lxh1 (vl-string-search "×" lgg))
(_> (print lxh1)
(_> (setq lgg "10×200×300")
(_> (setq lxh1 (vl-string-search "×" lgg))
(_> (print lxh1)
(_> (princ)
(_> )

"20×200×300"
2
2

Command:

taocitc · 发表于 2012-3-8 15:51:03

本帖最后由 taocitc 于 2012-3-8 15:51 编辑

Andyhon 发表于 2012-3-8 15:41
Result here:
Command: (progn
(_> (setq lgg "20×200×300")

那个字符串是从图纸上读取的，
      (print lgg)
            (print llen)
            (setq lxh1 (vl-string-search "×" lgg))
            (print lxh1)
            (setq lgg "10×200×300")
            (setq llen (strlen lgg))
            (print llen)
            (print lgg)
            (setq lxh1 (vl-string-search "×" lgg))
            (print lxh1)

"10×200×300"
22
nil
12
"10×200×300"
2 出错: 参数类型错误: numberp: nil
为什么一开始读出来的字符串长度是22呢？不用管最后的错误

Andyhon · 发表于 2012-3-8 16:23:01

Command: (progn
(_> (setq lgg "20×200×300")
(_> (print lgg)
(_> (print llen)
(_> (setq lxh1 (vl-string-search "×" lgg))
(_> (print lxh1)
(_> (setq lgg "10×200×300")
(_> (setq llen (strlen lgg))
(_> (print llen)
(_> (print lgg)
(_> (setq lxh1 (vl-string-search "×" lgg))
(_> (print lxh1)
(_> (princ)
(_> )

"20×200×300"
nil
2
12
"10×200×300"
2

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

vl-string-search 查找符号怎么是nil呢

本帖子中包含更多资源