代码如下
Private Sub TextBox1_Change()
Dim i As Integer
Dim strs As String
Dim reg As Object, reg1 As Object
Set reg = CreateObject("vbscript.regexp")
Wi
代码如下
Private Sub TextBox1_Change()
Dim i As Integer
Dim strs As String
Dim reg As Object, reg1 As Object
Set reg = CreateObject("vbscript.regexp")
Wi