DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Compare String with Strings

•

Join Date: Jun 2006

Posts: 1

Reputation: raman is an unknown quantity at this point

Solved Threads: 0

raman

Offline

Newbie Poster

Compare String with Strings

Feb 5th, 2007

Hello Expertz

I am using following function to compare two string.But i want to compare String with strings list like:
str1="A"
str2="A,B,C,D"

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
 Public Function CompareString(ByVal str1 As String, ByVal str2 As String) As Boolean
        Dim i As Integer = 0
        For i = 0 To str2.Length - str1.Length
            If str2.Substring(i, str1.Length) = str1 Then
                Return True
            End If
        Next i
        Return False
    End Function
 
Function Calling//
If CompareString(Session("directoratename"), direcgrp) = True Then
flag = 1
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
Else
flag = 0
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
End If
 Public Function CompareString(ByVal str1 As String, ByVal str2 As String) As Boolean
        Dim i As Integer = 0
        For i = 0 To str2.Length - str1.Length
            If str2.Substring(i, str1.Length) = str1 Then
                Return True
            End If
        Next i
        Return False
    End Function
 
Function Calling//
If CompareString(Session("directoratename"), direcgrp) = True Then
flag = 1
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
Else
flag = 0
Response.Redirect("Client_Menu.aspx?id=" & linkid & "&flag=" & Common.encrypt(flag))
End If