VB.NET設定（インポート）

Question

私は以下のことをしたい：彼らは、インポートボタンをクリックすると、複数のファイルを開いて（完了）し、設定として保存します。その後、フォームのロード時にそれらのファイルを開いて、再インポートする必要はありません。

私は2ファイル名と場所を含むフォームのロードとたsettings.txtでこの

For Each wl As String In File.ReadAllLines("settings.txt") 
     OpenFileDialog1.FileName = (wl) 
    Next 

を試してみました。最初のファイルではなく2番目のファイルを開くだけです。どのように私はその設定ファイル内のすべてのファイルを開くことができますか？また、私はそれはおそらく最も簡単にちょうど抽象的なあなたのハッシュクラッカー方法アウトだReadLines

Answer 1

を縛ら：

Function hashType(ByVal filename As String) As Boolean 
    If algo.Text = "MD5" Then 
     Dim firstWord = (From word In IO.File.ReadLines(filename) 
     Where String.Equals(MD5(word), hash.Text)).FirstOrDefault() 
     If firstWord IsNot Nothing Then 
      Label2.Text = firstWord 
      Return True 
     Else 
      Label2.Text = "Hash Could Not Be Cracked" 
     End If 
    ElseIf algo.Text = "SHA1" Then 
     Dim firstWord = (From word In IO.File.ReadLines(filename) 
     Where String.Equals(SHA1(word), hash.Text)).FirstOrDefault() 
     If firstWord IsNot Nothing Then 
      Label2.Text = firstWord 
      Return True 
     Else 
      Label2.Text = "Hash Could Not Be Cracked" 
     End If 
    End If 

    Return False 
End Function 

Private Sub Thief3Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button1.Click 
    OpenFileDialog1.Filter = "Dictionaries (*.dic)|*.dic" 
    OpenFileDialog1.FilterIndex = 1 
    OpenFileDialog1.RestoreDirectory = True 
    OpenFileDialog1.Multiselect = True 
    OpenFileDialog1.ShowDialog() 
End Sub 

Private Sub Thief3TopButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3TopButton1.Click 
    Me.Close() 
End Sub 

Private Sub Thief3Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button2.Click 
    hashType(OpenFileDialog1.FileName) 
End Sub 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    For Each wl As String In File.ReadLines("settings.txt") 
     If hashType(wl) Then Exit For 
    Next 
End Sub 

Voil＆agrave ;.私はおそらくLoadイベント以外のどこかでこれをやりたがっていると思いますが、フォームが最初に作成されるときにはhash.Textには何も表示されません。