新微赢技术网

标题: [求助]如何屏蔽号码中间若干位 [打印本页]

作者: 女人请自重 时间: 2010-1-20 02:33
标题: [求助]如何屏蔽号码中间若干位
<td align="center" bordercolor="#FFCC66"><span class="STYLE7"><%=rs("serv_nbr")%></span></td>
我做的一个小页面，其中从表中的serv_nbr字段里面读取号码（如11位），需要将号码的第7到9位用***代替，好像有函数可以取前6位，还有后2位，中间用***，本人愚拙，求助各位大虾。
[知识问答ωωω.χiuGoo.сom]

作者: 飞.逝﹏.. 时间: 2010-1-20 02:33
或者直接截取第7－9位用***来代替，可是函数俺不熟悉，求助各位大虾。

作者: qz沒愛過mm 时间: 2010-1-20 02:33
serv_nbr=rs("serv_nbr")
serv_nbr=left(serv_nbr,6)&"***"&right(serv_nbr,2)

作者: の瘋がす贪恋 时间: 2010-1-20 02:33
哈哈，谢谢islet！
分开来一个一个函数我知道，可是整合不会，真是小笨，嘿嘿

作者: 僞o碬侎〾 时间: 2010-1-20 02:33
我写了个方法，楼主看看
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)

作者: huangbo88 时间: 2010-3-4 04:05
顶顶更健康，越顶吃的越香。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)