在VBA中使用JAVASCRIPT和VBSCRIPT（3）

figfig

phpjs是用js实现php同名函数，对PHP熟悉而对JS一般熟悉的人一定写过一些类似PHP函数的JS函数，PHP的函数应该是这个世界上最丰富的函数库了，因为它是由全世界各地PHPER共同完成的（不过很多PHP函数并没有内置，而需要额外安装）。所以能实现PHP的函数的JS，那么在开发中应该是相当有利。

PHPJS是一个国外开源项目，就是以JAVASCRIPT来实现PHP中的常用内置函数。包括serialize()，强悍的file_get_contents()，强悍的file()，require







具体函数用法查询

http://phpjs.org/functions/index

已使用PHP的倒转字符串函数 STRREV 为例


注意:先把附件的PHP.JS解压到c盘下面.
Sub figphp()

Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
Set f = CreateObject("scripting.filesystemobject")
f1 = f.opentextfile("c:\php.js").readall
x.addcode f1
aa = "hi,fig888 999"
y = x.codeobject.strrev(aa)
MsgBox y

End Sub

[ 本帖最后由 figfig 于 2009-9-19 09:59 编辑 ]

figfig

Sub figphp()

Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
Set f = CreateObject("scripting.filesystemobject")
f1 = f.opentextfile("c:\php.js").readall
x.addcode f1
aa = "hi fig888 k99"
y = x.codeobject.ucwords(aa)
MsgBox y

End Sub

figfig

Sub figphp()

Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
Set f = CreateObject("scripting.filesystemobject")
f1 = f.opentextfile("c:\php.js").readall
x.addcode f1
aa = "hi,fff,ml"
y = x.codeobject.chunk_split(aa, 3, "*")
MsgBox y

End Sub

figfig

Sub figphp()

Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
Set f = CreateObject("scripting.filesystemobject")
f1 = f.opentextfile("c:\php.js").readall
x.addcode f1
aa = "hi,fff,ml"
y = x.codeobject.substr_count(aa, "f")
MsgBox y

End Sub

lb_bn

继续站队听课。

figfig

Sub hh()

Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
s = " function student(){this.name='aaa'; this.age=20;this.getname=function(){return this.name;};this.getage=function(){return this.age;}}"

x.addcode s


x.executestatement "var s=new student(); i=s.getname();j=s.getage();"

y = x.eval("i")

MsgBox y


y = x.eval("j")

MsgBox y



End Sub

byl2005

现在看不懂 要继续努力学习

figfig

1.先建立一个文本文件，保存为 c:\aaa.txt


2.读取

Sub fig8()

Set x = CreateObject("scriptcontrol")

x.Language = "jscript"



s = "function aa(aa) {var xmlhttp = new ActiveXObject('Microsoft.XMLHTTP');xmlhttp.open('Get', aa, false); xmlhttp.send(null);return xmlhttp.responseText;};"
x.addcode s

y = x.codeobject.aa("c:\aaa.txt")

MsgBox y

End Sub

[ 本帖最后由 figfig 于 2010-3-6 15:35 编辑 ]

figfig

Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
    Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
     
     'You can also set a ref. to Microsoft XML, and Dim oXMLHTTP as MSXML2.XMLHTTP
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", vWebFile, False 'Open socket to get the website
    oXMLHTTP.Send 'send request
     
     'Wait for request to finish
    Do While oXMLHTTP.readyState <> 4
        DoEvents
    Loop
     
    oResp = oXMLHTTP.responseBody 'Returns the results as a byte array
     
     'Create local file and save results to it
    vFF = FreeFile
    If Dir(vLocalFile) <> "" Then Kill vLocalFile
    Open vLocalFile For Binary As #vFF
    Put #vFF, , oResp
    Close #vFF
     
     'Clear memory
    Set oXMLHTTP = Nothing
End Function

Sub TestingTheCode()
     'This will save the Google logo to your hard drive, insert it into the
     ' active spreadsheet, then delete the local file
    SaveWebFile "http://www.google.com/intl/en/images/logo.gif", "C:\GoogleLogo.gif"
    ActiveSheet.Pictures.Insert "C:\GoogleLogo.gif"
    Kill "C:\GoogleLogo.gif"
End Sub

赵国辉

js & vbs 三——占位
居然一直没看到，罪过！