VB.NET如何通過OpenFileDialog打開一個文本文件到Array和ListBox中？

Question

我的代碼是：

Using dialog As OpenFileDialog = New OpenFileDialog 
      dialog.Filter = "Text Files (*.TXT;)|*.TXT|All files (*.*)|*.*" 
      If (dialog.ShowDialog = DialogResult.OK) Then 
      proxies.Items.AddRange(File.ReadAllLines(dialog.FileName)) 
      log.Text &= Environment.NewLine & "Proxies Loaded" 
     End If 
    End Using 

它加載這樣目前：

但我需要把它分成：

代理[0]和代理[1]
0是IP，1是端口。

我需要稍後在Web瀏覽器中使用它們。

我似乎無法找到一個方法來做到這一點，每當我試圖

proxies.split(":") 

它給我一個錯誤：

.split isn't a member of system.windows.forms.listbox 

Answer 1

我只是做了今天這個你可以像使用替換功能。唯一的區別是我讓它刪除了一行前綴。不過，你也可以這樣做後綴。試一試。

Dim lines() As String = TextBox1.Lines 
Dim textreplace As String = "TYPE THE STUFF YOU WANT CUT OFF IN HERE" 
Dim texttoreplace As String = "" 
Dim textline As String = lines(30)'The Line # you have it on. Remember the line 1 is line 0 
textline = textline.Replace(textreplace, texttoreplace) 
TextBox2.Text = textline 'Here the text is sent in 

你的案件：（只是做在你的名單「1.106.129.53:9064")(You可能必須有單獨的文本框來執行此第一個。）這分離的IP和端口，但離開港口。

Dim lines() As String = seperate_textbox_or_you_can_use_another_way_to_load_it.Lines 
Dim textreplace As String = "1.106.129.53:" 
Dim texttoreplace As String = "" 
Dim textline As String = lines(1)'The Line # you have it on. Remember the line 1 is line 0 
textline = textline.Replace(textreplace, texttoreplace) 
log.Text = textline 'Here the text is sent in 

Answer 2

proxies是列表框。請使用proxies.Items或者定義一個數組。

我覺得很難有一點了解你的問題，但這裏是把IP地址和端口的列表框的例子：

For Each address As String In File.ReadAllLines(dialog.FileName) 
    proxies.Items.AddRange(address.Split(":")) 
Next 

輸出：

項目1：1.160.129.53

項目2 ：9064

等

Answer 3

  For Each address As String In File.ReadAllLines(dialog.FileName) 
       proxies.Items.AddRange(address.Split(":")) 
       Dim ip As String = proxies.Items(0) 
       Dim port As String = proxies.Items(1) 
      Next 

我在找什麼。