358026_it-IT

liliconcom

Come eseguire automaticamente gli script allegati su una tabella estratta dal database

Il codice seguente allegherà tutti gli script jsl nella directory c: \ work alla tabella dt.

 

Conosci qualche funzione / comando che può anche farlo funzionare automaticamente sul tavolo?

 

dt = Current Data Table();
dir = "C:\work";
fileNames = Files In Directory( dir );
if (dir!="",
 For( iFile = 1, iFile <= N Items( fileNames ), iFile++,
   filename = fileNames[iFile];
   show(filename);
   
   If( Ends With( filename, ".jsl" ),
    file_path = dir || "\" || filename;
    show(file_path);
    x = Load Text File( file_path );
    Eval( Parse( "dt << new script(filename," || x || ")" ) );
   );
  );
);

ScriptingRi: Come eseguire automaticamente gli script allegati su una tabella estratta dal database

Il

dt << run scripts( filename );

eseguirà lo script dopo che è stato salvato nella tabella dati.

dt = Current Data Table();
dir = "C:\work";
fileNames = Files In Directory( dir );
if (dir!="",
 For( iFile = 1, iFile <= N Items( fileNames ), iFile++,
   filename = fileNames[iFile];
   show(filename);
   
   If( Ends With( filename, ".jsl" ),
    file_path = dir || "\" || filename;
    show(file_path);
    x = Load Text File( file_path );
    Eval( Parse( "dt << new script(filename," || x || ")" ) );
    dt << run scripts( filename );
   );
  );
);

Se si desidera che tutti gli script vengano eseguiti ogni volta che viene aperta la tabella dati, è possibile aggiungere uno script di tabella denominato OnOpen in cui è possibile specificare di eseguire ciascuno degli script di tabella.