Find a specific substring within a string VBScript

Question

Dim string1 = "631;27;73"
Dim string2 = "31"

InStr(string1, string2) returns 2 since 31 is a subset of string1. For my current scenario, I want to match the whole number. string2 = 31 is not a matching number in string1 and hence I want to return a zero and append 31 to string1.

I see 2 ways you could approach this: a) split string1 at semicolons and compare the substrings with string2 in a loop, or b) use a regular expression where you match on word boundaries (\b). — Ansgar Wiechers
– Ansgar Wiechers, Commented Oct 17, 2019 at 15:37

Étienne Laneville · Accepted Answer · 2019-10-17 16:36:38Z

2

You can split your number list into an array and compare each number:

Function NumberExists(p_sNumber, p_sList)
    Dim arrValues
    Dim iCounter

    arrValues = Split(p_sList, ";")

    For iCounter = 0 To UBound(arrValues)
        If p_sNumber = arrValues(iCounter) Then
            ' Number is found
            NumberExists = True
            Exit Function
        End If
    Next

    NumberExists = False

End Function

In your scenario, you can use the function like this:

Dim string1
Dim string2

string1 = "631;27;73"
string2 = "31"

MsgBox NumberExists(string2, string1)

edited Oct 17, 2019 at 16:36

answered Oct 17, 2019 at 15:38

Étienne Laneville

5,0815 gold badges15 silver badges34 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Étienne Laneville Over a year ago

If this answer solved your problem, please accept the answer by clicking on gray check mark symbol on the left of an answer. A question with no accepted answer is rated as a not answered question even if there are good answers.

Ece Kishore · Accepted Answer · 2019-10-22 12:38:23Z

0

Try to Do This Code Get Better Result

Dim string1
Dim string2
Dim vCount

string1 = "631;27;73"
string2 = "632"
vCount = 1

vSplit = Split(string1, ";")

For each value1 in vSplit

If value1 = string2 And vCount = 1 Then
Result = "Number Exist"
vCount = vCount+1
ElseIf  vCount = 1 Then
Result = "Number Not Exist"
End If 

Next

MsgBox(Result)

answered Oct 22, 2019 at 12:38

Ece Kishore

111 bronze badge

Collectives™ on Stack Overflow

Find a specific substring within a string VBScript

2 Answers 2

1 Comment

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Linked

Related