主题：半角能转全角吗

如果直接去取数字，参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92594&skin=0

 参考代码

Dim str As String = "王五50张三60"
Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str, "[^0-9\.]+(?=[0-9]+)")
Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str, "[0-9\.]+")
Dim sum As Double = 0
For i As Integer = 0 To mc1.count-1
    output.show(mc1(i).value & " " & mc2(i).value)
Next

For Each dr As DataRow In DataTables("表A").Select("第五列 is not null and 第六列 = true")
   
    Dim str As String = dr("第五列")
    Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str, "[^0-9\.]+(?=[0-9]+)")
    Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str, "[0-9\.]+")
    Dim sum As Double = 0
    For i As Integer = 0 To mc1.count-1
        Dim ndr As DataRow = DataTables("表A").addnew
        ndr("第一列") = dr("第一列")
        ndr("第三列") = mc1(i).value
        ndr("第四列") = mc2(i).value
    Next
Next