function TSDIAppForm.RegExpReplace(): Boolean; // 返回是否匹配
var
vRegExp: OleVariant;
mString: WideString; // 分析的字符串
vr:string;
str:string;
begin
// 创建正值对象
vRegExp := CreateOleObject('VBScript.RegExp');
// 样板表达式
vRegExp.Pattern := '\b(?<month>\d{1,2})-(?<day>\d{1,2})-(?<year>\d{2,4})\b';
vr := '${day}${month}${year}")';
str := '02-09-2006';
// 忽略大小写
vRegExp.IgnoreCase := true;
// 全局适用
vRegExp.Global := true;
vr := vRegExp.Replace(str,vr);
ShowMessage(vr);
Result := True;end; 以上这个函数运行出错,各位大虾帮忙,有谢!
Dim sp As String = " "
Dim Regex As System.Text.RegularExpressions.Regex
Return Regex.Replace(input, _
"\b(?<month>\d{1,2})/(?<day>\d{1,2})/(?<year>\d{2,4})\b", _
"${day}-${month}-${year}")
End Function
var
vRegExp: OleVariant;
mString: WideString; // 分析的字符串
vr:string;
str:string;
begin
// 创建正值对象
vRegExp := CreateOleObject('VBScript.RegExp');
// 样板表达式
vRegExp.Pattern := '\b(\d{1,2})/(\d{1,2})/(\d{2,4})\b'; //不用变量
vr := '$1-$2-$3'; //用数字代码
str := '02-09-2006';
// 忽略大小写
vRegExp.IgnoreCase := true;
// 全局适用
vRegExp.Global := true; vr := vRegExp.Replace(str,vr);
ShowMessage(vr);