parent
b4d8728830
commit
41975484fb
|
@ -4,18 +4,13 @@ Option Explicit
|
||||||
Public Function CreateJson(JsonFile As String) As Object
|
Public Function CreateJson(JsonFile As String) As Object
|
||||||
Dim JsonLine As String
|
Dim JsonLine As String
|
||||||
Dim S As String
|
Dim S As String
|
||||||
Dim js
|
|
||||||
Open JsonFile For Input As 1
|
Open JsonFile For Input As 1
|
||||||
Do Until EOF(1)
|
Do Until EOF(1)
|
||||||
Line Input #1, S
|
Line Input #1, S
|
||||||
JsonLine = JsonLine & S
|
JsonLine = JsonLine & S
|
||||||
Loop
|
Loop
|
||||||
Close #1
|
Close #1
|
||||||
Set js = CreateObject("ScriptControl")
|
Set CreateJson = StrToJson(JsonLine)
|
||||||
js.Language = "JScript"
|
|
||||||
js.AddCode "function j(s) { return eval('(' + s + ')'); }"
|
|
||||||
Set CreateJson = js.Run("j", JsonLine)
|
|
||||||
Set js = Nothing
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Function StrToJson(ByVal jsonstring As String) As Object
|
Public Function StrToJson(ByVal jsonstring As String) As Object
|
||||||
|
|
Loading…
Reference in New Issue