字符串分割--------------集中营

newer · 发表于 2013-8-13 11:40:40

/db_自贡黄明儒_ 发表于 2013-8-13 11:11
有介绍ScriptControl用法的资料吗？能否提供

下载地址：晓东文库

st788796 · 发表于 2013-8-13 12:00:50

JavaScript 中的 Split 好像更灵活

yangist · 发表于 2013-8-13 12:28:20

~~~~~~~~~~~~~~~~~看看

张和平 · 发表于 2013-8-13 14:22:00

我也来贴一个。。。
分隔符列表中可以是字符串或单个字符
例：(peace:split "112bb23aa43cc33d" ("bb" "aa" "cc" "d")),得到“112” “23” “43” “33”

;用分隔符列表解释字符串成表 by PEACE
;string=字符串，strkeylst=分隔符列表
(defun PEACE:Split (string strkeylst / strkey i j po strlst strlst0 xlen)
(setq strlst (cons string '()))
(cond
(
(= strkeylst '())
(setq strlst strlst)
)
(
t
(setq i 0)
(repeat (length strkeylst)
(setq strkey (nth i strkeylst)
xlen (1+ (strlen strkey))
)
(cond
(
(= strkey "")
(setq strlst strlst)
)
(
t
(setq j 0 strlst0 '())
(repeat (length strlst)
(setq string (nth j strlst))
(while (setq po (vl-string-search strkey string))
(setq strlst0 (cons (substr string 1 po) strlst0))
(setq string (substr string (+ po xlen)))
)
(setq strlst0 (cons string strlst0) j (1+ j))
(if (= (nth 0 strlst0) "") (setq strlst0 (cdr strlst0)))
)
(setq strlst (reverse strlst0) i (1+ i))
)
)
)
)
)
(if (= (nth 0 strlst) "")
(setq strlst (cdr strlst))
)
strlst
)

;用分隔符列表解释字符串成表 by PEACE 
;string=字符串，strkeylst=分隔符列表 
(defun PEACE:Split (string strkeylst / strkey i j po strlst strlst0 xlen) 
  (setq strlst (cons string '())) 
  (cond 
    ( 
      (= strkeylst '()) 
      (setq strlst strlst) 
    ) 
    ( 
      t 
      (setq i 0) 
      (repeat (length strkeylst) 
        (setq strkey (nth i strkeylst) 
                xlen (1+ (strlen strkey)) 
        ) 
        (cond 
          ( 
            (= strkey "") 
            (setq strlst strlst) 
          ) 
          ( 
            t 
            (setq j 0 strlst0 '()) 
            (repeat (length strlst) 
              (setq string (nth j strlst)) 
              (while (setq po (vl-string-search strkey string)) 
                (setq strlst0 (cons (substr string 1 po) strlst0)) 
                (setq string (substr string (+ po xlen))) 
              ) 
              (setq strlst0 (cons string strlst0) j (1+ j)) 
              (if (= (nth 0 strlst0) "") (setq strlst0 (cdr strlst0))) 
            ) 
            (setq strlst (reverse strlst0) i (1+ i)) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (if (= (nth 0 strlst) "") 
    (setq strlst (cdr strlst)) 
  ) 
  strlst 
)

st788796 · 发表于 2013-8-13 15:40:04

用XD::String:RegExps就可以完成分割的来自: Android客户端

newer · 发表于 2013-8-13 19:45:03

st788796 发表于 2013-8-13 15:40
用XD::String:RegExps就可以完成分割的

是的，有了正则表达式，可以让LISPER少在字符串处理上费心了。

梦断江南 · 发表于 2013-8-15 23:37:09

正则表达式！

Free-Lancer · 发表于 2013-8-16 00:48:00

这个 ScriptControl 在64位 Windows 7 上为 nil ，正则可用
_$ (vlax-get-or-create-object "vbscript.regexp")
#<VLA-OBJECT IRegExp2 00000000005894f0>

st788796 · 发表于 2013-8-16 19:50:55

在autodesk的讨论组中有个帖子，好像说要将IE恢复到7.0然后再如何如何这个ScriptControl在64位系统下就可以用了，未经测试来自: Android客户端

viphappy · 发表于 2013-8-18 17:35:40

谢谢楼主分享，论坛有你很精彩

whkcwlb · 发表于 2013-11-15 16:51:38

向同学们学习了

st788796 · 发表于 2013-11-17 19:41:26

xdrx_string_split 或 xdrx_string_tok 函数就可以了

/db_自贡黄明儒_ · 发表于 2013-11-18 08:16:00

st788796 发表于 2013-11-17 19:41
xdrx_string_split 或 xdrx_string_tok 函数就可以了

加载哪个Api，至今我也没有搞明白

Lispboy · 发表于 2013-11-18 08:26:50

/db_自贡黄明儒_ 发表于 2013-11-18 08:16
加载哪个Api，至今我也没有搞明白

CAD是什么版本就加载哪个API就是了

API ACAD
2004 ---2004
R16 ---- 2005,2006
2007 --- 2007
R17----- 2008-2009
R18----- 2010-2012
R19----- 2013-2014

st788796 · 发表于 2013-11-18 08:47:56

Lispboy 发表于 2013-11-18 08:26
CAD是什么版本就加载哪个API就是了

补充一句，R18 R19还分 x32 x64

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

[每日一码] 字符串分割--------------集中营

评分

点评

点评

点评

点评

点评