725044_es-ES

liliconcom

Eliminar scripts duplicados

Hola,

He concatenado varios archivos en una base de datos, lo que generó una base de datos con muchos scripts duplicados. ¿Existe alguna forma de escribir un script para eliminar scripts duplicados? No quiero eliminarlos manualmente ya que agregaré más archivos a la base de datos con concatenación en el futuro, lo que agregaría nuevamente los scripts al archivo.

Automatización y secuencias de comandosRe: Eliminar scripts duplicados

Puede utilizar Obtener nombres de scripts de tablas para obtener los nombres de todos los scripts de tablas. Luego puede filtrarlo a una lista de scripts que desea eliminar y finalmente eliminarlos con << Eliminar scripts.

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

Re: Eliminar scripts duplicados

Actualización: lo resolví usando este método:

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