Perl 兼容的正则表达式匹配大写“,”、space 和“(” “)”

Question

我正在尝试从 QString 中删除 SQL 语句。所有 SQL 指令都是大写的。我只想在名称中使用全小写的列名，下划线为 space。作为示例，QString 可能包含：

CREATE TABLE IF NOT EXISTS activated_alerts(id INTEGER PRIMARY KEY AUTOINCREMENT, date_and_time TEXT, system_state TEXT, alarm_no_185 BOOL NOT NULL, alarm_no_4 BOOL NOT NULL, alarm_no_5 BOOL NOT NULL, alarm_no_2 BOOL NOT NULL, alarm_no_102 BOOL NOT NULL, alarm_no_7 BOOL NOT NULL, alarm_no_27 BOOL NOT NULL, alarm_no_120 BOOL NOT NULL, alarm_no_103 BOOL NOT NULL, alarm_no_190 BOOL NOT NULL, alarm_no_30 BOOL NOT NULL, alarm_no_31 BOOL NOT NULL, alarm_no_32 BOOL NOT NULL, alarm_no_33 BOOL NOT NULL, alarm_no_34 BOOL NOT NULL, alarm_no_35 BOOL NOT NULL)

我试过 ^[A-Z]+$ 但我得到的匹配项为零。

QRegularExpression re("^[A-Z]+$");
QRegularExpressionMatch match = re.match(m_activatedAlertsSQLStatement);
if(match.hasMatch()) 
{
    qDebug() <<  "CAPTURED: " << match.capturedTexts();
}

Answer 1

您可以使用

[^\WA-Z]+

见regex demo。该模式仅匹配 1 个或多个不是大写 ASCII 字母的单词字符。

Qt 示例演示：

QRegularExpression re("[^\WA-Z]+");
QString subject("YOUR_STRING");
QRegularExpressionMatchIterator i = re.globalMatch(subject);
while (i.hasNext()) {
    QRegularExpressionMatch match = i.next();
    qDebug() <<  "CAPTURED: " << match.captured(0); // Print match value
    //...
}

Perl 兼容的正则表达式匹配大写“,”、space 和“(” “)”

Perl-compatible regular expressions to match upper case ",", space and "(" ")"

regex

pcre

qt5