以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何替换文本中的电话号码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67449)
--  作者：atmetmicoo
--  发布时间：2015/4/24 15:13:00
--  如何替换文本中的电话号码
各位老师好，

我的系统会自动提取一个文本字段的值，但是我想将该文本中的电话号码用*号代替，以做到保密

例如：送货地点:浙江省台州市天台县白鹤镇安泰路，座机0572-83923943，王先生13737553266


首先电话号码的位置，数字都是未知的，我的想法是由连续7位以上的数字组成的字符串全部用*代替，但是我不知道怎么判断文本中是否存在7位以上的数字，请老师们支招，非常感谢。
--  作者：Bin
--  发布时间：2015/4/24 15:15:00
--  
dim str as string = "座机0572-83923943"
dim s = System.Text.RegularExpressions.Regex.replace(str,"\\d{7}","*")
messagebox.show(s)
--  作者：Bin
--  发布时间：2015/4/24 15:16:00
--  
dim str as string = "座机0572-83923943"
dim s = System.Text.RegularExpressions.Regex.replace(str,"\\d{7}","*******")
messagebox.show(s)
--  作者：atmetmicoo
--  发布时间：2015/4/24 15:19:00
--  
谢谢Bin老师

这类语言我好像在教程中学不到的是吧？
--  作者：Bin
--  发布时间：2015/4/24 15:20:00
--  
是的 套用就好了. 用教程的知识其实也可以做到.只是代码比较长,比较麻烦