delphi - 如何从键=值对字符串中获取电子邮件地址？

Question

如何获取我需要的字符串的某些部分？

accountid=xxxxxx 类型=prem servertime=1256876305 addtime=1185548735 validuntil=1265012019 用户名=noob directstart=1 Protectfiles=0 rsantihack=1 plustrafficmode=1 镜像= jsconfig=1 email=noob@live.com 很多= 0 fpoints=6076 ppoints=149 curfiles=38 curspace=3100655714 bodkb=60000000 premkbleft=25000000 ppointrate=116

我想要 email= 之后的数据，但直到 live.com。

Answer 1

有几种方法可以做到这一点。您可以在空格字符上拆分字符串，然后将其输入 TStringList。然后，您可以使用 TStringList 的 Value[String] 属性来获取给定名称的值。

为此，请用逗号替换所有空格的字符串:

newString := StringReplace(oldString, ' ', ',', [rfReplaceAll]);

然后将结果导入到 TStringList 中:

var
  MyStringList : TStringList;
begin
  MyStringList := TStringList.Create;
  try
    MyStringList.CommaText := StringReplace(oldString, ' ', ',', [rfReplaceAll]);
    Result := MyStringList.Values['email'];
  finally
    MyStringList.Free;
  end;
end;

这将为您提供电子邮件值。然后，您需要在“@”符号处拆分字符串，这是一个相对简单的练习。当然，只有当空格确实是字段之间的分隔符时，这才有效。

或者，您可以使用正则表达式，但 Delphi 本身不支持这些表达式(您需要正则表达式库 - 请参阅 here )

*** Smasher 注意到 (D2006+) 分隔符/分隔文本，看起来像这样:

MyStringList.Delimiter := ' ';
MyStringList.DelimitedText := oldString;
Result := MyStringList.Values['email'];