delphi - 提取两个字符串之间的字符串

Question

我如何提取A和B之间的randomstring。例如：

随机串B

Answer 1

假设“ randomstring”不包含封闭的字符串“ A”或“ B”，则可以使用两个调用pos来提取字符串：

function ExtractBetween(const Value, A, B: string): string;
var
  aPos, bPos: Integer;
begin
  result := '';
  aPos := Pos(A, Value);
  if aPos > 0 then begin
    aPos := aPos + Length(A);
    bPos := PosEx(B, Value, aPos);
    if bPos > 0 then begin
      result := Copy(Value, aPos, bPos - aPos);
    end;
  end;
end;

当找不到A或B时，该函数将返回一个空字符串。