主题：[求助]小白又来求教了。。关于表中字符的转换

 代码，如下。

For Each r As Row In Tables("表A").Rows
    r("第三列") = System.Text.RegularExpressions.Regex.Replace(r("第二列"), "\({1}[0-9a-zA-Z]{2,}(\([a-zA-Z]\))?\){1}", "")
Next

 算了，没有办法取巧。踏实弄吧。

For Each r As Row In Tables("表A").Rows
    Dim idx As Integer = r("第二列").indexof(")")
    If idx > r("第二列").Length / 2 Then
        idx = r("第二列").indexof("(") - 1
    End If
    r("第三列") = left(r("第二列"), idx+1)
Next