502647092/VBFunctionBas
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2025-11-24 21:26:26 +00:00
Code Releases Activity

新增功能模块...

Browse Source 
Signed-off-by: 502647092 <jtb1@163.com>
This commit is contained in:
502647092
2015-10-27 10:36:53 +08:00
parent 8492ab368b
commit db463fa993
4 changed files with 953 additions and 979 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
JsonUtils.bas Normal file
View File

@@ -0,0 +1,31 @@
Attribute VB_Name = "JsonUtils"
Option Explicit
Public Function CreateJson(JsonFile As String) As Object
Dim JsonLine As String
Dim S As String
Dim js
Open JsonFile For Input As 1
Do Until EOF(1)
Line Input #1, S
JsonLine = JsonLine & S
Loop
Close #1
Set js = CreateObject("ScriptControl")
js.Language = "JScript"
js.AddCode "function j(s) { return eval('(' + s + ')'); }"
Set CreateJson = js.Run("j", JsonLine)
Set js = Nothing
End Function
Public Function StrToJson(ByVal jsonstring As String) As Object
On Error Resume Next
Dim S As String
Dim js
Set StrToJson = Nothing
Set js = CreateObject("ScriptControl")
js.Language = "JScript"
js.AddCode "function j(s) { return eval('(' + s + ')'); }"
Set StrToJson = js.Run("j", jsonstring)
Set js = Nothing
End Function