725044_zh-CN

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 );
    );
);