vb 过滤文本前后的符号

正则，引用mircosoft vb regular expression 55

Dim s As String

Dim p As String

Dim mh As Match

Dim mhs As MatchCollection

Dim re As RegExp

Set re = New RegExp

reIgnoreCase = True

rePattern = p

reGlobal = True

s = ",你好，这句话的符号。"

rePattern = "[\u4e00-\u9fa5]\w" '取中文英文，数字

Set mhs = reExecute(s)

For Each mh In mhs

text1text=text1text & "" & mh 'text1的multiline设为TRUE

Next

给段例子啊

1、KeyPress

2、KeyAscii >=48 AND KeyAscii <=57

3、Text2Text & Chr(KeyAscii)

以上是在Text2上将每次符合条件的字符都依次连接起来显示。如果是每次要在Text2上只显示一个字符，则将第3空改为：

Chr(KeyAscii)

有二种方法：

一是把你输入的文本框的字体颜色改为底色（默认为白色）；

二是在文本框内检测到有输入字符时，把对应的码变为0：asciikey=0。只是此时你可能得先把这个码存到另一个变量，不然输入干嘛？

以上就是关于vb 过滤文本前后的符号全部的内容，包括:vb 过滤文本前后的符号、VB程序题、vb 如何让键盘打中的字母消失 程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！