<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Ich finde die Breite der Listenfelder in der GUI "Tabellen verketten" zu schmal für meine Tabellennamen, die sehr lang sind. Dieses Skript erweitert sie mithilfe der Funktion set width (Argument in Pixel). Die 500 in der Min () - Funktion muss möglicherweise basierend auf der Bildschirmauflösung variiert werden, aber es funktioniert für mich. Andere GUIs können von etwas Ähnlichem profitieren, aber ich verwende häufiger mehrere Größenordnungen als andere Manipulatoren für Tabellenplattformen wie join. Verwenden Sie die Funktion "Baumstruktur anzeigen" und ändern Sie sie nach Bedarf.
Übrigens fand ich die "Listboxbox" Sache komisch. Normalerweise ist es nur "Listbox". Das warf mich eine Weile für eine Schleife, bis ich es bemerkte.
neue Tabelle ( "Die meisten meiner Datentabellen haben absurd lange, aber außerordentlich beschreibende Dateinamen." ) ; // Als ich diesen Test durchführte, hatte ich noch 3 andere offene Tabellen mit längeren Namen. maxLen = 85 Zeichen.
// Das eigentliche Skript beginnt hier
dt = aktuelle Datentabelle () ;
maxLen = 20 ;
zum ( ich = 1 . ich <= N Tisch () . ich ++
nameLen = Datentabelle ( ich ) << Name bekommen ;
ob ( Länge ( nameLen ) > maxLen .
maxLen = Länge ( nameLen ) ;
) ;
) ;
dt << verketten () ;
// warte (0);
myWin = Fenster ( "Verketten" ) ;
warten ( 0 ) ;
myRef = myWin [ Listboxbox ( 1 )] ; //
myRef << Breite einstellen ( Mindest ( 500 . maxLen * 6 )) ; // Breite in Pixel, der * 6 schien ungefähr richtig zu sein.
myRef = myWin [ Listboxbox ( 2 )] ; //
myRef << Breite einstellen ( Mindest ( 500 . maxLen * 6 )) ;