分割字符串，错在什么地方？（Lisp调用VBA函数）

/db_自贡黄明儒_ · 发表于 2016-11-18 14:00:22

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2016-12-31 21:47 编辑

;;分割字符串
(defun w5 ()
  (setq scr (vlax-create-object "ScriptControl"))
  (vlax-put Scr "language" "JScript")
  (vlax-invoke scr 'AddCode "function aa(bb){x=bb.split(',');return x;}")
  (setq str (strcat "aa(" "12了,地" ")"))
  (vlax-invoke scr 'eval str)
)

aeo · 发表于 2016-11-19 18:49:19

(defun w5 (str)
  (setq scr (vlax-create-object "ScriptControl"))
  (vlax-put Scr "language" "JScript")
  (vlax-invoke scr 'AddCode "function aa(bb){x=bb.split(',');return x[0];}")
  (setq str (strcat "aa(\"" str "\")"))
  (setq a(vlax-invoke scr 'eval str))
  (vlax-release-object scr)
  a
)

命令: (w5 "ab,cd")
"ab"

你要得到一个表是很难的，如果返回一个分割后的字符串（中间空格?），又失去了意义，和lisp直接写是一样的

CSharpBoy · 发表于 2016-11-18 14:11:29

本帖最后由 CSharpBoy 于 2016-11-18 14:13 编辑

(defun w5 ()
  (setq scr (vlax-create-object "ScriptControl"))
  (vlax-put Scr "language" "JScript")
  (vlax-invoke scr 'AddCode "function aa(bb){x=bb.split(',');return x;}")
  (setq str (strcat "aa(" "'12了,地'" ")"))
  (vlax-invoke scr 'eval str)
)

这样改了下，能执行了
命令: (w5)
#<VLA-OBJECT JScriptTypeInfo 0a066360>

/db_自贡黄明儒_ · 发表于 2016-11-18 15:28:03

本帖最后由 /db_自贡黄明儒_ 于 2016-11-18 16:03 编辑

CSharpBoy 发表于 2016-11-18 14:11

能否在批示一下，怎么在lisp看到分割后的结果？难道只能用正则

819534890 · 发表于 2016-11-19 10:30:17

/db_自贡黄明儒_ 发表于 2016-11-18 15:28

你调用的函数，返回的结果是一个数组，lisp好像并不能处理数组，所以结果是个Object。
把retrun x；改为：return x[0];
可以返回第一个字符串：“12了”；
是否可以考虑把返回数组改为返回字符串，然后再转换为 list表？

376394482 · 发表于 2016-11-19 14:16:42

我来看看，我来学学

Lisphk · 发表于 2016-11-19 18:58:33

aeo 发表于 2016-11-19 18:49

如果只得到一个字符串，那也没什么实际意义啊，版主。

aeo · 发表于 2016-11-19 19:23:56

本帖最后由 aeo 于 2016-11-19 20:11 编辑

呵呵成了

删除了，看下面贴

Lisphk · 发表于 2016-11-19 20:02:34

aeo 发表于 2016-11-19 19:23

大写的“牛”

aeo · 发表于 2016-11-19 20:05:42

这个和上面一样只是分隔符提取为参数

[sell]

;;;分隔字符串
;;;(w55 "ab,cd,ef" ",") -->("ab" "cd" "ef")
(defun w55 (str separator / a func j len lst scr str1 )
(setq scr (vlax-create-object "ScriptControl"))
(vlax-put Scr "language" "JScript")
(setq func (strcat "function aa(bb){x=bb.split(\"" separator "\");return x.length;}"))
(vlax-invoke scr 'AddCode func)
(setq str1 (strcat "aa(\"" str "\")"))
(setq len(vlax-invoke scr 'eval str1))
(setq j 0)
(while (< j len)
(setq func (strcat "function aa(bb){x=bb.split(\"" separator "\");return x[" (itoa j)"];}" ))
(vlax-invoke scr 'AddCode func)
(setq a(vlax-invoke scr 'eval str1))
(setq lst(cons a lst))
(setq j(1+ j))
)
(vlax-release-object scr)
(reverse lst)
)

[/sell]

JScript 规则，如果分隔符为空 "" ,那分割每个字符:
命令: (w55 "ab,cd,ef:45" ",")
("ab" "cd" "ef:45")

命令: (w55 "ab,cd中华人民共和国,ef:45" "")
("a" "b" "," "c" "d" "中" "华" "人" "民" "共" "和" "国" "," "e" "f" ":" "4" "5")

sicky111 · 发表于 2016-11-19 23:25:11

一群牛人。

/db_自贡黄明儒_ · 发表于 2016-11-20 22:20:24

aeo 发表于 2016-11-19 20:05

还是版主功力深厚。
我在VBE运行这个api，在win7 32位上是可行的；在64位上就不行了。查到一些资料说，64位调用这个api就是有问题。

Lisphk · 发表于 2016-11-20 22:28:31

/db_自贡黄明儒_ 发表于 2016-11-20 22:20

64位是不是有64位版本的API？

aeo · 发表于 2016-11-21 13:13:15

网上搜到的：

64位的:
http://www.eonet.ne.jp/~gakana/tablacus/scriptcontrol_en.html
就是要注册组件，win要系统管理员，麻烦

64位里面允许32为组件，在帖子最下面。牛人多呀hehe
https://social.msdn.microsoft.co ... rol-10?forum=isvvba

/db_自贡黄明儒_ · 发表于 2016-11-21 13:58:26

aeo 发表于 2016-11-19 20:05

可否用ScriptControl切换到英文输入法？

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

[求助] 分割字符串，错在什么地方？（Lisp调用VBA函数）

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

评分

评分

评分

点评