935242_de-DE

liliconcom

Gibt den Namen einer referenzierten Spalte zurück

Ich schreibe eine Hilfsfunktion, die eine Spaltengruppe umbenennt, wenn sie einen bestimmten Spaltennamen enthält.

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Cities.jmp" );

/*//Use if already existing
dt = Data Table ("Cities");
*/

dt << group columns( "xy", {:X, :y} );
dt << group columns( "pollutants", :Ozone :: :Lead );

match_col = "X";
new_name = "coordinates";

groups_list = dt << get column groups names;
show(groups_list);

For Each({grp, ig}, groups_list,
	cols = dt << get column group( grp );
	show(cols);
	For Each ({column, ic}, cols,
		show(column);
		colname = column << Get Name;
		If(colname == match_col,
			try(dt << rename column group( grp, new_name );)
		)
	);
);

Dies funktioniert einwandfrei mit einfachen gruppierten Spalten, schlägt aber fehl, wenn eine Gruppierung von einer Linkreferenz geerbt wird:

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Cities.jmp" );
dt_state = Open( "$SAMPLE_DATA/State Abbreviations.jmp" );

//Need more than 1 column
dt_state << New Column( "Dummy", Numeric, "Continuous", Format( "Best", 12 ));

//Link Tables
dt_state:Abbreviations << Set Property( "Link ID", 1 );
dt:State << Set Property("Link Reference", Reference Table(dt_state));

/*//Use if already existing
dt = Data Table ("Cities");
dt_state = Data Table( "State Abbreviations" );
*/

dt << group columns( "xy", {:X, :y} );
dt << group columns( "pollutants", :Ozone :: :Lead );

match_col = "X";
new_name = "coordinates";

groups_list = dt << get column groups names;
show(groups_list);

For Each({grp, ig}, groups_list,
	cols = dt << get column group( grp );
	show(cols);
	For Each ({column, ic}, cols,
		show(column);
		colname = column << Get Name;
		If(colname == match_col,
			try(dt << rename column group( grp, new_name );)
		)
	);
);

Firstly, the << Get Name function errors on :Ozone, which worked fine in the simpler example.

Selbst wenn dieser Fehler behoben ist, sieht die verknüpfte Spalte im Protokoll anders aus:

column = :Y;
column = Referenced Column(<STRONG>"US-Bundesstaaten[Bundesstaat]"</STRONG>, Reference(Column(:State), Reference(Column(:U.S. States))));

Wie kann ich den Textnamen extrahieren? z. B. „US States[State]“

Automatisierung und SkripterstellungBetreff: Den Namen einer referenzierten Spalte zurückgeben

Höchstwahrscheinlich treten die Probleme auf, weil JMP auf die falsche Datentabelle verweist. Mein Vorschlag: Verwenden Sie IMMER explizite Spaltenreferenzen. Konvertieren Sie Ihre Spaltenreferenzen also immer in Zeichenketten und verwenden Sie dann je nach Bedarf unterschiedliche Formate. In Ihrem Fall etwa so:

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Cities.jmp");
dt_state = Open("$SAMPLE_DATA/State Abbreviations.jmp");

dt_state << New Column("Dummy", Numeric, "Continuous", Format("Best", 12));

dt_state:Abbreviations << Set Property("Link ID", 1);
dt:State << Set Property("Link Reference", Reference Table(dt_state));

dt << group columns("xy", {:X, :y});
dt << group columns("pollutants", :Ozone :: :Lead);

match_col = "X";
new_name = "coordinates";

groups_list = dt << get column groups names;

For Each({grp, ig}, groups_list,
	cols = Transform Each({colweirdness}, dt << get column group(grp), AsColumn(dt, colweirdness) << get name);
	For Each({colname, ic}, cols,
		If(colname == match_col,
			try(dt << rename column group(grp, new_name));
		)
	);	
);