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, i, 1)
End If
Next
MsgBox "替换完毕"
End Sub
http://d.download.csdn.net/down/1160480/woldy
相关文档:
重拾VB之三,二进制文件篇
PMP 关劲松
鬼使神差,09年12月入职的公司仍使用VB开发软件,虽然并非专职开发,但也不得不在事隔4年之后,重新使用VB。
读取、修改二进制文件仍是大部分编程语言的基本开发技能。可以提高处理文件效率,主要应用在通信、交换数据等方面。
'open filena ......
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
'*************************************************************************
''----------------------------------------------------------------------
'**系统名称:子类化重绘仿QQ2009渐变按钮
'**模块描述:
'**模 块 名:Form1
'**创 建 人:gvu
'**作者网站:http://hi.baidu.com/googlevipuser
'**E-Mai ......