主题：字符串的问题

哈哈，加上红色的部分不就行了吗？

Dim s As String
Dim i As Integer
Dim d As Double
For Each dr As DataRow In DataTables("表A").DataRows
    s = ""
    For i = 0 to Len(dr("第一列"))-1
        if Double.TryParse(dr("第一列").SubString(i,1),d) = False Then
            s = s & d
        End If
        dr("第二列") = s
       Next
Next

另，单字符判断，用下面的知识更好：

单字符判断

类型Char型提供了很多共享方法，用于判断某个字符类别，例如判断某个字符是否是数字：

If Char.IsDigit("1") Then
    Messagebox.Show("这是一个数字！")
End If

 

部分判断函数：

函数	说明
IsControl	判断指定的字符是否属于控制字符类别。
IsDigit	判断指定的字符是否属于十进制数字类别。
IsLetter	判断指定的字符是否属于字母类别。
IsLetterOrDigit	判断指定的字符是属于字母类别还是属于十进制数字类别。
IsLower	判断指定的字符是否属于小写字母类别。
IsNumber	判断指定的字符是否属于数字类别。
IsPunctuation	判断指定的字符是否属于标点符号类别。
IsSeparator	判断指定的字符是否属于分隔符类别。
IsSymbol	判断指定的字符是否属于符号字符类别。
IsUpper	判断指定的字符是否属于大写字母类别。
IsWhiteSpace	判断指定的字符是否属于空白类别。

呵呵,学习了!另,这里单字符判断是不是不好用啊?昨天我也曾想过用Char的,只是不明白

按21楼的代码,做出来全是零,怎么回事?

数字的：

Dim s As String
Dim i As Integer
Dim v As String
For Each dr As DataRow In DataTables("表A").DataRows
    s = ""
    For i = 0 to Len(dr("第一列"))-1
        v = dr("第一列").SubString(i,1)
        if Char.IsDigit(v) Then
            s = s & v
        End If
        dr("第二列") = s
       Next
Next

非数字的：

Dim s As String
Dim i As Integer
Dim v As String
For Each dr As DataRow In DataTables("表A").DataRows
    s = ""
    For i = 0 to Len(dr("第一列"))-1
        v = dr("第一列").SubString(i,1)
        if Char.IsDigit(v) = False Then
            s = s & v
        End If
        dr("第二列") = s
       Next
Next

Dim s As String
Dim i As Integer
Dim d As Double
For Each dr As DataRow In DataTables("表A").DataRows
    s = ""
    For i = 0 to Len(dr("第一列"))-1
        if Double.TryParse(dr("第一列").SubString(i,1),d) = False Then
            s = s & dr("第一列").SubString(i,1)
        End If
        dr("第二列") = s
       Next
Next

还是24楼的好。

收藏,学习!

迷上字符串了，也来一个另类思路的：（借助八婺老师的例子）～ 繁琐了些，但也可达到目的。

for h as integer = 0 to currenttable.count-1
    currenttable(h,"第三列") = nothing
    dim sz as string = "0123456789"
    Dim dr As string = currenttable(h,"第一列")
    for i as integer = 0 to dr.length-1
        for i1 as integer = 0 to 9
            if dr(i) = sz(i1) then
                dr = dr.Replace("" & dr(i) & "","§")
                output.show(dr)
                currenttable(h,"第三列") = dr.trim("","§")
           End If
        next
    next
next

For  r As integer = 0 to Currenttable.count -1
    Currenttable(r,"第三列")  = Currenttable(r,"第三列").replace("§","")
Next

速度最快是那种代码啊？可以用动态表达式生成吗？