伪书虫86
发表于 2014-8-25 10:37:50
好东西，先收藏了
啊业_48384
发表于 2014-10-5 17:26:55
顶起啊，应该很有用的东东啊
834798417
发表于 2014-10-18 19:28:18
很给力，先收藏
caogis
发表于 2015-9-8 22:16:33
这么好的程序，防解密
www2002
发表于 2015-11-24 09:31:04
收藏了！学习学习！！
hbgsw
发表于 2015-11-24 13:27:32
RE: DCL2LSP和LSP2DCL（源码）
(while (setq fn1l (read-line fn1))
(setq fn2l fn1l)
(setq k 0)
(while (setq k (vl-string-search "\"" fn2l k))
(setq fn2l (vl-string-subst "\\\"" "\"" fn2l k))
(setq k (+ k 2))
)
(setq fn2l (strcat "(write-line \"" fn2l "\" fn)"))
(write-line fn2l fn2)
)
这里替换\的 可换成 (VL-PRIN1-TO-STRING txt) 函数，这个要好使点。
shh1980
发表于 2016-3-20 21:23:35
绝对的好东西，感谢楼主的分享！
迷不知途
发表于 2016-3-20 22:59:58
多谢！多谢！！学习一下
kkt123
发表于 2016-6-6 05:19:55
做什么用的呢
xzs0829
发表于 2016-7-26 18:18:25
very good！！！！！！！！！！！
页:
1
2
3
4
5
6
[7]
8
9
10
11
12