Как вводить данные в массив из текстового файла, разделенного vbTab?

Question

У меня возникли проблемы с поворотом набора данных из текстового файла в массивы, в основном, то, что я имею в текстовом файле:

Eddy vbtab 20 
Andy vbtab 30 
James vbtab 20 

и т.д ..

Я хочу, чтобы настроить имена как массив имен и числа в виде массива чисел.

Теперь то, что я сделал это

strFilename = "CustomerPrices.txt" 
If File.Exists(strFilename) Then 
    Dim srReader As New StreamReader(strFilename) 
    intRecords = srReader.ReadLine() 
    intRows = intRecords  

    For i = 0 To intRows - 1 
    intLastBlank = strInput.IndexOf(vbTab) 
    strName(intPrices) = strInput.Substring(0, intLastBlank) 

    dblPrices(intPrices) = Double.Parse(strInput.Substring(intLastBlank + 1)) 

Но когда я отладки я получаю проблему «Ссылка на объект не указывает на экземпляр объекта»

Может кто-нибудь дать мне некоторые рекомендации?

Благодаря

Answer 1

Отдельные массивы, вероятно, плохая идея здесь. Они группируют ваши данные по полям, когда почти всегда лучше группировать данные по записям. Вместо этого вы хотите создать единую коллекцию, заполненную классами определенного типа. Перейти на что-то вроде этого:

Public Class CustomerPrice 
    Public Property Name As String 
    Public Property Price As Decimal 
End Class 

Public Function ReadCustomerPrices(ByVal fileName As String) As List(Of CustomerPrice) 
    Dim result As New List(Of CustomerPrice)() 
    Using srReader As New StreamReader(fileName) 
     Dim line As String 
     While (line = srReader.ReadLine()) <> Nothing 
      Dim data() As String = line.Split(vbTab) 
      result.Add(new CustomerPrice() From {Name = data(0), Price = Decimal.Parse(data(1))}) 
     End While 
    End Using 
    Return result 
End Function 

Некоторые другие вещи, стоит отметить в этом коде:

• Применение метода блок будет гарантировать, что файл закрыт, даже если исключение
• Он почти никогда для проверки File.Exists(). Это расточительный код, потому что вы все еще должны иметь возможность обрабатывать исключения файлов io.
• При работе с деньгами вы почти всегда хотите использовать десятичный тип, а не двойной
• Для этого кода требуется Visual Studio 2010/.Net 4, и он был введен непосредственно в окно ответа и, вероятно, содержит ошибку, или даже базовую синтаксическую ошибку.