Method: ReadFile for JsonParser

Download PDF

Updated2024-09-12
1 minute(s) read

Reads in a string from a JSON file in UTF-8 format.

sReadFile = Object.ReadFile(Filename)

Object	JsonParser Object with this method
Filename	String Specifies the name and the path of the JSON file.
sReadFile	String Contains a JSON string.

The following example reads a JSON file, converts the JSON string into a dictionary object or an array, and displays the size of the dictionary object or array and the JSON string in the log area:

VBScript

Python

Copy script

Dim oJsonParser, sFile, sJsonString, oVbsVariant
Set oJsonParser = CreateJsonParser()
sFile = DataWritePath & "JsonObject.json"
sJsonString = oJsonParser.ReadFile(sFile)
Call oJsonParser.Deserialize(sJsonString, oVbsVariant)
Select Case VarType(oVbsVariant) 
Case vbObject
  Call LogfileWrite("Dictionary size: "  & oVbsVariant.Count)
Case vbArray + vbVariant
  Call LogfileWrite("Array size: "  & UBound(oVbsVariant)+1)
Case Else
  Call MsgBox("Some other data type")
End Select
Call LogfileWrite(sJsonString)

oJsonParser = dd.CreateJsonParser() 
sFile = dd.DataWritePath + "JsonObject.json" 
sJsonString = oJsonParser.ReadFile(sFile) 
oJsonParser.Deserialize(sJsonString, oVbsVariant) 
select_variable_0 = VarType(oVbsVariant) 
if (select_variable_0 == vbObject) : 
    dd.LogfileWrite("Dictionary size: "  + oVbsVariant.Count) 
elif (select_variable_0 == vbArray + vbVariant) : 
    dd.LogfileWrite("Array size: "  + len(oVbsVariant)+1) 
else: 
    print("Some other data type") 
dd.LogfileWrite(sJsonString)

DIAdem Help

Table of Contents

Method: ReadFile for JsonParser

See Also

Related Topics

Log in to get a better experience