Compare String with Strings

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 427,769 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,724 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 2458 | Replies: 0

•

Join Date: Jun 2006

Posts: 1

Reputation: raman is an unknown quantity at this point

Rep Power: 0

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
 