Komponenta pro export souboru struktury

Díky verzi 4D v17 R3 můžete exportovat soubor se strukturou do více textových souborů. Pomocí několika řádků kódu můžete například každé ráno vytvořit kopii své databáze. To můžete využít ke sledování historie nebo k tomu, abyste databázi poslali kolegovi a viděli změny, až s ní skončí práci.

Poskytujeme vám komponentu připravenou k použití, která má pouze dvě metody: jedna slouží ke konfiguraci dat, která se mají exportovat, a druhá k exportu databáze.

Zdrojový kód komponenty

Konfigurace dat

V této komponentě se pomocí metody „OpenDialConfigExport“ zobrazí rozhraní pro konfiguraci vašeho exportu. Výsledek se uloží do souboru JSON vedle struktury hostitelské databáze.

Provedete například následující příkaz:

// Display the configuration dialog
OpenDialConfigExport

Poté vyberte prvky, které chcete exportovat:

Po kliknutí na tlačítko „Uložit“ se vytvoří následující soubor „configExport.json“.

{
  "withLog": "ifNotEmpty",
  "filter": {
    "projectMethods": true,
    "databaseMethods": true,
    "triggerMethods": false,
    "forms": true,
    "catalog": true,
    "folders": false,
    "settings": false,
    "menus": false,
    "tips": false,
    "lists": false,
    "filters": false,
    "pictures": false,
    "resources": false,
    "trash": false,
    "windowPositions": false,
    "methodPreferences": false
  }
}

Tento příkaz nemusíte provádět. Pokud konfigurační soubor neexistuje, vyexportuje se celý soubor se strukturou.

Export struktury

Pro export souboru struktury použijte metodu komponenty ExportStructure. Jako parametr předejte složku, do které se obsah exportuje.

Například chcete exportovat kopii kódu do složky s názvem „YY-MM-DD hh-mm-ss“.

Stačí napsat následující kód:

C_TEXT($path)
$path :=System folder(Documents folder)+"Export "+Folder separator\
+Path to object(Structure file).name+Folder separator\
+Replace string(Replace string(String(Current date;ISO date;Current time);":";"-"); "T";" ")+Folder separator
If (Test path name($path)#Is a folder)
CREATE FOLDER ($path;*)
End if
ExportStructure ($path)