VB.NET: Je ne trouve pas l'index d'un tableau

Question

This is the code for my array (which is working) 

Public numUsers As Integer 
Public fNameUsers As String = ("..\..\..\users.txt") 
Public UserRecords As Usersclass() 'note... this line is in a module ' 

reader = New System.IO.StreamReader(fNameUsers) 
numUsers = 0 

    'Split the array up at each delimiter of "," and add new objects ' 
      Do While reader.Peek <> -1 
       ReDim Preserve UserRecords(numUsers) 
       oneline = reader.ReadLine 
       fields = oneline.Split(",") 
       UserRecords(numUsers) = New Usersclass 
       UserRecords(numUsers).AccountNumber = fields(0) 
       UserRecords(numUsers).CourseName = fields(1) 
       UserRecords(numUsers).FirstName = fields(2) 
       UserRecords(numUsers).LastName = fields(3) 
       UserRecords(numUsers).DOB = fields(4) 
       UserRecords(numUsers).Email = fields(5) 
       UserRecords(numUsers).CourseProgress = (6) 
       UserRecords(numUsers).AdminCheck = fields(7) 

       numUsers = numUsers + 1 

      Loop 
      reader.Close() 

Mon problème est que je ne sais pas comment rechercher l'index d'un tableau où le .accountNumber = une variable. Par exemple le acccountNumber est 253, quel est le code pour trouver l'index auquel il se rapporte ????

Merci à l'avance

Answer 1

Ecrire une fonction de recherche, boucle dans le tableau et retourne l'index si vous avez trouvé l'enregistrement spécifié. Ou vous utilisez un Dictionary, comme

Public UserRecords As New Dictionary(Of Integer, Usersclass) 

que vous pouvez utiliser comme celui-ci

Dim desiredUser As Usersclass = UserRecords(hisAccountNumber) 

Answer 2

Vous seriez mieux laisser tomber l'utilisation des tableaux et des objets plutôt regarder dictionnaire.

Un dictionnaire en termes simples est très similaire à un tableau, mais vous pouvez localiser un objet en utilisant une clé, dans votre cas, le numéro de compte.

   Dim UserRecords as New Dictionary(Of String, Usersclass) 
      Dim UserRecord as Userclass 
      Do While reader.Peek <> -1 

       oneline = reader.ReadLine 
       fields = oneline.Split(",") 

       'Populate your class 
       UserRecord = New Usersclass 
       UserRecord.AccountNumber = fields(0) 
       UserRecord.CourseName = fields(1) 
       UserRecord.FirstName = fields(2) 
       UserRecord.LastName = fields(3) 
       UserRecord.DOB = fields(4) 
       UserRecord.Email = fields(5) 
       UserRecord.CourseProgress = (6) 
       UserRecord.AdminCheck = fields(7) 

       'Add to the dictionary here 
       UserRecords.Add (fields(0),UserRecord) 

      Loop 

      ''Then find your UserRecord by the accountnumber e.g 
      UserRecord = UserRecords("253") 

Answer 3

Un objet Dictionnaire est probablement exactement ce que vous recherchez. Il vous permet de définir votre propre clé de l'utilisation d'un index de tableau. Je ne vous écris pas beaucoup VB, mais voici ce que cela ressemblerait à C#:

//Create the dictionary 
Dictionary<int, Account> userRecords = new Dictionary<int, Account>(); 

//Add an account to the dictionary 
userRecords.Add(accountNumber, account); 

//Get an accoutn out of the dictionary 
Account account = userRecords[accountNumber]; 

Answer 4

Do While reader.Peek <> -1 
        ReDim Preserve UserRecords(numUsers) 
        oneline = reader.ReadLine 
        fields = oneline.Split(",") 
        UserRecords(numUsers) = New Usersclass 
        UserRecords(numUsers).AccountNumber = fields(0) 
        UserRecords(numUsers).CourseName = fields(1) 
        UserRecords(numUsers).FirstName = fields(2) 
        UserRecords(numUsers).LastName = fields(3) 
        UserRecords(numUsers).DOB = fields(4) 
        UserRecords(numUsers).Email = fields(5) 
        UserRecords(numUsers).CourseProgress = fields(6) 
        UserRecords(numUsers).AdminCheck = fields(7) 
        UserRecords(numUsers).password = fields(8) 

        numUsers = numUsers + 1 

       Loop