Question

我一直在尝试阅读文档，然后将其添加到字符串中，但它似乎无法正常工作。

这是我的代码：

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

Answer 1

试试这个：

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

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

1 个答案: