我一直在尝试阅读文档,然后将其添加到字符串中,但它似乎无法正常工作。
这是我的代码:
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
答案 0 :(得分:0)
试试这个:
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