FormAsExportText()
Konvertierung eines F12-Formulars nach JSON
Konvertiert ein F12-Formular vom internen Array/Binär Format nach JSON.
Parameter | Beschreibung |
---|---|
uValue:U | F12 Formular im Array/Binär Format |
Rückgabewert
Alphanumerisch
Beispiel
CODE
|cProgIntern, cProgExport, cProgImport, aArr|
function SaveToFile(cValue, cFile)
|oFile|
oFile := FOpen(cFile, FO_CREATE),
FWrite(oFile, cValue),
FClose(oFile),
end,
function GetProg(cID)
|oDabFIL|
oDabFIL := BeOpen(waDabFIL),
if oDabFIL.CbFindKey({520, cID}) then
Result := oDabFIL:WIN_DATA,
endif,
BeClose(oDabFIL),
end,
function ExportForm(cID)
Result := FormAsExportText(GetProg(cID)),
end,
cProgIntern := GetProg('@TEST'),
cProgExport := FormAsExportText(cProgIntern), // Internes F12-Formular Format als JSON
cProgImport := FormToImportText(cProgExport), // F12-Formular als JSON zurück ins interne Format
SaveToFile(cProgIntern, 'c:\temp\Form_AsBin.txt'), // internes Format speichern als Datei
SaveToFile(cProgExport, 'c:\temp\Form_AsJSON.txt'), // JSON Format speichern als Datei
SaveToFile(cProgImport, 'c:\temp\Form_AsBinReconvert.txt'), // JSON Format zurück konvertiert ins interne Format als Datei
// internes Format ohne Header-Informationen
aArr := StrToArr(cProgIntern),
SaveToFile(aArr[3], 'c:\temp\Form_AsBin_OnlyForm.txt'),
aArr := FormToImportText(cProgExport, true),
SaveToFile(aArr[3], 'c:\temp\Form_AsBinReconvert_OnlyForm.txt'),