以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何提取存数字的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70239)
--  作者：wh420
--  发布时间：2015/6/17 16:55:00
--  如何提取存数字的行

表A中有以下若干行内容：

ABC 123

123 BCD

67281

3948721

39482.203

394927.00

493872

中中123

123中国

如何提取纯数字的行？即：不包括字母或中文，必须为存数字的行
--  作者：Bin
--  发布时间：2015/6/17 17:04:00
--  
治好一行行判断了

For Each dr As DataRow In DataTables("X").DataRows
   If IsNumeric(dr("列名")) Then
   End If
Next
--  作者：wh420
--  发布时间：2015/6/17 17:10:00
--  
嗯，这已经不错了，多谢老师。
--  作者：wh420
--  发布时间：2015/6/17 17:21:00
--  
追问一下，如果用正则表达式如何实现？
--  作者：Bin
--  发布时间：2015/6/17 17:23:00
--  
^\\d+$
--  作者：wh420
--  发布时间：2015/6/19 17:17:00
--  
For Each dr As DataRow In DataTables("表A").DataRows
   If IsNumeric(dr("列名")) Then

   End If
Next
如何删除表A中所有纯数字的行？
[此贴子已经被作者于2015/6/19 17:36:37编辑过]
--  作者：大红袍
--  发布时间：2015/6/19 18:12:00
--  
For i As Integer = DataTables("表A").DataRows.Count - 1 To 0 Step -1
    Dim dr As DataRow = DataTables("表A").DataRows(i)
    If IsNumeric(dr("列名")) Then
        dr.Delete
    End If
Next