Matching String using Regexp Function

[gazaman]

Hi, I Have my pierce of code that is not working properly.I need the strSearch(the input string) string to be able to be matched to the strSearchptn (the pattern the text to conform to).However my code when i press the Command0 button it doesn't incrememnt the "regExp_Matches.Count " it is showing 0,

Can someone maybe locate where the problem is
NB** all the data is just test data I need to have it working to put the actual data

The code is below

Private Sub Command0_Click()
Dim regExp As Object
Dim strSearchPtn As String
Dim strSearchText As String
Dim strMatchingSeq As String
Dim myCount As Integer


strSearchPtn = "[0-9]"
strSearchText = "2018"
strMatchingSeq = "The Sequence is Matched" 'test variable


Set regExp = CreateObject("vbscript.regexp")


With regExp
.Pattern = strSearchPtn
.IgnoreCase = True
.Global = True
End With
Set regExp_Matches = regExp.Execute(strSearchText)
myCount = regExp_Matches.Count 'test variable
If regExp_Matches.Count = 1 Then
Me.txtTextBox = strMatchingSeq
Else
Me.txtTextBox = "Nothing Found"
End If




End Sub

[ranman256]

cant you use a query?

[gazaman]

Ideally what I want to do is to have an application that takes a user input string from a form to check if it is within a specific Alphnumeric range in a database column, any ideas besides using regex ?

For example:

user input is : "81E00912" SEARCH SEQUENCE is " 81E00001 - 81E00918 "
or "WPOZZZ91ZES800912" search sequence "WPOZZZ91ZES800001 - WPOZZZ91ZES800918"

[CJ_London]

I agree, can be done in a query if my understanding is correct - which is there is one requirement which is

the last 3 characters need to be in the range 001 to 918

is this correct?

Alternatively

the first x number of characters must match (something? if so what?), x being length of user input-3
and the last 3 characters need to be in the range 001 to 918