<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Trovo la larghezza delle caselle di riepilogo nella GUI delle "tabelle concatenate" troppo ristretta per i miei nomi di tabelle, che sono molto lunghi. Questo script li allarga usando la funzione set width, argomento in pixel. Potrebbe essere necessario variare la funzione 500 nella funzione Min () in base alla risoluzione dello schermo, ma funziona per me. Altre GUI possono trarre beneficio da qualcosa di simile ma io uso concatenare più ordini di grandezza più spesso di altri manipolatori di piattaforme da tavolo come join. Usa la funzione 'mostra struttura ad albero' e modifica secondo necessità.
A proposito ho trovato la cosa "listboxbox" strana. Di solito è solo "listbox". Questo mi ha gettato per un ciclo per un po 'finché non l'ho notato.
nuovo tavolo ( "La maggior parte delle mie tabelle di dati ha nomi di file assurdamente lunghi ma straordinariamente descrittivi" ) ; // quando ho eseguito questo test avevo ancora 3 altre tabelle aperte con nomi più lunghi; maxLen = 85 caratteri.
// lo script attuale inizia qui
dt = tabella dei dati corrente () ;
maxLen = 20 ;
per ( io = 1 , io <= Tavolo N () , io ++,
namelen = tabella dati ( io ) << prendi il nome ;
Se ( lunghezza ( namelen ) > maxLen ,
maxLen = lunghezza ( namelen ) ;
) ;
) ;
dt << concatenare () ;
// attesa (0);
myWin = finestra ( "Concatenare" ) ;
aspettare ( 0 ) ;
mio_rif = myWin [ Listboxbox ( 1 )] ; //
mio_rif << impostare la larghezza ( min ( 500 , maxLen * 6 )) ; // larghezza in pixel, * 6 sembrava giusto.
mio_rif = myWin [ Listboxbox ( 2 )] ; //
mio_rif << impostare la larghezza ( min ( 500 , maxLen * 6 )) ;
