Question

vb怎样删除txt文本文件中有“非数字字符”的行?

vb程序安装目录下的子文件夹abc中有一些以txt为扩展名的文本文件，这些文件mulitiline属性都是true。这些文件中主要是一些分行排列的数字，但也有一些不是数字的字符混进来（比如：11个；2011年）。点击窗体上按钮command1后，自动删除这些文本文件中非数字字符的行（当然要连同这些行中的数字都删除）。并且不留空行。
点击command1时要生成一个文本文本，最好在这时就检测文本中是否有非数字字符的行，并且删除。这是上策。。

Answer 1

'添加一个filelistbox,一个commandbutton
Private Sub Command1_Click()
Dim i As Integer
If Dir(App.Path & "\abc", vbDirectory) = "" Then MsgBox "没有“" & App.Path & "\abc" & "”文件夹": Exit Sub
File1.Path = App.Path & "\abc"
For i = 0 To File1.ListCount - 1
File1.ListIndex = i
If Right(File1.FileName, 3) = "txt" Then zhzsucyg (App.Path & "\abc\" & File1.FileName)
Next
End Sub
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

追问

代码经测试可以用，但每次点击按钮后在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没有关系。另，后一种方法可能更容易理解些。

Answer 2

Private Sub Command1_Click()
dim txt as integer
test=text1.text
If Dir("C:\abc\text.text", vbDirectory) <> "" Then
MsgBox "文件夹：C:\WINDOWS\system32\roect 存在！"
Else
MkDir "C:\abc\text.text"
If (Asc(test) >= 48 And Asc(TemporarySave) <= 57) Then
For n = 0 To UBound(test)
If IsNumeric(test(n)) = False Then testa(n) = ""
Next
s = Join(test, vbCrLf)
Set ts = fil1.OpenAsTextStream(ForWriting)
ts.Write s
ts.Close

End If
End Sub

追问

我是要处理一个程序目录下一个文件夹中所有的txt文件，不是一个文件，而且文件名是不清楚的。

Answer 3

-- 1行 Perl 解决问题

perl -i -pe "s/^[^\n]*?[^\d\s[:punct:]\r\n][^\r\n]*\r?$[\n]//m" *.txt

别和我提什么Commandbar~~

Answer 4

fso对象的subfiles遍历某文件夹下的所有文件，过滤出txt文件，然后将3楼的代码做成一个函数，参数为文件名，即可完成

Answer 5

可以用ASC函数来判断它的码值来判断是否是数字（数字的码值是48－－－－57）

Answer 6

直接以FSO对象，打开文件，进行处理，很方便