VBScript - Parse Json Value & store as Variable

Question

Ok guys so I need to obtain a value from a JSON file to be used inside a VBScript.

Here is the sample content:

{
"installedPacks": {
"vanilla": {
  "name": "vanilla",
  "build": "1.7.10",
  "directory": "%MODPACKS%\\vanilla"
}

I would like to read the contents of the file and locate specifically the build value (which in this case is 1.7.10) and assign it to a variable for later use.

I have an existing AppData variable that translates to:

objShell.ExpandEnvironmentStrings("%APPDATA%") & "\"

The file I need to open is in location: AppData & ".technic\installedPacks"

Sorry I managed to figure it out. I just used a script to open the file and matched with regexp. I will edit in the code above. — Bolte
– Bolte, Commented Jul 25, 2016 at 6:53

Bolte · Accepted Answer · 2016-07-25 23:43:49Z

1

Here is the code I used.

Function ForgeJSON(strTxt)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile( AppData & "ModPacker\ForgeVer.json", 1)
installedPacks = objFile.ReadAll

Dim oRE
Dim colMatches
Dim oMatch, I
Set oRE = New Regexp
oRE.Global = True
oRE.Pattern = """build"":\s""(.+?)"""
oRE.IgnoreCase = False
Set colMatches = oRE.Execute(strTxt)
For Each oMatch In colMatches

    If oMatch.SubMatches(0) = "recommended" Then
    Else
        strNextmap = oMatch.SubMatches(0)
    End If

Next

If strNextmap = "" Or IsNull (strNextmap) Then
ParseJSON = "No Match Found"
Else
ParseJSON = strNextmap
End If
End Function

answered Jul 25, 2016 at 23:43

Bolte

1413 silver badges15 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBScript - Parse Json Value & store as Variable

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related