CODEWITHSUNDEEP
stringvbscriptasp-classic
Aditya
Aditya

Reputation: 48

Classic ASP - Trying to search a string in another string variable. (Alternative to InStr function)

In the following code currentregion = 'BC' and Regions = 'ABC'.

I am trying to find the currentregion in the Regions and normally it should hit else as the if condition is false.

But it returns true as InStr searches part of the string not string vs string. So BC being part of ABC it enters the if loop.

Is there a function in Classic ASP that I can compare a string to string but not part of the string like InStr function.

RegionSQL = "SELECT * FROM Regions Where Auth <= " & Session("U_Auth") & ";"                
Set rsRegion=Server.CreateObject("recordset")
rsRegion.Open RegionSQL,TheDB

If NOT rsRegion.EOF And NOT rsRegion.BOF Then
    rsRegion.MoveFirst
    While Not rsRegion.Eof 
        'Grab Current Region
        currentregion = rsRegion("RegionCodeShort")   

        If InStr(Regions,currentregion) > 0 Then
            checked = "checked"
        Else
            checked = ""
        End If

Upvotes: 0

Views: 4231

Answers (3)

Jonathan Applebaum
Jonathan Applebaum

Reputation: 5986

Classic task for Regular expressions:

Private Sub CommandButton1_Click()
    MsgBox (find("ABC", "(ABC)")) ' exist
    MsgBox (find("BC", "(ABC)")) ' not exist
End Sub

Function find(aString As String, ByVal pattern As String) As Boolean
    Dim regEx As Object
    Set regEx = CreateObject("vbscript.regexp")

    Dim newArray() As String
    Dim cnt As Integer
    regEx.pattern = pattern
    regEx.IgnoreCase = True
    regEx.Global = True

    Set matches = regEx.Execute(aString)
    Dim x As Integer
    x = matches.Count

    If x = 0 Then
        find = False
    Else
        find = True
    End If

End Function

Upvotes: 0

Mike Lowery
Mike Lowery

Reputation: 2868

Split the string into an array first, then loop through and compare each element

Upvotes: 0

Arun Raj
Arun Raj

Reputation: 37

Try using 

If strcomp(Regions,currentregion,vbTextCompare) = 0 Then

instead of 

If InStr(Regions,currentregion) > 0 Then

Upvotes: 1

Related Questions