怎样去掉文本中的中文和英文 保留数字

写一段实现这个功能的VB代码：
在窗口上画两个Text和一个Command
然后复制下面代码

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "1" Or "1" _
Or "2" Or "3" Or _
"4" Or "5" Or "6" Or "7" Or _
"8" Or "9" Or "0" Then
Text2.Text = Text2.Text & i
End If
Next i
End Sub

运行的时候把你要去掉字母的文本复制到text1里，然后按一下命令按钮Command，text2里就出来过滤后的数字了。

你要说清楚在什么软件里，我想在word或excel里大家谁都会的。

打开文本,用鼠标左键点击拉动覆盖中文和英文,用delete键清除..就剩数字了..也可以把TXT先复制到WORD中,然后把格式选定是数字格式即可.然后,再从WORD中拷贝回TXT中,点击保存..完成..

用替换。

替换