如何使用正则表达式截取字符串

[helloclm]

有字符串a大约100字，
确定字符串b在a中位置后，
如何用正则获取b位置之前2位到b位置之后2位之间的文字？

如：
a="...qwesflkaea===ekfjaew;fkj..."
b="==="
我该如何用正则获得"ea===ek" ？

谢谢。

[cnfreer]

alert('...qwesflkaea===ekfjaew;fkj...'.replace(/^.*(.{2}===.{2}).*$/, '$1'));

[dnawo]

不用正则也可以实现:

<%
a="...qwesflkaea===ekfjaew;fkj..."
b="==="

Response.Write(Mid(a,Instr(a,b)-2,Len(b)+4))
%>

回家了,要正则明天再贴

[dnawo]

<%
Dim a,b
Dim regEx

a = "...qwesflkaea===ekfjaew;fkj..."
b = "==="

Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "[\S\s]{2}===[\S\s]{2}"

Response.Write(regEx.Execute(a)(0))
%>

[dnawo]

<%
Dim a,b
Dim regEx

a = "...qwesflkaea===ekfjaew;fkj..."
b = "==="

Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "[\S\s]{2}" & b & "[\S\s]{2}"

Response.Write(regEx.Execute(a)(0))
%>

[helloclm]

谢谢，需要正则。

[cattle13]

a="...qwesflkaea===ekfjaew;fkj..."
b="==="
pat="[\s\S]*(.{2}" & b & ".{2})[\s\S]*"
function RegExpTest(str,pat)
Dim r,name
Set r = New RegExp
r.Pattern = pat
r.IgnoreCase = false
r.Global = true
RegExpTest=r.replace(str,"$1")
End function
response.write RegExpTest(a,pat)