以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问这个字符串替换功能如何实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76574)
--  作者：mxm121
--  发布时间：2015/11/1 4:13:00
--  请问这个字符串替换功能如何实现
【客户编号】 -> <010578>
【客户级别】 -> <C>
【客户姓名】 -> <test>
【联系电话】 -> <6666666>
【销售姓名】 -> <444>
【销售ID】 -> <4444>
【登记日期】 -> <2015/11/1>
【客户分类】 -> <新开发>
【客户来源】 -> <医院>
【获知渠道】 -> <附近居住及路过>
【CustInfoDeliverDate】 -> <2015/11/1>
【CustInfoCompleteness】 -> <27>
【登记销售ID】 -> <mmx>
【统计用日期】 -> <2015年11月>


以上是我一个单元格内的内容 每行用vbcrlf连接
我现在想把【联系电话】后这一整行的内容全部更换为6个* 请问应该怎么处理
联系电话所在行也不固定
[此贴子已经被作者于2015/11/8 6:33:55编辑过]
--  作者：lsy
--  发布时间：2015/11/1 8:14:00
--  
DrawCell

\'\'\'
If e.Col.Name = "第八列" Then
    If e.Row(e.Col).StartsWith("【联系电话】") Then
        Dim i As Integer = e.Row(e.Col).Replace(vbcr,"").Split(vblf)(1).Length - 2
        Dim s As String = New String("*",i)
        e.Text = "【联系电话】" & vbcrlf & "<" & s & ">"          \'星号数与号码字数相同
        ‘e.Text = "【联系电话】" & vbcrlf & "<******>"           ’六个星号
    End If
End If
--  作者：大红袍
--  发布时间：2015/11/2 10:20:00
--  

参考代码

 

dim str as string = "【客户姓名】 -> <test>" & vbcrlf & _
"【联系电话】 -> <6666666>" & vbcrlf & _
"【销售姓名】 -> <马晓濛>"

msgbox(str)

str = System.Text.RegularExpressions.Regex.Replace(str, "(?<=【联系电话】 -\\>+).*", " <*******>")
msgbox(str)