Something like this might do it:
Names Default To Here(1);
dt = New Table("Untitled 390",
Add Rows(9),
Compress File When Saved(1),
New Column("a",
Numeric,
"Continuous",
Format("Best", 12),
Set Values([., ., ., ., ., ., ., ., .])
),
New Column("a+LCL",
Numeric,
"Continuous",
Format("Best", 12),
Set Values([1, ., ., ., ., ., ., ., .])
),
New Column("b+LCL",
Numeric,
"Continuous",
Format("Best", 12),
Set Values([., ., ., ., ., ., ., ., .])
)
);
wait(1);
colNames = dt << Get Column Names("String");
colContainsList = {"UL", "LL", "UCL", "LCL", "USL", "LSL"};
For(i = 1, i <= N Items(colNames), i++,
For(k = 1, k <= N Items(colContainsList), k++,
If(Contains(colNames[i], colContainsList[k]),
Summarize(dt, uniqValues = By(colNames[i]));
If(N Items(uniqValues) == 1 & uniqValues[1] == ".",
dt << Delete Columns(colNames[i]);
);
break();
);
);
);
Are you sure you want to check if column name contains any of those strings or if the column name ends in them?
-Jarmo