以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格部门内容的替换代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77800)
--  作者：李睿涵
--  发布时间：2015/11/25 16:35:00
--  单元格部门内容的替换代码

想把单元格里的部分内容做替换

比如：把表A的姓名列里的张**替换为朱**，该怎么写代码？
--  作者：大红袍
--  发布时间：2015/11/25 16:46:00
--  
For each dr as datarow in datatables("表A").DataRows
    If dr("第一列") Like "张*" Then
        dr("第一列") = "朱" & dr("第一列").substring(1)
    End If
Next
--  作者：李睿涵
--  发布时间：2015/11/25 17:21:00
--  

谢谢，我刚说的只是举例

我意思是，能替换任意长度的匹配字符

我以为replace可以
--  作者：大红袍
--  发布时间：2015/11/25 17:52:00
--  

把张和朱改成任意长度的字符

 

Dim s1 As String = "张"

Dim s2 As String = "朱"

For each dr as datarow in datatables("表A").DataRows
    If dr("第一列") Like s1 & "*" Then
        dr("第一列") = s2 & dr("第一列").substring(s2.length)
    End If
Next