TRegEx替换模式?

时间:2013-04-03 11:57:40

标签: regex delphi replace delphi-xe2

我有一个json数据

  "myObject": {
      "field1": 1,
      "field2": true,
      "fileURL": [ "" ]
   }

如何更换为“fileURL”:[“here url”]?

var
 pattern:string;
begin
 pattern:='"fileURL":[ "?" ]';
 Memo1.Text:=TRegEx.Replace(Trim(Memo1.Text),pattern,'C:\file1.doc');
end;

2 个答案:

答案 0 :(得分:0)

用[a-zA-Z0-9。-_] +替换问号 并且不要忘记反斜杠\对于你想要完全重复的所有字符 &安培;你应该使用圆括号()进行组创建,在替换部分你可以使用它。

var
 pattern:string;
begin
 pattern:='(\"fileURL\"\:\[\s\")([a-zA-Z0-9\.\-\_]+)(\"\s\])';
 Memo1.Text:=TRegEx.Replace(Trim(Memo1.Text),pattern,'$1C:\file1.doc$3');
end;

答案 1 :(得分:0)

我会替换整条线。

pattern := '"fileURL"\s*:\s*\[\s*"[^"]*"\s*\]';
fileName := 'C:\file1.doc';
Memo1.Text := TRegEx.Replace(Memo1.Text, pattern, '"fileURL" : ["' + fileName + '"]');