想删除非特定字符,这个代码怎么写?
如图
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/5b8cdb1770fece0ec93d6db6.jpg
文本框1内容如下
01组,张宣明,02组 空 04组
08组-林子乐
04组 谭 闯 11组 王筑艺 32组,曾 宇 陈 思
二中中学 M044007
32组 祝雪娇 八中 M044025
龚思锐 三学 M044008
56组吴岱峰 一中 M044026
23组李泽琦 一中 M044009
25组廖 毓 一中 M044027
19组 胡宇
19组 张兰
19组 林晓彤
文本框2内容如下
01组,32组,19组,
操纵是删除掉文本框2规定外的字符,输出到文本框3,如:
01组,32组,32组,19组,19组,19组,
谢谢
[解决办法]
Private Sub Command1_Click()
Dim i As Long
Dim l As Long
Dim sData As String
Dim sTmp As String
Dim v As Variant
Dim vFind As Variant
sData = Text1.Text
vFind = Split(Text2.Text, ", ")
For Each v In vFind
i = 1
l = Len(v)
If Len(v) > 0 Then
Do
i = InStr(i, sData, v, vbTextCompare)
If i = 0 Then
Exit Do
Else
sTmp = sTmp & Mid(sData, i, l) & ", "
i = i + l
End If
Loop
End If
Next
Text3.Text = sTmp
End Sub
