关于部分电脑无法使用正则表达式的解决方法

tryhi

最近发现总是有一些电脑是无法使用正则表达式的，最后发现原因是system下没有vbscript.dll造成的，写了段代码来解决

2. (setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式
   
3. (if (null reg)
   
4.   (progn
   
5.     (alert "发现系统vbscript没有注册，现尝试对其注册")
   
6.     (command"shell" "copy %systemroot%\\System32\\vbscript.dll %systemroot%\\System\")
   
7.     (command"shell" "regsvr32 vbscript.dll")
   
8.     (setq reg (vlax-create-object "vbscript.regexp"))
   
9.   )
   
10. )

(setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式<br /> (if (null reg)<br />   (progn<br />     (alert "发现系统vbscript没有注册，现尝试对其注册")<br />     (command"shell" "copy %systemroot%\\System32\\vbscript.dll %systemroot%\\System\")<br />     (command"shell" "regsvr32 vbscript.dll")<br />     (setq reg (vlax-create-object "vbscript.regexp"))<br />   )<br /> )

USER2128

谢谢版主的无私奉献！！！

xiaolong1487

很好,又学到一招！