AutoHotkey Community

Code: Select all

FileRead, JSONdata, %WBdir%\URLdata.json

readJSON := JSON.Load(JSONdata) ; load new 
		
Xl.ActiveSheet.Range("B" URLcell).Value := readJSON["audits","uses-webp-images","details","items"]
		

Code: Select all

    "uses-webp-images": {
      "id": "uses-webp-images",
      "title": "Serve images in next-gen formats",
      "description": "Image formats like JPEG 2000, JPEG XR, and WebP often provide better compression than PNG or JPEG, which means faster downloads and less data consumption. [Learn more](https://developers.google.com/web/tools/lighthouse/audits/webp).",
      "score": 0.58,
      "scoreDisplayMode": "numeric",
      "rawValue": 600,
      "displayValue": [
        "Potential savings of %d KB",
        103
      ],
      "warnings": [],
      "details": {
        "type": "opportunity",
        "headings": [
          {
            "key": "url",
            "valueType": "thumbnail",
            "label": ""
          },
          {
            "key": "url",
            "valueType": "url",
            "label": "URL"
          },
          {
            "key": "totalBytes",
            "valueType": "bytes",
            "label": "Original"
          },
          {
            "key": "wastedBytes",
            "valueType": "bytes",
            "label": "Potential Savings"
          }
        ],
        "items": [
          {
            "url": "https://www.merckvaccines.com/INTERSHOP/static/WFS/Merck-MerckVaccines-Site/-/Merck-MerckVaccines-merckvaccines-responsive/-/img/pneumovax/bannerpatentImage.jpg",
            "fromProtocol": true,
            "isCrossOrigin": false,
            "totalBytes": 65675,
            "wastedBytes": 52827
          },
          {
            "url": "https://www.merckvaccines.com/INTERSHOP/static/WFS/Merck-MerckVaccines-Site/-/-/en_US/img/pneumovax/bannerLeftBgMobile.png",
            "fromProtocol": true,
            "isCrossOrigin": false,
            "totalBytes": 45569,
            "wastedBytes": 44539
          },
          {
            "url": "https://www.merckvaccines.com/INTERSHOP/static/WFS/Merck-MerckVaccines-Site/-/-/en_US/img/merck_logo_mob.png",
            "fromProtocol": true,
            "isCrossOrigin": false,
            "totalBytes": 14760,
            "wastedBytes": 8414
          }
        ],
        "overallSavingsMs": 600,
        "overallSavingsBytes": 105780
      }
    },

Code: Select all

Xl.ActiveSheet.Range("B" URLcell).Value := readJSON["audits","uses-webp-images","details","items"[0],"url"]

Code: Select all

Xl.ActiveSheet.Range("B" URLcell).Value := readJSON["audits","uses-webp-images","details","items",1,"url"]

Code: Select all

Xl.ActiveSheet.Range("B" URLcell).Value := readJSON.audits.uses-webp-images.details.items.1.url

Code: Select all

	!z::
	{
	FileRead, JSONdata, C:\users\user0\URLscores.json

	readJSON := Jxon_Load(JSONdata) ; load new 

		Loop,
		{
		Xl := ComObjActive("Excel.Application") ; creates Excel handle

		Xl.ActiveCell.Value := readJSON["audits","uses-optimized-images","details","items", A_Index ,"url"]

		Worked := readJSON["audits","uses-optimized-images","details","items", A_Index ,"url"]

			if Worked =
					{		
					break
					}
						else
							{
							Xl.ActiveCell.Offset(1,0).Select  ; (row,column), this moves cell 1 down
							}
			}
	}
	return 

Code: Select all

#Include Jxon.ahk
JSONdata =
(LTrim
    {
        "audits": {
            "uses-optimized-images": {
                "details": {
                    "items": [
                        {"url": "helloworld"}
                    ]                   
                }
            }
        }
    }
)

; FileRead, JSONdata, C:\users\user0\URLscores.json
readJSON := Jxon_Load(JSONdata) ; load new 

parsing_cmd_var := "audits.uses-optimized-images.details.items[1].url"
parsing_cmd_var := RegExReplace(parsing_cmd_var, "\[(\d+)\]", ".$1")
; or
; parsing_cmd_var := "audits.uses-optimized-images.details.items.1.url"

Params := StrSplit(parsing_cmd_var, ".")
var := readJSON[Params.RemoveAt(1)]
for each, param in Params
    var := var[param]
MsgBox % var

Code: Select all

[
	["TestVar", "SomeItem", "Variables"],
	["George", "Billy Joe", "Bob", "Sam"],
	["Interactions", "SomeValue", "Yay"]
]

Code: Select all

Array :=
(LTrim Join
	[
		["TestVar", "SomeItem", "Variables"],
		["George", "Billy Joe", "Bob", "Sam"],
		["Interactions", "SomeValue", "Yay"]
	]
)
MsgBox, % Array[1, 1]	; Should output to "TestVar" without quotes.

Code: Select all

Array :=  ; <-- continuation section is evaluating an expression
(LTrim Join
	[
		["TestVar", "SomeItem", "Variables"],
		["George", "Billy Joe", "Bob", "Sam"],
		["Interactions", "SomeValue", "Yay"]
	]
)
MsgBox, % Array[1, 1]	; Should output to "TestVar" without quotes.


Array =  ; <-- continuation section is simply a string
(LTrim Join
	[
		["TestVar", "SomeItem", "Variables"],
		["George", "Billy Joe", "Bob", "Sam"],
		["Interactions", "SomeValue", "Yay"]
	]
)
Array := JSON.Load(Array)
MsgBox, % Array[1, 1]	; Should output to "TestVar" without quotes.

Code: Select all

#Include JSON.ahk
#Include JsonFile.ahk
#Include obj2str.ahk

Array := [["TestVar", "SomeItem", "Variables"],["George", "Billy Joe", "Bob", "Sam"],["Interactions", "SomeValue", "Yay"]]
MsgBox, % Array[2,4] ; should write 'Sam'

Array :=  ; <-- continuation section is evaluating an expression
(LTrim Join
	[
		["TestVar", "SomeItem", "Variables"],
		["George", "Billy Joe", "Bob", "Sam"],
		["Interactions", "SomeValue", "Yay"]
	]
)
MsgBox, % Array[1, 1]	; Should output to "TestVar" without quotes.


Array =  ; <-- continuation section is simply a string
(LTrim Join
	[
		["TestVar", "SomeItem", "Variables"],
		["George", "Billy Joe", "Bob", "Sam"],
		["Interactions", "SomeValue", "Yay"]
	]
)
Array := JSON.Load(Array)
MsgBox, % Array[1, 3]	; Should output to "Variables" without quotes.
MsgBox, % Array[2, 2]	; Should output to "Billy Joe" without quotes.

arrgh := Obj2Str(Array)
MsgBox, %arrgh%

arrghX2 := JSON.Dump(Array)
MsgBox, %arrghX2%

Code: Select all

Static quot := Chr(34)
MsgBox, quot ; Should return double quote, but instead gives nothing.

Code: Select all

MsgBox, % quot

Code: Select all

DoIt()

DoIt() {
Static quot := Chr(34) 
MsgBox, quot ; 'quot'
Msgbox, %quot% ; '"'
}

Code: Select all

Code() {
	Static Init := Code() ; Run this function on startup.

	Str := ; --
	Arr := JSON.Load(Str)
	Return
}