Vb.net Visual Basic文档读取/添加到数组

我一直在尝试读取文档，然后将其添加到字符串中，但它似乎不起作用

这是我的密码：

Public Function docReader()

    Dim xRead As StreamReader
    Dim i = 0
    xRead = File.OpenText("C:\Users\tbalestra\Desktop\Tickers.txt")
    Do Until xRead.EndOfStream
        Dim line As String = xRead.ReadLine
        Dim sec() As String = line.Split("|")
        listQuotes(i) = sec(1)
        i = i + 1
    Loop

End Function

试试这个：

Public Function DocReader() As String()
    Dim listQuotes As New List(Of String)
    Dim xRead As New StreamReader("C:\Users\tbalestra\Desktop\Tickers.txt")

    Do Until xRead.EndOfStream
        Dim line As String = xRead.ReadLine
        Dim sec() As String = line.Split("|")
        If (sec.Length > 1) Then
            listQuotes.Add(sec(1))
        End If
    Loop
    Return listQuotes.ToArray()
End Function

---

如果有效，请接受它作为答案。我也很感激你。