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

转载自：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)([.\S\s]*)(?=End)';//正则

Memo1Text:= 'dklewjsabegindiekdjekdenickdkekkdiuiuijujenddkeidkkd'

）

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

原文链接：https://www.f2er.com/regex/361984.html

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

猜你在找的正则表达式相关文章