asp中,如何通过正则将A3转为AAA

[bolexia]

例如：A3B5D10C4...
转为：AAABBBBBDDDDDDDDDDCCCC...

在asp自己写函数是解决了，但不知用正则如何实现。

[mocom]

var str = "A3B5D10C4";
alert(str.replace(/([A-Za-z])(\d+)/g, function($0, $1, $2)
{
	var len = parseInt($2, 10);
	var ret = [];
	for (var i = 0; i < len; i++)
	{
		ret.push($1);
	}
	return ret.join("");
}));

[wcwtitxu]

Dim a, regex, ms, m
a = "A3B5D10C4"

Set regex = New RegExp
regex.Pattern = "([a-z])(\d+)"
regex.IgnoreCase = True
regex.Global = True

Set ms = regex.Execute(a)
For Each m In ms
	a = Replace(a, m.Value, String(CInt(m.Submatches(1)), m.Submatches(0)))
Next

MsgBox a

[rainsome]

这个可以用

[Quote=引用 1 楼 mocom 的回复:]
JScript codevarstr="A3B5D10C4";
alert(str.replace(/([A-Za-z])(\d+)/g,function($0, $1, $2)
{varlen=parseInt($2,10);varret=[];for(vari=0; i<len; i++)
{
ret.push($1);
}returnret.join("");
}));
[/Quote]

[薪水]

up

[gmlwl]

学习了。。。

[一把编程的菜刀]

str= "A3B5D10C4"
Dim regex, m
Set regex = New RegExp
regex.Pattern = "(\D)(\d+)"
regex.Global = True
For Each m In regex.Execute(str)
    str = Replace(str, m.Value, String(m.Submatches(1), m.Submatches(0)))
Next
Set regex = Nothing
Response.Write str