以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  电话号码用星号代替  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130426)

--  作者:cyrollin
--  发布时间:2019/1/21 18:38:00
--  电话号码用星号代替
为保护隐私,想把电话号码的中间部份隐藏,用什么函数呢?

比如这一列的数据是这样的
 
张三 1501120121 北京市朝阳区。。。
李小四 1501120121 北京市朝阳区。。。

显示为:

张三 150***121 北京市朝阳区。。。
李小四 150***121 北京市朝阳区。。。

--  作者:cd_tdh
--  发布时间:2019/1/21 19:20:00
--  
为什么不把数据分列存放,这样就好处理了。
--  作者:cyrollin
--  发布时间:2019/1/21 19:23:00
--  
有单独的电话号码列,上面是个表达式列
--  作者:cyrollin
--  发布时间:2019/1/21 19:31:00
--  
用 substr 吗?
--  作者:cyrollin
--  发布时间:2019/1/21 19:41:00
--  
比如像这样:

Dim s1 As String ="15011201211"
 Dim s2 As String 
Dim s3 As String
dim s4 as string
 s2 = s1.substring(0,3)
s3 = s1.substring(8,3)

s4  = s2 & "***" & s1
结果 s4 = 150***211

--  作者:有点蓝
--  发布时间:2019/1/21 20:44:00
--  
表达式
姓名+IIF(len(电话号码) > 3, Substring(电话号码,1,3), 电话号码) + \'***\' + IIF(len(电话号码) > 8, Substring("",9,len(电话号码)-8), \'\')+地址
--  作者:cd_tdh
--  发布时间:2019/1/21 21:47:00
--  
独立列可以设置字符掩码