VB中到底如何用正则表达式，请给具体方法谢谢

[cueixu1]

RT

[saucer]

add a reference to "Microsoft VBScript Regular Expressions ..", then use RegExp object, see

http://faculty.winthrop.edu/snyderr/VB.EP/re-01.asp

[cueixu1]

打不开

[saucer]

http://www.china-askpro.com/msg26/qa18.shtml


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsobjregexp.asp

[射天狼]

Public myReg As New RegExp '正则表达式

Public Sub SetNumber(obj As TextBox, PointNum As Integer, Optional SignFlag As Boolean = True)
On Error Resume Next
Dim ls_Pattern As String, ls_Text As String, ls_Tag, i As Long

ls_Pattern = IIf(SignFlag, "^[\-]{0,1}", "^")
ls_Pattern = ls_Pattern & "(0|[1-9][0-9]{0,50})([\.][0-9]{0," & PointNum & "}){0," & IIf(PointNum = 0, "0", "1") & "}$"
myReg.IgnoreCase = True
myReg.Pattern = ls_Pattern
ls_Text = obj.Text
ls_Tag = obj.Tag

i = obj.SelStart
If Not myReg.Test(ls_Text) And ls_Text <> "" Then
obj.Text = ls_Tag
obj.SelStart = IIf(i = 0, 1, i - Abs(Len(ls_Text) - Len(ls_Tag)))
Else
obj.Tag = ls_Text
End If
End Sub

[jordi2014]

学习一下。