VFP 中使用 MSScriptControl.ScriptControl ActiveX 控件

firstxinjie

发布于 2024-12-06 14:27:58

500

文章被收录于专栏：X#(XSharp)

MSScriptControl.ScriptControl ActiveX 控件从 WIN 2000 开始内置系统的(msscript.ocx)。关于此控件的使用说明，可搜索“Microsoft ScriptControl 控件使用指南”。

我们当然不可能笨到写好代码并编译完成后再看看脚本代码是否有问题，所以我们可以在搜索引擎中搜索“单独的 XX 调试器”（XX 替换为实际使用的脚本语言）。

OK，准备工作结束。我们可以愉快的使用该控件了！

下面是示例代码演示了 ActiveX 控件和 VFP 相关库的效率差异(nfjsonread.prg 是 VFPX 的 nfJson 项目中的文件)：

SET PROCEDURE TO nfjsonread.prg

LOCAL ox as MSScriptControl.ScriptControl
LOCAL m.lojson
lcstring = [{"t":"tk","e":"NFO","tk":"56912","pp":"2","ls":"25","ti":"0.05","lp":"15.90","pc":"0.00","c":"15.90","oi":"858400","poi":"858400"}]

ox = CREATEOBJECT("MSscriptcontrol.scriptcontrol.1")
ox.language = [javascript]
lnseconds = SECONDS()
FOR i = 1 TO 10000
  m.lojson = ox.eval("("+m.lcstring+")")
ENDFOR
?'elasped seconds using javascript' , SECONDS()-lnseconds

?m.lojson.tk

lnseconds = SECONDS()
FOR i = 1 TO 10000
  m.lojson = nfjsonread(m.lcstring)
ENDFOR
?'elasped seconds using nfjsonread' , SECONDS()-lnseconds

?m.lojson.tk

Follow me，认识不一样的 VFP ！

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-06-22，如有侵权请联系 cloudcommunity@tencent.com 删除

系统