Multiple if else with Regex

Question

1.00/5 (1 vote)

See more:

Hello,

I have descr column which I need to validate against multiple string patterns. I tried using metacharacter "\W" with "like" in excel. But i did not get the correct output.

SQL

descr                   descr_NEW
white cat big                yes
small donkey black           no

Private Sub model()
Dim descr_NEW As String, descr As String
Dim strPattern As String: strPattern = "(\W|^)cat(\W|$)"
Dim regEx As New RegExp
row_number = 1

Do
DoEvents
row_number = row_number + 1
descr = Sheets("Tabelle1").Range("A" & row_number)
 
 With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = True
                .Pattern = strPattern
            End With

If descr Like "(\W|^)cat(\W|$)" Then
descr_NEW = "yes"

Else
descr_NEW = "no"


'If regEx.test(descr) Then
'descr_NEW = "cat"
'
'Else
'descr_NEW = "no"


End If

Range("B" & row_number).Value = descr_NEW

Loop Until row_number = 10
End Sub

Instead of "like", I tried regex.test() (piece of code under comments) and it works fine. But i want to acheive the result using "\W " with "like".

Is there any way?

Thanks in advance
priya

Posted 25-Mar-15 1:39am

priyae

Updated 30-Mar-15 4:07am

v3

Add a Solution

Comments

Maciej Los 28-Mar-15 18:39pm

Sorry, but your question is not clear...

priyae 30-Mar-15 4:01am

Hello Los,

Thanks for letting me know.

I have a word "whitecatbig" in the column "descr" and I want to extract "cat" out of it.

I tried like this,
If descr Like "(\W|^)cat(\W|$)" Then.....

But I did not get any output.

Is this this the right way to use \W here?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2015-03-29T22:26:00

You don't need any VBA code for that! Use built-in formula:

VB

=IF(ISNUMBER(FIND("cat",A2))>0,"yes","no")

A2 - is a reference to descr data.

If you would like to use VBA, you need to loop through the collection of cells:

VB

Sub Test
Dim wsh As Worksheet
Dim i As Integer

Set wsh = Thisworkbook.Worksheets("Sheet1")
i = 2
Do While wsh.Range("A" & i)<>""
    wsh.Range("B" & i) = Test4Cat(wsh.Range("A" & i))
    i = i +1
Loop

End Sub

Function Test4Cat(ByVal sInput As String)

    Test4Cat = IIf(InStr(1, LCase(sInput), "cat", vbTextCompare) > 0, "yes", "no")

End Function

Use the same logic with Regex ;)

[EDIT]
As concerns comments to the answer... you have to create custom function to validate if data meets your needs or no.

VB

Function cfValidate(ByVal sDescription As String) As String
Dim vPatterns As Variant
Dim i as Integer
Dim retVal as String

retVal = "yes" 'return default value

vPatterns = Array("pattern1","pattern2","pattern3")

For i=LBound(vPatterns) To UBound(vPatterns)
    'here call Regex
    'if Regex found matches, the string passed into it is invalid
    retVal = "no"
Next i

cfValidate = retVal
End Function

Note: vPatterns is a "collection" (array) of patterns to check if string is valid.

You can use above function as formula:

VB

=cfValidate(A2)

[/EDIT]