标题: [求助]如何屏蔽号码中间若干位 [打印本页] 作者: 无民 时间: 2010-1-15 02:22 标题: [求助]如何屏蔽号码中间若干位 <td align="center" bordercolor="#FFCC66"><span class="STYLE7"><%=rs("serv_nbr")%></span></td>
我做的一个小页面，其中从表中的serv_nbr字段里面读取号码（如11位），需要将号码的第7到9位用***代替，好像有函数可以取前6位，还有后2位，中间用***，本人愚拙，求助各位大虾。作者: 勇敢的心 时间: 2010-1-15 02:22
或者直接截取第7－9位用***来代替，可是函数俺不熟悉，求助各位大虾。作者: →大虾米々 时间: 2010-1-15 02:22
serv_nbr=rs("serv_nbr")
serv_nbr=left(serv_nbr,6)&"***"&right(serv_nbr,2)作者: ^o^星禾じ☆v 时间: 2010-1-15 02:22
哈哈，谢谢islet！
分开来一个一个函数我知道，可是整合不会，真是小笨，嘿嘿作者: first 时间: 2010-1-15 02:22
我写了个方法，楼主看看
Function GetChar(Str,Pre,Bak)
Dim Text
For I=1 To len(Str)
If I>=Pre And I<=Bak Then
Text=Text&Replace(Mid(Str,I,1),Mid(Str,I,1),"*")
Else
Text=Text&Mid(Str,I,1)
End If
Next
GetChar=Text
End Function
Call GetChar(rs("serv_nbr"),7,9)