Full Screen
//Forcer la fermeture du FastCGI apres la requete CGI:bRestartFCGI = Faux sNomWDL est chaine = Remplace(ExeInfo(exeNom)," (deleted)","")+"" sDtWDL est DateHeure = fDateHeure(sNomWDL) SI Vrai ALORS EN DEVELOPPEMENT - Date WDL [%DateVersChaine(sDtWDL..PartieDate)%] [%HeureVersChaine(sDtWDL..PartieHeure)[[A 8]]%] FIN
Démo Classe cJSON - WDSCRIPT 2.6

Parser JSON en Ligne : http://json.parser.online.fr/
// WD est un objet WDSCRIPT = CGI //XSendFile("/var/www/var/www/tanguy.ath.cx/demo_json/demo.ini") //Annule() //bufRes est une chaine //Sérialise(CGI:ENV, bufRes, psdJSON) //echo(BufRes) hrXML1 est une Heure Conversion JSON de l'objet WDScript sous Linux - Echo( JSON(CGI) ) en WDScript 2.5 & 2.6
hrXML2 est une Heure tmExec est entier = hrXML2-hrXML1
Execution [%tmExec%] ms.
SI FAUX ALORS

Rétro Analyse d'une Structure Simple


Rétro Analyse d'une Structure Simple
oJSON:Serialise(st) Serialise(oJSON:tElements,buf,psdXML) //oJSON:Name=Droite(oJSON:Buffer,oJSON:Header:nSizeData+oJSON:Header:nSizeDesc-1) //oJSON:Name=oJSON:Buffer[[Dimension(oJSON:Header)+5 sur 4]]//oJSON:Header:nSizeName]] tSerialisation est un tableau associatif d'entiers rec1 est une structure i1 est entier sur 1 octet u1 est entier sur 1 octet sans signe i2 est entier sur 2 octet u2 est entier sur 2 octet sans signe i4 est entier sur 4 octet u4 est entier sur 4 octet sans signe i8 est entier sur 8 octet u8 est entier sur 8 octet sans signe uu est entier sur 4 octet sans signe //systeme sur 8 octets zf4 est buffer sur 4 FIN st est un rec1 st:i1 = 0x01 st:u1 = 0x11 st:i2 = 0x0202 st:u2 = 0x2222 st:i4 = 0x04040404 st:u4 = 0x44444444 //st:i8 = 0x0808080808080808 st:u8 = 0x8888888888888888 st:uu = 0xFFFFFFFF st:zf4 = "test" st2 est un tableau de 4 rec1 TableauAjoute(st2,st) TableauAjoute(st2,st) oJSON:Serialise(st2) FIN




Tanguy Pruvot - 2010