remove query columns via regex match

reRemoveColumns.cfm

<cfscript>
private query function reduceQueryColumns(required query source, required string columns) {
    var qReduced = "";
    query name="qReduced" dbtype="query" { writeOutput("select #arguments.columns# from arguments.source") };
    return qReduced;
}

private query function reRemoveColumns(required query source, required string regex) {
    var columns = listToArray(arguments.source.columnlist);
    for (var i = arrayLen(columns); i >= 1 ; i = i - 1) {
        if ( rEFindNoCase(arguments.regex,columns[i]) ) arrayDeleteAt(columns,i);
    }
    return reduceQueryColumns(arguments.source, arrayToList(columns));
}
</cfscript>