725044_zh-TW

liliconcom

刪除重複腳本

你好，

我已將多個文件連接到一個資料庫中，這導致資料庫中包含許多重複的腳本。有沒有辦法編寫一個腳本來刪除重複的腳本？我不想手動刪除它們，因為將來我將通過串聯將更多文件添加到資料庫中，這將再次將腳本添加到文件中。

自動化和腳本編寫回覆：刪除重複腳本

您可以使用取得表格腳本名稱來取得所有表格腳本的名稱。然後，您可以將其過濾到要刪除的腳本列表，最後使用 << 刪除腳本刪除它們

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
names = dt << Get Table Script Names;
Show(names);

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
dt << New Table Script(
	"New Script",
	Distribution(Column(:Height, :Weight), By(:sex))
);
Wait(2);
dt << Delete Scripts("New Script");

回覆：刪除重複腳本

更新-我用這個方法解決了它：

dt = Current Data Table(); 
names = dt << Get Table Script Names;

Show(names);
wordsToDelete = {"Script 1 name", "Script 2 name", "Script 3 name"};
For(i = 1, i <= N Items(names), i++,
    scriptName = names[i];
    containsWord = 0;
    For(j = 1, j <= N Items(wordsToDelete), j++,
        word = wordsToDelete[j];
        If( Contains( scriptName, word ),
            containsWord = 1;
            Break();
        );
    );
   If( containsWord,
        dt << Delete Scripts( scriptName );
    );
);