用正则表达式获取指定的字符串

发布时间：2020-12-14 01:54:00 所属栏目：百科来源：网络整理

导读：转载自：http://www.cnblogs.com/Stwo/archive/2011/08/29/2158260.html 有一网友问了一个有关正则的问题，即取出以单词begin开头和单词end结尾之间的字符串，很感兴趣便动手试下，可试了很多次效果不是太理想，今天简单的实现了，代码如下： unit Unit1; in

转载自：http://www.cnblogs.com/Stwo/archive/2011/08/29/2158260.html

有一网友问了一个有关正则的问题，即取出以单词begin开头和单词end结尾之间的字符串，很感兴趣便动手试下，可试了很多次效果不是太理想，今天简单的实现了，代码如下：

 
        unit 
        Unit1; 
       
interface 
       
uses 
       
        Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, 
       
        Dialogs,RegularExpressions,StdCtrls; 
       
type 
       
        TForm1 =  
        class 
        (TForm) 
       
Button1: TButton; 
       
        Edit1: TEdit; 
       
Memo1: TMemo; 
       
        Label1: TLabel; 
       
Label2: TLabel; 
       
        procedure 
        Button1Click(Sender: TObject); 
       
private 
       
        { Private declarations } 
       
public 
       
        { Public declarations } 
       
end 
        ; 
       
var 
       
        Form1: TForm1; 
       
        implementation 
       
        {$R *.dfm} 
       
        TForm1 
        . 
        Button1Click(Sender: TObject); 
       
var 
       
        Regex: TRegex; 
       
begin 
       
        Regex := TRegex 
        Create(Edit1 
        Text,[roIgnoreCase]); 
       
try 
       
        if 
        Regex 
        Match(Memo1 
        Text).Success  
        then 
       
begin 
       
        ShowMessage(Regex 
        Text).Value); 
       
; 
       
        finally 
       
        ; 
       
; 
       
.

　　（注：开发环境XE）

（

Edit1Text := '(?<=Begin)([.Ss]*)(?=End)';//正则

Memo1Text:= 'dklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkd'

）

内容中可以有换行符，这里只是简单的实现，可能还有些情况要处理，比如内容中不只一个begin~end，这就要另作处理了

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!