Sub ParseJSONBackupIRCodes(json As String) As String
	Dim data As String = ParseJSONBackupData(json)

	Dim parser As JSONParser
	parser.Initialize(data)

	Dim root As Map = parser.NextObject
	Dim irList As List = root.Get("irList")

	Dim deviceMap As Map
	deviceMap.Initialize

	Dim deviceMap2 As Map
	deviceMap2.Initialize

	Dim deviceList As List = root.Get("deviceList")
	For Each coldeviceList As Map In deviceList
		Dim deviceNo As Int = coldeviceList.Get("deviceNo")
		Dim deviceName As String = coldeviceList.Get("deviceName")
		Dim deviceType As Int = coldeviceList.Get("deviceType")

		deviceMap.Put(deviceNo,deviceName)
		deviceMap2.Put(deviceNo,deviceType)
	Next

	Dim output As String

	For Each colirList As Map In irList
		Dim ir As String = colirList.Get("ir")
		Dim deviceNo As Int = colirList.Get("deviceNo")
		Dim order As String = colirList.Get("order")

		output = output & deviceMap.Get(deviceNo) & "," & Strings.order.Get(order) & "," & ir & CRLF
	Next

	Return output
End Sub