如何在delphi中的两个开始和结束字符串之间找到一个字符串？

Question

可能重复：
Delphi: Extract string from a text file using 2 delimiters

如何找到两者之间的字符串开始和结束串在Delphi

Answer 1

如果你是快乐与天真的解决方案，看看这个SO：Extract string from a text file using 2 delimiters

如果您想要进行代码分析，您实际上需要一个完整的语言解析器capa理解评论，条件编译+所有其他预编译器选项。

Answer 2

uses 
    StrUtils; 
... 
const 
    sBegin = 'begin'; 
    sEnd = 'end'; 
var 
    i1, i2: Integer; 
    sSubstr: String; 
... 
    i1 := Pos(sBegin, s); 
    if i > 0 then begin 
    i2 := PosEx(sEnd, s, i1 + Length(sBegin)); 
    if i2 > 0 then begin 
     sSubstr := Copy(s, i1 + Length(sBegin), i2 - (i1 + Length(sBegin))); 
     // process the delimited substring 
    end; 
    end; 

注：

1. 上面的代码没有被证实。
2. 类似的可以由正则表达式完成，或者由C/C++ sscanf限制。

Answer 3

去Extract string from a text file using 2 delimiters

复制功能，并调用它像这样：

`ExtractText('Hi my name is$John and I''m happy/today','$','/')`; 

它会返回 '约翰和I''m快乐。'

例子：

ShowMessage(ExtractText('Hello,World!', ',' ,'!')); 

它会在一个弹出显示的 '世界'。