Cómo ASP intercepta el contenido entre 111 y 222 en 111abcd222QQQQQQ111abcedws222

función strCut(a)

dim re,kk,bb,cc

cc=""

set re=Nueva expresión regular

re.ignoreCase=true

re.global=true

re.pattern="111(\w+?)222"

establecer kk= re.execute(a)

para cada bb en kk

si cc="" entonces

cc=re.replace(bb, "$1")&":"

else

cc=cc&re.replace(bb,"$1")

end if

siguiente

strCut=split(cc,":")

finalizar función

response.write strCut("111abcd222QQQQQQ111abcedws222aaaasd")(0)

respuesta.write chr(13)

respuesta.write strCut("111abcd222QQQQQQ111abcedws222aaaasd")(1)

%>