vb程序安装目录下的子文件夹abc中有一些以txt为扩展名的文本文件，这些文件mulitiline属性都是true。这些文件中主要是一些分行排列的数字，但也有一些不是数字的字符混进来（比如：11个；2011年）。点击窗体上按钮command1后，自动删除这些文本文件中非数字字符的行（当然要连同这些行中的数字都删除）。并且不留空行。
点击command1时要生成一个文本文本，最好在这时就检测文本中是否有非数字字符的行，并且删除。这是上策。。
代码经测试可以用，但每次点击按钮后在abc文件夹中增加一个“新建文本文档”，这个没有必要，需要去掉。希望能改进一下。
追答这个“新建文本文档”应该不是程序产生的。是不是原来文件夹中就存在这个文件？如有请删除后再运行看看。我运行后没发现你说的这个问题。
追问希望再做一小改动：只删除最新创建的一个txt文本文件中的“非数字字符”的行，也就是时间最新的那个txt文本文件。而不删除所有txt文本文件中的“非数字字符”的行。
追答这可不是一个小改动，呵呵
追问哦？修改一个文件比修改整个文件夹中的文件还难？不过对你这位高手来说肯定有办法的。希望看到结果。。谢谢！！
追答暂时想到两个方法：用API读出各个文件的建立时间，判断那个是最接近现在时间，修改它，这是一个方法，工作量不小。另一个方法是每次建立新的txt文档时都把它放到一个独立的地方，修改后再移到abc文件夹中，这个方法相对简单，但是不知新建的文档是如何建立的？
追问由于txt文本文件是在需要的时间一个一个生成的（不是批量生成的），所以，我想可把删除非数字字符的过程放到生成txt文件的过程中。这样，就需要删除单个文本文本非数字字符的代码（把这个代码放到生成文本的command按钮内）。也就是说，在生成一文本文件后，直接删除这个文本文件中的非数字字符。此想法和你一致吧？文档建立代码：Open App.Path & "\abc\" & Text4.Text & "课程(" & Text1.Text & ")名单.txt" For Append As #1
追答如果是这样，问题就简单多了，在生成文件的commandbutton中需要处理文件的地方加入：
zhzsucyg(App.Path & "\abc\" & Text4.Text & "课程(" & Text1.Text & ")名单.txt")
当然得把下面这段代码也拷进去：
Private Function zhzsucyg(myFile As String)
Dim myLine() As String, myTemp As String, myOK As Boolean, myOutput As String, i As Integer, j As Integer
Open myFile For Binary As #1
myLine = Split(Input(LOF(1), 1), vbCrLf)
Close
For i = 0 To UBound(myLine)
myTemp = myLine(i)
For j = 0 To 9
myTemp = Replace(myTemp, CStr(j), "")
Next
If myTemp = "" Then myOutput = myOutput & myLine(i) & vbCrLf: myOK = True
Next
If myOK = True Then
Open myFile For Output As #1
Print #1, myOutput
Close
myOK = False
End If
End Function
文档生成的代码不是一行，还有几行呢：
For i = 1 To 8
h = WebBrowser1.Document.All.tags("table").Item(1).rows.Item(i).cells.Item(1).innerText
If temp h Then
P = P + 1
Print #1, h
temp = h
End If
Next
这样上述你写的代码怎样修改呢？请再指导下
如果这样更简单啦
For i = 1 To 8
h = WebBrowser1.Document.All.tags("table").Item(1).rows.Item(i).cells.Item(1).innerText
If temp h Then
P = P + 1
'=====新加部分=======================
dim j As Integer,myTemp as string
myTemp=h
For j = 0 To 9
myTemp = Replace(myTemp, CStr(j), "")
Next
If myTemp = "" Then Print #1,h
'Print #1, h=============================
temp = h
End If
Next
或且用楼上几位的判断数字的方法
For i = 1 To 8
h = WebBrowser1.Document.All.tags("table").Item(1).rows.Item(i).cells.Item(1).innerText
If temp h Then
P = P + 1
'楼上的方法===================
If IsNumeric(h) Then Print #1,h
'=============================
temp = h
End If
Next
可能你把简单的问题复杂化了，呵呵。
谢谢！但看不太明白。请问：新加语句中的for语句为什么和我原有代码的for语句重复（而且0 To 8变成了0 To 9）？有重复的必要吗？
追答我加的for循环用于检测你的变量h是不是纯数字，与你原来的for没有关系。另，后一种方法可能更容易理解些。
我是要处理一个程序目录下一个文件夹中所有的txt文件，不是一个文件，而且文件名是不清楚的。