DCL2LSP和LSP2DCL（源码）

伪书虫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

(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！！！！！！！！！！！

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

DCL2LSP和LSP2DCL（源码）

RE: DCL2LSP和LSP2DCL（源码）