zoukankan      html  css  js  c++  java
  • 002.TPerlRegEx简单测试

    我要做什么?

    将一个字符串中的所有连续的数字替换成一个*

    代码:

     1 program Project1;
     2 
     3 {$APPTYPE CONSOLE}
     4 
     5 uses
     6     System.SysUtils, PerlRegEx;
     7 
     8 var
     9     reg: TPerlRegEx;
    10 
    11 begin
    12     try
    13         // 创建
    14         reg := TPerlRegEx.Create;
    15 
    16         // 欲操作字符串
    17         reg.Subject := 'aaa123bb222cc';
    18 
    19         // 将所有连续的整数替换为一个*
    20         reg.RegEx := 'd+';
    21 
    22         // 替换成
    23         reg.Replacement := '*';
    24 
    25         // 替换全部
    26         reg.ReplaceAll;
    27 
    28         // 输出替换后结果
    29         Writeln(reg.Subject);
    30 
    31         // 释放
    32         FreeAndNil(reg);
    33         Readln;
    34     except
    35         on E: Exception do
    36             Writeln(E.ClassName, ': ', E.Message);
    37     end;
    38 
    39 end.

    结果:

  • 相关阅读:
    python安装教程
    protobuf安装教程
    PlantUML安装教程
    题解-CF1140E Palindrome-less Arrays
    FST
    线段树
    题解-CF677D Vanya and Treasure
    最短路
    后缀自动机
    虚树
  • 原文地址:https://www.cnblogs.com/cause/p/3676036.html
Copyright © 2011-2022 走看看