27 lines
700 B
QBasic
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
|