Buenos días a todos,
Tengo varias columnas:
1- columnas de "fecha de inicio"
2- Columnas “Fecha de finalización”
Normalmente, cada columna que pertenece al grupo (2) también debería pertenecer al grupo (1) y viceversa. Entonces deberíamos tener el mismo número de columnas en ambos grupos.
Sin embargo, las columnas que pertenecen al grupo 1 no pertenecen al grupo 2 y viceversa.
Ejemplo : "fecha de inicio 9899" pero la columna "fecha de finalización 9899" no existe.
El objetivo es tener la intersección de estos 2 grupos para que haya las mismas columnas en los 2 grupos.
Me inspiro en el siguiente código:Names Default To Here(1);
dt = Current Data Table();
// build
aa_duree = Associative Array();
aa_nonduree = Associative Array();
For Each({col_name}, dt << Get Column Names("String"),
If(Word(1, col_name) == "date début",
aa_duree[Word(-1, col_name)] = col_name;
, !IsMissing(Regex(col_name, "")),
aa_nonduree[col_name] = 1;
,
continue()
);
);
show(aa_duree);
show(aa_nonduree);
aa_duree_copy = aa_duree;
aa_duree_copy << Intersect(aa_nonduree);
cols_to_keep = Insert(aa_duree_copy << get keys, aa_duree_copy << get values);
aa_duree_copy2 = aa_duree;
aa_nonduree_copy = aa_nonduree;
aa_duree_copy2 << remove(aa_nonduree);
aa_nonduree_copy << remove(aa_duree);
cols_to_remove = Insert(aa_nonduree_copy << get keys, aa_duree_copy2 << get values);
show(cols_to_keep, cols_to_remove); El script de ejemplo que proporcionó no funcionará porque Word(1, col_name) solo devolverá el primer trabajo de la cadena y lo está comparando con dos palabras. Entonces, la declaración if siempre irá a la declaración else. Puede haber otros problemas, pero ese es al menos un problema allí. Puede intentar cambiar Words, por ejemplo, a Starts With() https://www.jmp.com/support/help/en/17.0/#page/jmp/character-functions-2.shtml?os=win&source=application#ww2489516 . También asegúrese de que los casos sean correctos al comparar cadenas
Esta es mi forma de la vieja escuela de abordar el problema.
Names Default To Here( 1 );
dt = Current Data Table();
keep = {};
delete = {};
colNameList = dt << get column names( string );
For Each( {col, i}, colNameList, colNameList[i] = Uppercase( col ) );
While( N Items( colNameList ) > 0,
If(
Contains( colNameList[1], Uppercase( "Date début" ) ),
found = Contains( colNameList, Substitute( colNameList[1], Uppercase( "début" ), "FIN" ) );
If( found > 0,
Insert Into( keep, colNameList[1] );
Insert Into( keep, colNameList[found] );
Remove From( colNameList, found, 1 );
Remove From( colNameList, 1, 1 );
,
Insert Into( delete, colNameList[1] );
Remove From( colNameList, 1, 1 )
);,
Contains( colNameList[1], Uppercase( "Date fin" ) ),
found = Contains( colNameList, Substitute( colNameList[1], "FIN", Uppercase( "début" ) ) );
If( found > 0,
Insert Into( keep, colNameList[1] );
Insert Into( keep, colNameList[found] );
Remove From( colNameList, found, 1 );
Remove From( colNameList, 1, 1 );
,
Insert Into( delete, colNameList[1] );
Remove From( colNameList, 1, 1 )
);,
Remove From( colNameList, 1, 1 )
)
);
show( keep, delete );¡Genial, gracias por tu ayuda!