txt文本筛选出英文单词、固定的字符

来源：百度知道 编辑：UC知道 时间：2024/05/03 02:59:33
现在有一个txt文本
每行一个很多字符组合
有的是数字+字母
有的是纯字母组合（有拼音也有英文单词）
我每天都要从中筛选出含有英文单词、汉语拼音或者是含有固定的几个连续字符的段

高分
例如
zhangyimou
shdz
ziyi
chenlong
gongli
lilianjie
hnedu
hndxs
zzedu
hndiping
zzdxs
jpjd
0795
yanglan
ykd
guke
hndx
satv
qqbj2008
retirement
eastworld
hunanbbs
kikui
liuyugeng
haoshandong
justgo
espceo
gzqingya
merck
mujiang
chinack
zygw
52city
qywap
sunderland

当然远远比这个多
我要从中选出英文单词或者是拼音组合或者是含有某个固定字母组合，例如52
应该怎么弄
有这样的软件或者批处理么？
能够解决送高分

'画两个文本框，设置为多行，画一个命令按键
Private Sub Command1_Click()
Dim myTempStr() As String, myFindStr As String, a As Integer
Open "c:\原文件.txt" For Binary As #1 '原文件所在位置，当然如果你愿意也可以用commondialog控件找到你要的文件
Text1.Text = Input(LOF(1), 1)
Close
Text2.Text = ""
myTempStr = Split(Text1.Text, vbCrLf)
myFindStr = InputBox("请输入查找的字母组合", , "52")
For a = 0 To UBound(myTempStr)
If myTempStr(a) Like "*" & myFindStr & "*" Then Text2.Text = Text2.Text & myTempStr(a) & vbCrLf
Next
End Sub