Try with custom format like this.
keys = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
values = {"\!U2070", "\!U00B9", "\!U00B2", "\!U00B3", "\!U2074", "\!U2075", "\!U2076", "\!U2077", "\!U2078", "\!U2079"};
superscripts = Associative Array(keys, values);
valstr = Format(value, "Scientific");
exp = Word(-1, valstr, "+");
e_sup = Transform Each({e_val}, Words(exp, ""), superscripts[e_val]);
exp_superscripts = Concat Items(e_sup, "");
val = Word(1, valstr, "+");
final_val = Substitute(val, "e", "×10" || exp_superscripts);
You might have to add some if statements to handle some specific situations if the format isn't correct
Names Default To Here(1);
dt = New Table("demo",
Add Rows(13),
Compress File When Saved(1),
New Column("Column 1",
Numeric,
"Continuous",
Format("Scientific", 64),
Set Values(
[1, 10, 20, 2.5, 200, 2000, 20000, 200000, 2000000, 2000000, 20000000000,
2000000000000, 2.22222222222222e+19]
),
Set Display Width(155)
),
New Column("Column 2",
Numeric,
"Continuous",
Format(
"Custom",
Formula(
keys = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
values = {"⁰", "¹", "²", "³", "⁴", "⁵", "⁶", "⁷", "⁸", "⁹"};
superscripts = Associative Array(keys, values);
valstr = Format(value, "Scientific");
exp = Word(-1, valstr, "+");
e_sup = Transform Each({e_val}, Words(exp, ""), superscripts[e_val]);
exp_superscripts = Concat Items(e_sup, "");
val = Word(1, valstr, "+");
final_val = Substitute(val, "e", "×10" || exp_superscripts);
),
64,
0
),
Set Values(
[1, 10, 20, 2.5, 200, 2000, 20000, 200000, 2000000, 2000000, 20000000000,
2000000000000, 2.22222222222222e+19]
),
Set Display Width(134)
)
);
-Jarmo