首页 / 软件开发 / Delphi / Delphi中正则表达式语法（10） 选项

Delphi中正则表达式语法（10） 选项2012-12-20 万一

// preCaseLess: 不区分大小写, 相当于其他语言中的 ivarreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "abc ABC aBc";reg.RegEx := "abc";reg.Replacement := "◆"; reg.Options := [preCaseLess]; //选项是集合类型的 reg.ReplaceAll; ShowMessage（reg.Subject）; //返回: ◆ ◆ ◆ FreeAndNil（reg）;end; // preAnchored: 只匹配字符串开始, 相当于 ^, 不过还是有区别的varreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "abc abc abc";reg.RegEx := "abc";reg.Replacement := "◆"; reg.Options := [preAnchored]; //指定: preAnchoredreg.ReplaceAll; ShowMessage（reg.Subject）; //返回: ◆ abc abc FreeAndNil（reg）;end;{preAnchored 选项和 ^ 的区别:1、任何情况下, preAnchored 只匹配字符串开头;2、在 preMultiLine 选项模式下, ^ 还能匹配每行的开头;3、^ 还有其他用途.} // preDollarEndOnly: 让 $ 只匹配字符串结尾varreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "abc abc abc"#13#10 + "abc abc abc"#13#10 + "abc abc abc";reg.RegEx := "abc$";//当然需要有 $reg.Replacement := "◆"; reg.Options := [preDollarEndOnly]; //指定: preDollarEndOnly reg.ReplaceAll; ShowMessage（reg.Subject）;{返回:abc abc abcabc abc abcabc abc ◆} FreeAndNil（reg）;end; // preMultiLine: 多行匹配, 相当于其他语言中的 mvarreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "abc abc abc"#13#10 + "abc abc abc"#13#10 + "abc abc abc";reg.RegEx := "^abc";reg.Replacement := "◆"; reg.Options := [preMultiLine]; //指定: preMultiLine reg.ReplaceAll; ShowMessage（reg.Subject）;{返回:◆ abc abc◆ abc abc◆ abc abc}{如果不指定 preMultiLine 将返回:◆ abc abcabc abc abcabc abc abc} FreeAndNil（reg）;end;{1、preMultiLine 是对 ^ 和 $ 的扩展使用;2、在指定了 [preAnchored] 或 [preDollarEndOnly] 的情况下无效.} // preSingleLine: 让特殊符号 . 能够匹配换行符 （. 的本意是匹配换行符以外的任意字符）
// www.bianceng.cnvarreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "aaa;bbb;"#13#10 + "111;222;"#13#10 + "AAA;BBB;";reg.RegEx := ";.";reg.Replacement := "◆"; reg.Options := [preSingleLine]; //指定: preSingleLine reg.ReplaceAll; ShowMessage（reg.Subject）;{返回:aaa◆bb◆111◆22◆AAA◆BB;}{如果不指定 preMultiLine 将返回:aaa◆bb;111◆22;AAA◆BB;} FreeAndNil（reg）;end; // preUnGreedy: 指定为非贪婪模式varreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "《Delphi》and《C++Builder》";reg.RegEx := "《.*》"; reg.Replacement := "◆"; reg.Options := [preUnGreedy]; //指定: preUnGreedy{ 在本例中, reg.RegEx := "《.*？》"; 可以达到同样的效果} reg.ReplaceAll; ShowMessage（reg.Subject）; //返回: ◆and◆ ; 如果不指定 preUnGreedy, 将返回: ◆ FreeAndNil（reg）;end; // preExtended: 指定为扩展模式varreg: TPerlRegEx;beginreg := TPerlRegEx.Create（nil）; reg.Subject := "Delphi C++Builder";reg.RegEx := "ix20C"; // x20 是用十六进制的方式表示的空格 reg.Replacement := "◆"; reg.Options := [preExtended]; //指定: preExtended reg.ReplaceAll; ShowMessage（reg.Subject）; //返回: Delph◆++Builder FreeAndNil（reg）;end;{preExtended 是最复杂的一个选项:1、它会忽略表达式中的空白, 譬如: 本例中的表达式如果是 "i C" 将不会匹配成功;2、空白要用相应的十六进制表示, 譬如用 x20 表示空格;3、把表达式中从 # 到行尾的部分当作注释而被忽略;4、如果要使用 # ,需要用 # 代替;5、表达式的标准注释是: （？#...） 及其中 # 后面的内容均为注释, 不管指定 preExtended 与否}

关于选项 preExtra:

如果表达式中需要特殊字符 ^ $ （ ） [ ] { } . ？ + * | 时, 需要加转义符号 ;

默认状态下, 其他字符前面添加了 会识别为字符本身;

preExtra 选项应该就是禁止这种情况的, 也就是不要在非特殊字符前加 ;

但测试效果 ... 也许是我没弄明白！

还有三个状态选项: preNotBOL, preNotEOL, preNotEmpty

reg.State := [preNotBOL] 是让标记开始的 ^ 无效;

reg.State := [preNotEOL] 是让标记结尾的 $ 无效;

reg.State := [preNotEmpty] 没弄明白！

另外这些选择是可以组合使用的, 譬如:

reg.Options := [preCaseLess, preMultiLine, preSingleLine];
reg.State := [preNotBOL, preNotEOL];