主题：程序的变量值如何输出到表里

 Dim strs As String = FileSys.ReadAllText(dlg.FileName)

    strs = strs.Replace(vblf,"")

    Dim rs() As String = strs.Split(vbcr)

   For ir=0 To rs.Length - 1

   guns = rs(ir)

   output.show(guns) 这里我输出所读的结果，发现和实际的有差别。要求避开字符，只读取数字，因此我加入了下面的语句

   If IsNumeric(guns.Substring( 0,1)) Then 

    这里执行处理数字的程序部分，这部分我已经测试成功了。

    endif

 

    附件是我的数据，该数据是系统设备实时产生的，我要实时读取，所以要求比较高。肯请版主帮忙。再次感谢。