<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Je trouve la largeur des zones de liste dans l'interface utilisateur graphique «concaténer des tables» trop étroite pour les noms de mes tables, qui sont très longues. Ce script les élargit en utilisant la fonction set width, argument en pixels. La fonction 500 dans la fonction Min () devra peut-être être modifiée en fonction de la résolution de l'écran, mais cela fonctionne pour moi. D'autres interfaces graphiques peuvent tirer profit de quelque chose de similaire, mais j'utilise plusieurs ordres de grandeur de concaténation plus souvent que d'autres manipulateurs de plate-forme de table tels que join. Utilisez la fonctionnalité 'afficher la structure de l'arborescence' et modifiez-la si nécessaire.
BTW j'ai trouvé la chose "listboxbox" bizarre. D'habitude c'est juste "listbox". Cela m'a jeté une boucle pendant un moment jusqu'à ce que je le remarque.
nouvelle table ( "La plupart de mes tables de données ont des noms de fichiers absurdement longs mais extraordinairement descriptifs" ) ; // quand j'ai exécuté ce test, il me restait 3 autres tables ouvertes portant des noms plus longs; maxLen = 85 caractères.
// le script commence ici
dt = tableau de données actuel () ;
maxLen = 20 ;
pour ( je = 1 , je <= N table () , je ++,
nameLen = tableau de données ( je ) << avoir un nom ;
si ( longueur ( nameLen ) > maxLen ,
maxLen = longueur ( nameLen ) ;
) ;
) ;
dt << enchaîner () ;
// wait (0);
myWin = la fenêtre ( "Enchaîner" ) ;
attendre ( 0 ) ;
myRef = myWin [ Boîte à liste ( 1 )] ; //
myRef << définir la largeur ( min ( 500 , maxLen * 6 )) ; // largeur en pixels, le * 6 semblait à peu près correct.
myRef = myWin [ Boîte à liste ( 2 )] ; //
myRef << définir la largeur ( min ( 500 , maxLen * 6 )) ;
