- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]*号表示数字 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97955)
-- 发布时间：2017/3/21 17:10:00
-- [求助]*号表示数字
把表A第一列中，第4567个字符变为*符号
例如：13710809456
变为：137****9456
请问代码怎么写？
-- 发布时间：2017/3/21 18:13:00
--
参考
http://www.foxtable.com/webhelp/scr/2262.htm
-- 发布时间：2017/3/21 18:41:00
--
这个挺好，不过还是没有解决我的问题哦。。。
我需要中间几个字符隐藏，后面几个字符显示，，因为不想公开电话号码，但又需要显示后几位
例如：13710809456
变为：137****9456
-- 发布时间：2017/3/21 18:46:00
--
那是您自己的问题，这就是解决您的问题的方法!
-- 发布时间：2017/3/21 18:47:00
--
一列存储真实的号码，另外一列存储变更显示号码。
Dim s As String = "13710809456"
Dim s1 As String = s.SubString(0,3)
msgbox(s1)
Dim s2 As String = s.SubString(7)
msgbox(s2)
Dim s3 As String
s3 = s1 & "****" & s2
msgbox(s3)
[此贴子已经被作者于2017/3/21 18:49:48编辑过]
-- 发布时间：2017/3/21 19:10:00
--
感谢HUHU，问题解决，谢了
-- 发布时间：2017/6/4 22:11:00
--
结合二楼，不用增加列，DrawCell事件代码：
if e.Col.Name = "手机号码" Then
dim s as String = e.row("手机号码")
if len(s) = 11
s = s.SubString(0,3) & "****" & s.SubString(7)
e.Text = s
end if
End If
End If
这样不影响您调用手机号码列的值，显示的带星号，实际值没有星号！