Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Excel Examples


ASN.1
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Azure Cloud Storage
Azure Service Bus
Bounced Email
Box
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
ECC
Email Object
Encryption
FTP
Facebook
Firebase
GeoOp
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Gzip
HTML-to-XML/Text
HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)

Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
PayPal
Peoplevox
QuickBooks
REST
RSA Encryption
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Shopify
Socket/SSL/TLS
Spider
Stream
Stripe
SugarCRM
Tar Archive
Twitter
VoiceBase
Walmart
WebSocket
XML
XML Digital Signatures
XMP
Xero
Zip
curl
eBay

 

 

 

(Excel) JSON: Access Array Values

Demonstrates how to access values in a JSON array.

Download Excel Class Modules

Chilkat Excel Class Modules

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject

Dim jsonStr As String
jsonStr = "{ ""id"": 1, ""name"": ""A green door"", ""tags"": [""home"", 22, ""green""], ""price"": 125 }"

Dim success As Boolean
success = json.Load(jsonStr)
If (success <> True) Then
    Debug.Print json.LastErrorText
    Exit Sub
End If

'  Get the "tags" array, which contains "home", 22, "green"
Dim tagsArray As Chilkat.JsonArray
Set tagsArray = json.ArrayOf("tags")
If (tagsArray Is Nothing ) Then
    Debug.Print "tags member not found."
    Exit Sub
End If

'  Get the value at each array index.
'  Output will be:
'  [0] = home
'  [0] as integer = 0
'  [1] = 22
'  [1] as integer = 22
'  [2] = green
'  [2] as integer = 0

Dim arraySize As Long
arraySize = tagsArray.Size
Dim i As Long
For i = 0 To arraySize - 1

    Dim sValue As String
    sValue = tagsArray.StringAt(i)

    Debug.Print "["; i; "] = "; sValue

    Dim iValue As Long
    iValue = tagsArray.IntAt(i)
    Debug.Print "["; i; "] as integer = "; iValue

Next

'  Note: The StringAt method returns the value as a string regardless of the type.

'  The IntAt method returns the value as an integer.  If the value does not convert to
'  an integer, then 0 is returned.

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.