Delphi 正则怎么搞

奇光 · 发表于 2024-11-7 16:59:15

id="(.*?)".*?name="(.*?)" previewSrc

怎么用Delphi写高了半天也没取出来

function Pet_IDreadsrowinformation(Getpetdata: string): string;
var
  regEx:olevariant;
  obj:olevariant;
  i: integer;

  begin
  regEx := createoleobject ('vbscript.regexp');
  regEx.Global:=True;
  regEx.Pattern := 'id="(.*?)".*?name="(.*?)" previewSrc';
regEx.IgnoreCase:=True;
  obj := RegEx.Execute(Getpetdata);

  end;

uses comobj,

补充内容 (2024-11-7 18:23):
了子文本取不出来

chenboss · 发表于 2024-11-7 18:19:37

引号转义试试，" 改 \"

奇光 · 发表于 2024-11-7 18:23:16

chenboss 发表于 2024-11-7 18:19
引号转义试试，" 改 \"

忘记补充了子文本取不出来

hongqingfeng · 发表于 2024-11-7 19:34:25

奇光发表于 2024-11-7 18:23
忘记补充了子文本取不出来

那么多数据还是不一样的想一下全取出来厉害

dnxl · 发表于 2024-11-7 19:46:17

这是VBS的正则，delphi只是引用而已
子项在submatches里面

hongqingfeng · 发表于 2024-11-7 20:01:35

这个测试成功全部取出来了

		自动登录	找回密码
密码			注册

[其它求助] Delphi 正则怎么搞