Mega Code Archive

 

Categories / VB.Net / Data Types

 

Ordinal test for equality

Imports System.Globalization Imports System.Threading Module Example    Public Sub Main()       Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("tr-TR")             Dim filePath As String = "file://c:/notes.txt"       If Not TestForEquality(filePath, StringComparison.OrdinalIgnoreCase) Then          Console.WriteLine("Access to {0} is allowed.", filePath)       Else          Console.WriteLine("Access to {0} is not allowed.", filePath)       End If           End Sub    Private Function TestForEquality(str As String, cmp As StringComparison) As Boolean       Dim position As Integer = str.IndexOf("://")       If position < 0 Then Return False       Dim substring As String = str.Substring(0, position)         Return substring.Equals("FILE", cmp)    End Function End Module