1

我需要帮助创建一个打开文件的函数，并为每一行创建一个变量，如explode("\n", $var)PHP。我试过了

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

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

4

1 回答 1

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. 你的文件每行有一个单词吗？没关系，但我想仔细检查你是否可以接受循环获取每一行，而不是每个单词（如果每行有多个单词）。

于 2012-04-26T17:53:43.253 回答