XProfan

Cls
showmax
declare long js, xs, liste
js = Create("json","C:\\Profan\\Projekte\\XProfanQuelltexte\\quelltexte.json")
print "Json-Objekt aus File importieren und "
var string text = json("TEXT", js, 1)
print "lesbar Mostra:"
print text
print
print "Als Json-String Mostra:"
text = json("TEXT", js, 0)
print text
print
print "Taste drücken ..."
waitinput

Window 1024, 768
// JSON-Objekt einlesen
var int js = Create("json","F:\\Entw\\Profan Projekte\\X4\\quelltexte2.json")
// Wieviele Elmente enthält das Objkekt
var int anz = json("Count", js)
print str$(anz) + " Element(e)"// 1 Element
// Typ des Elements
var string typ[] = "", "Number", "String", "Boolean", "NULL", "Liste", "Objekt"
var int typnr = json("Type", js, 0)
print typnr, typ[typnr]
// Name der Liste
var string name = json("Name", js, 0)
print name
// Liste einlesen
var int liste = json("getList", js, name)
// Wieviele Elmente enthält die Liste
anz = json("Count", liste)
print str$(anz) + " Element(e)"// 1 Element
WaitInput
End

Window 1024, 768
// JSON-Objekt einlesen
var int js = Create("json","F:\\Entw\\Profan Projekte\\X4\\quelltexte2.json")
// Liste einlesen
var int liste = json("getList", js, "texte")
// Das erste Objekt der Liste einleseb
var int obj = json("getObject", liste, 0)
var string title = json("getString", obj, "title")
var string text  = json("getString", obj, "text")
// title enthält den Titel des Programmi, text den Base64 codierten Programmtext
// text decodieren
text = decode64(text)
// ein paar HTML-Tags konvertieren (hier nure einige als Beispiel. Es gibt mehr.)
text = translate$(text, "& #40;", "(")// Leerzeichen zwischen & und # entfernen!
text = translate$(text, "& #41;", ")")// Leerzeichen zwischen & und # entfernen!
text = translate$(text, """, "\q")
print text
// Als File speichern
Blockwrite title+".prf", text
waitinput

set("RegEx", 1)
text = translate$(text, "& #40;", "(")
text = translate$(text, "& #41;", ")")
text = translate$(text, "& #58;", ":")
text = translate$(text, "ä", "ä")
text = translate$(text, "ö", "ö")
text = translate$(text, "ü", "ü")
text = translate$(text, "ß", "ß")
text = translate$(text, """, "\q")
text = translate$(text, "~[b[ -Z^-z]*~]", "// ")
text = translate$(text, "~[/b[ -Z^-z]*~]", "")
text = translate$(text, "~[code[ -Z^-z]*~]", "")
text = translate$(text, "~[/code[ -Z^-z]*~]", "")
text = translate$(text, "~[color=[ -Z^-z]*~]", "")
text = translate$(text, "~[/color[ -Z^-z]*~]", "")

var string text = blockread("F:\\Entw\\Profan Projekte\\X4\\quelltexte.json")
text = "{\qtexte\q:" + text + "}"
var int js = json("Parse", text)