You might be able to use something like this:
dt << Select Where(0 < :Num(Word(2, :Item, "[]")) < 26);
Names Default To Here(1);
dt = New Table("Untitled",
Add Rows(5),
Compress File When Saved(1),
New Column("Item",
Character,
"Nominal",
Set Values({"SerialNo[1]", "SerialNo[4]", "SerialNo[26]", "Data[2]", "Data[30]"}),
Set Display Width(75)
)
);
dt << Select Where(0 < :Num(Word(2, :Item, "[]")) < 26);
-Jarmo