正则是一种比较另类的用法，难于理解，不属于帮助的内容，需要自己摸索学习，网上这方面的资料比较多。
Dim cs() As String = {"前号码", "后号码"} '表A要替换的列名
Dim p As String = "\[[0-9a-zA-Z ]+\]"
Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim fdr As DataRow
For Each dr As DataRow In DataTables("表a").Select("前号码 is not null or 后号码 is not null")
For Each c As String In cs
Dim drv As String = dr(c)
For Each v As System.Text.RegularExpressions.Match In rgx.Matches(drv)
fdr = DataTables("表B").Find("zl号码='" & v.value.Trim("[","]") & "'")
If fdr IsNot Nothing Then
drv = drv.replace( v.value, fdr("jlt号码"))
End If
Next
dr(c) = drv
Next
Next
加好友 
发短信
Post By：2017/4/22 10:58:00 [显示全部帖子]
