ASP正则表达式,如何提取密码的第1位和最后1位的字符

Function EingEmail(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "(.){5}"

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"*****")

Set regEx = Nothing

EingEmail = Trim(ClsTempLoseStr)

End Function

如:test13@#esli,通过正则表达后是:t**********i

字符串left/right截取就行了吧，干嘛正则。。

 Function EingEmail(ContentStr)
Dim s,j
s=left(ContentStr,1)
j=len(ContentStr)-2
for i=1 to j
  s=s&"*"
next
s=s&right(ContentStr,1)
EingEmail = Trim(s)
End Function

msgbox EingEmail("test13@#esli")

 第一位 ^. 最后一位  .$

能不能贴出完整代码呀

为什么要用正则，选取第一位和最后一位拼接“************”就可以了

http://m.jb51.net/article/14888.htm获取最后一位的方法。第一个改改正则就行了，正
正则通用的。