Jsonfile - DataObject -> reserved keyword

[Peter Schweizer]

Hallo Wissende,
ich werte die Antwort einer Epson - TSE aus und bin beim versuch das Dataobject auszuwerten auf eine "reserved keyword" compile error
gestoßen, als ich wie nachfolgend gezeigt auf oJson:function zugreifen wollte.
Erst durch die zwischengeschaltete Fkt: StrTran(cJson,'function','funktion') läßt es sich kompilieren.

Ist das so normal oder gibts vielleicht eine elegantere Methode ohne StrTran() ?

Code: Alles auswählen

cAntwort := TSE_Antwort()
oXML := XmlSimpleParser(cAntwort)	
IF oXML:getname() == "device_data"
	oData := oXML:getChild("data")
	IF oData:isElement("code") .AND. oData:code = 'SUCCESS'
		cJson := oData:resultdata
		cJson := StrTran(cJson,'function','funktion')
	 	oJson := Json2Var(cJson)
		*------------------------------------------------
		IF oJson:result = 'EXECUTION_OK'
			DO CASE
			CASE oJson:funktion = 'GetStorageInfo'
				oTSE_Info := oJson
				..........
			ENDCASE
		ELSE
	......

Gruß Peter

[Jan]

Peter,

ja, das ist so korrekt. Es gibt da einige Fallstricke. Memvars mit einem Bindestrich drin weden z. B. vor dem Bindestrich gekappt und der Bindestrich als Minus erkannt. Ich selber habe auch in einer Rückgabe aus einer Onlinedatenbank zu kämpfen gehabt mit einem :next, das ich nun ebenfalls per Strtran() wandle.

Jan

[Peter Schweizer]

Jan,

schade.
Aber wenn es so is, dann is es eben so.

Gruß Peter