VB过滤中文字符串源码

添加

两个TEXT(multiline=true)

一个按钮

Private Function isChinese(ByVal asciiv) As Boolean a = AscW(asciiv) If Len(Hex$(a)) > 2 Then isChinese = True Else isChinese = False End If End Function Private Sub Command1_Click() text2.text="" '先清空text2 For i = 1 To Len(Text1.Text) DoEvents If isChinese(Mid(Text1.Text,i,1)) = True Then Text2.Text = Text2.Text & "" Else Text2.Text = Text2.Text & Mid(Text1.Text,1) End If Next MsgBox "替换完毕" End Sub

http://d.download.csdn.net/down/1160480/woldy

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!