对于每个循环字符串

Question

我从我的网站上获取文件内容：

    Dim client As WebClient = New WebClient()
    Dim text = client.DownloadString("http://myurl.com/raw.php")

以下text是：

Line
Another Line
Test1
Test2

现在，我如何遍历text变量，以使每一行都有一个文本？

我已经试过了：

    Dim str As String() = text.Split(":::")
    For Each line As String In str
        MsgBox(line)
    Next

而且我用结束了每一行:::，但是这种方法很难看，我希望有更好的解决方案？

Answer 1

Dim lines As String() = text.Split(Environment.NewLine)
For Each line As String In lines
    MsgBox(line)
Next

这可能不起作用，因为原始字符串中的换行符不同于Environment.Newline。如果该字符串来自基于Unix的源，则会发生这种情况。

一种替代方法可以是：

Dim reader = new StringReader(text)
While True
    Dim line = reader.ReadLine()
    If line is Nothing
        Exit While
    Else
        MsgBox(line)
    End If
End While