將文件添加到在vb.net/VB2008一個列表框

Question

你好，我存儲在一個文件notpad.txt和proxys IM試圖搶在notpad所有proxys，並把它們放到ListBox1中

我使用

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    Using Ofd As New OpenFileDialog 
     Ofd.Filter = "All files (*.*)|*.*" 
     If Ofd.ShowDialog = 1 Then ListBox1.Items.AddRange(IO.File.ReadAllLines(Ofd.FileName)) 
    End Using 
End Sub 

我點擊的按鈕，它讓我選擇一個文件，但不導入的東西在文件中ListBox1的

請幫

Answer 1

我測試你的代碼，它爲我工作，所以我assum問題在於文件的格式。文件是如何創建的？你能提供一個鏈接，讓我可以看看嗎？

有一點要注意，你應該使用DialogResult Enumeration而不是幻數1 OK結果，以提高代碼的可讀性和維護。

If Ofd.ShowDialog = DialogResult.OK Then ListBox1.Items.AddRange(IO.File.ReadAllLines(Ofd.FileName)) 

Answer 2

嘗試這個例子中添加它，如果你點擊OK按鈕

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    Using Ofd As New OpenFileDialog 
     Ofd.Filter = "All files (*.*)|*.*" 

     If Ofd.ShowDialog = 1 Then 

      'Pass the file path and file name to the StreamReader constructor 
      Dim sr As New StreamReader(Ofd.FileName) 
      Dim line As String = String.Empty 
      Try 
       'Read the first line of text 
       line = sr.ReadLine() 
       'Continue to read until you reach end of file 
       While line IsNot Nothing 
        Me.listBox1.Items.Add(line) 
        'Read the next line 
        line = sr.ReadLine() 
       End While 

       'close the file 
       sr.Close() 
      Catch e As Exception 
       MessageBox.Show(e.Message.ToString()) 
      Finally 
       'close the file 
       sr.Close() 
      End Try 
     End If 
    End Using 
End Sub 

問候