Wie kann ich ein Array in VB.NET suchen?

Question

Ich möchte in der Lage sein, ein Array für den Inhalt einer Zeichenfolge effektiv zu suchen.
Beispiel:

dim arr() as string={"ravi","Kumar","Ravi","Ramesh"} 

Ich gehe der Wert "ra" und ich möchte es den Index von 2 zurückzukehren und 3.

Wie kann ich dies in VB.NET tun?

Answer 1

Dim inputString As String = "ra" 
Enumerable.Range(0, arr.Length).Where(Function(x) arr(x).ToLower().Contains(inputString.ToLower())) 

Answer 2

Dies würde den Trick tun, um die Werte bei Indices 0, 2 und 3.

Array.FindAll(arr, Function(s) s.ToLower().StartsWith("ra")) 

Answer 3

Wenn Sie eine effiziente Suche wollen Rückkehr, die oft wiederholt wird, das Array zuerst sortieren (Array.Sort) und Verwenden Sie dann Array.BinarySearch.

Answer 4

Es ist nicht genau klar, wie Sie das Array durchsuchen möchten. Hier sind einige Alternativen:

alle Gegenstände finden, die genaue Zeichenfolge „Ra“ (gibt Artikel 2 und 3) enthält:

Dim result As String() = Array.FindAll(arr, Function(s) s.Contains("Ra")) 

alle Gegenstände finden mit der genauen Zeichenfolge beginnen „Ra“ (gibt Artikel 2 und 3):

Dim result As String() = Array.FindAll(arr, Function(s) s.StartsWith("Ra")) 

alle Gegenstände finden jeden Fall Version von "ra" enthält (Retourenpositionen 0, 2 und 3):

Dim result As String() = Array.FindAll(arr, Function(s) s.ToLower().Contains("ra")) 

alle Gegenstände finden mit jedem Fall Version von "ra" ab (Retuns Artikel 0, 2 und 3):

Dim result As String() = Array.FindAll(arr, Function(s) s.ToLower().StartsWith("ra")) 

-

Wenn Sie nicht VB verwenden 9+ dann müssen Sie nicht anonym Funktionen, so müssen Sie eine benannte Funktion erstellen.

Beispiel:

Function ContainsRa(s As String) As Boolean 
    Return s.Contains("Ra") 
End Function 

Verbrauch:

Dim result As String() = Array.FindAll(arr, ContainsRa) 

mit einer Funktion, die nur für eine bestimmte Zeichenfolge vergleichen, kann nicht immer sehr nützlich ist, so in der Lage sein, eine Zeichenfolge angeben, vergleichen Sie müssten es in eine Klasse setzen, um irgendwo die Zeichenfolge zu speichern:

Public Class ArrayComparer 

    Private _compareTo As String 

    Public Sub New(compareTo As String) 
     _compareTo = compareTo 
    End Sub 

    Function Contains(s As String) As Boolean 
     Return s.Contains(_compareTo) 
    End Function 

    Function StartsWith(s As String) As Boolean 
     Return s.StartsWith(_compareTo) 
    End Function 

End Class 

Verbrauch:

Dim result As String() = Array.FindAll(arr, New ArrayComparer("Ra").Contains) 

Answer 5

VB

Dim arr() As String = {"ravi", "Kumar", "Ravi", "Ramesh"} 
Dim result = arr.Where(Function(a) a.Contains("ra")).Select(Function(s) Array.IndexOf(arr, s)).ToArray() 

C#

string[] arr = { "ravi", "Kumar", "Ravi", "Ramesh" }; 
var result = arr.Where(a => a.Contains("Ra")).Select(a => Array.IndexOf(arr, a)).ToArray(); 

----- ------ Detaillierte

Module Module1 

    Sub Main() 
     Dim arr() As String = {"ravi", "Kumar", "Ravi", "Ramesh"} 
     Dim searchStr = "ra" 
     'Not case sensitive - checks if item starts with searchStr 
     Dim result1 = arr.Where(Function(a) a.ToLower.StartsWith(searchStr)).Select(Function(s) Array.IndexOf(arr, s)).ToArray 
     'Case sensitive - checks if item starts with searchStr 
     Dim result2 = arr.Where(Function(a) a.StartsWith(searchStr)).Select(Function(s) Array.IndexOf(arr, s)).ToArray 
     'Not case sensitive - checks if item contains searchStr 
     Dim result3 = arr.Where(Function(a) a.ToLower.Contains(searchStr)).Select(Function(s) Array.IndexOf(arr, s)).ToArray 
     Stop 
    End Sub 

End Module 

Answer 6

Falls Sie eine ältere Version von .NET suchen wurden dann verwenden:

Module Module1 

    Sub Main() 
     Dim arr() As String = {"ravi", "Kumar", "Ravi", "Ramesh"} 
     Dim result As New List(Of Integer) 
     For i As Integer = 0 To arr.Length 
      If arr(i).Contains("ra") Then result.Add(i) 
     Next 
    End Sub 

End Module 

Answer 7

Objekte im Array vergleichen, wenn man die Eingabe übereinstimmt dann etwas auf den Wert der Schleifen aktuelle Position, die auch der Index des aktuell nachgeschlagenen Gegenstandes.

einfach zB.

dim x,y,z as integer 
dim aNames, aIndexes as array 
dim sFind as string 
for x = 1 to length(aNames) 

    if aNames(x) = sFind then y = x 

y ist dann der Index des Elements in dem Array, dann könnte Schleife verwendet werden, diese auch so in einem Array speichern anstelle der oben würden Sie haben:

z = 1 
for x = 1 to length(aNames) 
    if aNames(x) = sFind then 
     aIndexes(z) = x 
     z = z + 1 
    endif 

Answer 8

Kontrolle dieses. .

 string[] strArray = { "ABC", "BCD", "CDE", "DEF", "EFG", "FGH", "GHI" }; 
     Array.IndexOf(strArray, "C"); // not found, returns -1 
     Array.IndexOf(strArray, "CDE"); // found, returns index