Question

我需要帮助创建一个打开文件的函数，并且对于每个新行，在PHP中创建类似explode("\n", $var)的变量。我试过了

Dim words As String = GetFileContents(OpenFileDialog1.FileName)
For Each word As String In words
    Dim doHash As String = MD5(word)
    If String.Equals(doHash, hash.Text) Then
        Label2.Text = "derp"
    Else
        Label2.Text = "lol"
    End If
Next

但它使每个字母成为一个新变量。

Answer 1

您想使用System.IO.File.ReadLines(OpenFileDialog1.FileName)。这将导致For Each循环分别获取每一行。

具体做法是：

For Each word As String In File.ReadLines(OpenFileDialog1.FileName)
    Dim doHash As String = MD5(word)
    If String.Equals(doHash, hash.Text) Then
        Label2.Text = "derp"
    Else
        Label2.Text = "lol"
    End If
Next

我注意到你的php示例肯定是在换行符上拆分，但你的循环变量叫做word。你的文件每行有一个单词吗？没关系，但我想仔细检查你是否可以通过循环获取每个行，而不是每个单词（如果每行有多个单词））。

每个新行的VB.NET

1 个答案: