1
0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2024-10-31 22:38:50 +00:00
VBFunctionBas/JsonUtils.bas
502647092 41975484fb 简化Json工具...
Signed-off-by: 502647092 <jtb1@163.com>
2016-01-31 20:37:14 +08:00

27 lines
700 B
QBasic

Attribute VB_Name = "JsonUtils"
Option Explicit
Public Function CreateJson(JsonFile As String) As Object
Dim JsonLine As String
Dim S As String
Open JsonFile For Input As 1
Do Until EOF(1)
Line Input #1, S
JsonLine = JsonLine & S
Loop
Close #1
Set CreateJson = StrToJson(JsonLine)
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