例如文本框1 text1.text=
地方稅法ljklk代課甲老師,電訪問子#$@#四羊方丑尊的戌時(shí)代背景 [歷史話題]· 中日韓三寅足鼎立？日中乙村VS韓嫖星VS中李毅？ [足球]· MP3充電時(shí)使亥用午對(duì)子辰MP丁4卯有午壞處未嗎？ [電子酉數(shù)酉申酉碼]·丙 明是一盤火，暗是一把刀 [中國巳文學(xué)]· 全
要求清除掉除了 子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥以外的文字,字符和空格,中間用,隔開
******************************************************
Private Sub Command1_Click()
Dim i As Integer
Dim temStr As String
Text2.Text = ""
For i = 1 To Len(Text1.Text)
temStr = Mid(Text1.Text, i, 1)
If InStr(1, "子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥", temStr) <> 0 Then
Text2.Text = Text2.Text & temStr & "、"
End If
Next
Text2.Text = Left(Text2.Text, Len(Text2.Text) - 1)
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
