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 z.b. direkter Wert aus DabFIL:WIN_DATA oder StrToArr(DabFIL:WIN_DATA)

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'),

Weitere Verknüpfungen

FormToImportText()