Tengo un JLS que funciona bien, pero poco a poco, ¿hay algún método para mejorarlo?
1. importar varios archivos
2. basarse en el grupo de reglas de nombre de archivo en a, b, c, d, e
3. basarse en la regla de nombre de archivo para decidir el recuento de archivos y configurarlos en filas para cada grupo
Names Default To Here(1);
dir = Pick Directory( "Select a directory" );
Multiple File Import(
<<SET folder=""> 0, insertar en (a_filelist,filelist[i])); si (b_files > 0, insertar en(b_filelist,filelist[i])); si (c_files > 0, insertar en(c_filelist,filelist[i])); si (d_files > 0, insertar en(d_filelist,filelist[i])); si (e_files > 0, insertar en(e_filelist,filelist[i])); ); for (i = 1, i <= N elementos(a_filelist), i++, is_reset_file = contiene(a_filelist[i],"NULL"); if( is_reset_file >= 1, selrows = dt << obtener filas Donde(Contiene(char (a_filelist[i]), :Nombre de archivo)); column(dt,"file_lable")[selrows] = 0; b_count = 0; ); if (is_reset_file == 0, a_count = a_count + 1; selrows = dt < < obtener filas Donde(Contiene(char(a_filelist[i]), :Nombre de archivo)); columna(dt,"file_lable")[selrows] = a_count ) ); for (i = 1, i <= N elementos(b_filelist), i++, is_reset_file = contiene(b_filelist[i],"NULL"); if( is_reset_file >= 1, selrows = dt << obtener filas Donde(Contiene(char (b_filelist[i]), :Nombre de archivo)); column(dt,"file_lable")[selrows] = 0; b_count = 0; ); if (is_reset_file == 0, b_count = b_count + 1; selrows = dt < < obtener filas Donde(Contiene(char(b_filelist[i]), :Nombre de archivo)); columna(dt,"file_lable")[selrows] = b_count ) ); // lo siguiente es un bucle para C, D, E</SET>
