怎样用vb删除txt文本文件中不是数字的其他字符

2024-12-27 14:48:07

推荐回答（4个）

回答1：

Private Sub Form_Unload(Cancel As Integer)
Dim a As String, s As String
Open "c:\1234.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) Then s = s + Mid(a, i, 1)
Next i
s = s & vbCrLf
Loop
Close
Open "c:\1234.txt" For Output As #1
Print #1, s
Close
MsgBox "完成"
End Sub
c:\123.txt为文件路径，改为你的文件路径即可
我已验证，运行正确

回答2：

可以用二进制打开，然后把数据赋给一个一维数组（定义大小和文件一样），每得到一个字符就检查是否是数字，不是就置“空”，最后再写回去或者新建一个文件，遇空就跳过。

回答3：

这个要求只能采用全部读出后,用字符串替换函数替换字符为空格.或指定的字符后,再次写入文本中.

回答4：

同意