0 
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()

我的问题是我不知道如何查找 .accountNumber = 变量的数组的索引。例如，accountNumber 是 253，查找与此相关的索引的代码是什么？？？？

提前致谢

4

4 回答 4

1

最好不要使用数组，而是查看字典对象。

外行术语中的字典与数组非常相似，但您可以使用键定位对象，在您的情况下是帐号。

             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")
于 2010-04-15T08:48:53.657 回答
0

编写一个搜索函数，遍历数组并返回索引，如果你找到了指定的记录。或者您使用Dictionary，例如

  Public UserRecords As New Dictionary(Of Integer, Usersclass)

你可以这样使用

  Dim desiredUser As Usersclass = UserRecords(hisAccountNumber)
于 2010-04-15T08:48:18.263 回答
0 
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
于 2010-04-15T10:54:34.083 回答
0

Dictionary 对象可能正是您正在寻找的。它让您设置自己的键而不是使用数组索引。我写的 VB 不多，但它在 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];
于 2010-04-15T08:55:22.257 回答