Question

vb如何删除某一行，如第一行或者空行

处理大批量数据时，希望格式统一，只要数字，不要带字符的头行，也不能有空行。如何编一个程序，自动判断某一行是否有数字以外的字符或者空行，若有，则删除，下面的数据往上提一行。

Answer 1

Dim s As String
Open "31029600.txt" For Input As #1
Open "31029600_1.txt" For Output As #2
Do Until EOF(1)
Line Input #1, s
If Val(s) <> 0 Then Print #2, s
Loop
Close #2
Close #1

追问

删除带字符的行也是这么判断吗？

追答

是的。非数字的行和空行都会自动过滤