Sub KeepTables (Table2Keep)
//Удаляет из модели все таблицы кроме тех, что указаны в параметре TableToKeep, с разделенем через ";"
unqualify *;
tablemap:
mapping load
subfield('$(Table2Keep)',';'),
1
AutoGenerate 1;
For t = 0 to NoOfTables() - 1
KillTables:
Load
TableName($(t)) as KillTables
Autogenerate 1 where applymap('tablemap',TableName($(t)))<>1;
Next t;
KillTablesConcat: load Concat(distinct '['&KillTables&']',',') as KillTablesConcat resident KillTables;
let vTables2Kill='drop tables '&peek('KillTablesConcat',0,'KillTablesConcat')&';';
drop tables KillTablesConcat, KillTables;
$(vTables2Kill)
let vTableToKeep=null();
let vTables2Kill=null();
let t=null();
end Sub
A: load * inline [
1,2
];
B: load * inline [
3,4
];
C: load * inline [
5,6
];
Call KeepTables('A;C');