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

简化Json工具...

Browse Source 
Signed-off-by: 502647092 <jtb1@163.com>
This commit is contained in:
502647092
2016-01-31 20:37:14 +08:00
parent b4d8728830
commit 41975484fb
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
JsonUtils.bas
View File

@@ -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