在VBA中使用JAVASCRIPT和VBSCRIPT（3）

yarchen

详细阅读学习这帖子, 真是大开眼界,受益良多
每一各例题  都亲自动手 操练几遍, 务求融会贯通
1楼 的范例, 载入Php.js,  自己再扩充演示一下
写了个短程式如下

1. Sub Test001()   
   
2.     ss = "http://statementdog.com/analysis/tpe/8114"
   
3.     Set x = CreateObject("scriptcontrol")
   
4.     x.Language = "jscript"
   
5.     Set f = CreateObject("scripting.filesystemobject")
   
6.     f1 = f.OpenTextFile("c:\php.js").ReadAll
   
7.     x.AddCode f1
   
8.     Y1 = x.CodeObject.strrev(ss)
   
9.     Y2 = x.CodeObject.file_get_contents(ss)
   
10. End Sub
    

复制代码

Y1 如预期, 正常反转显示
But Y2 一行却出错了 讯息如贴图

不论我用任何正常网址, 都无法抓到资料
请问是 我理解 file_get_contents 的功能有误
还是 调用方式不对, 亦或是 Php.js 内容有错?
惠请大侠指正  感谢

VBA万岁

Mark一下，日后学习。

VBA万岁

figfig 发表于 2010-5-3 23:59
jQuery由美国人John Resig创建，至今已吸引了来自世界各地的众多javascript高手加入其team，包括来自德国的 ...

测试该3个帖中所有代码如附件：
在VBA中使用JAVASCRIPT和VBSCRIPT.zip (287.3 KB, 下载次数: 85)

2014-10-28 10:06 上传

点击文件名下载附件