コンボボックスのテキストファイルから文字列を取得する、

Question

ここに私のコードです： 私はコンボボックスやラベルにTXTファイルからいくつかの価値を持っているようにしていますが、私はコンボボックスが簡単だと感じています。ここ

は私のコードです：

いくつかのconfig.txtが唯一の他の5-6

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim IDinFile As String 
    Dim ID As String 

    If IO.File.Exists("config.txt") Then 

     Using StreamReader As New IO.StreamReader("config.txt") 
      Do 
       IDinFile = StreamReader.ReadLine 
       If (IDinFile.IndexOf("7656")) <> -1 Then 
        ID = IDinFile.Substring(2) 
        ID = ID.Trim().Remove(ID.Length - 1) 
        ComboBox1.Items.Add(ID) 
        Exit Do 
       End If 
      Loop Until IDinFile Is Nothing 
     End Using 
    End If 
End Sub 

ながら、ここでの.png内のファイル1つの値を持つことになりますので、予めご了承ください。後 https://i.stack.imgur.com/iYaqP.png

Answer 1

コードを書き直しました。問題が間違って配置されましたExit Do。また、ループの最後ではなくループに入る前に行をチェックすることをお勧めします。 JSONも無効なJSONだ

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim IDinFile As String 
    Dim ID As String 
    Const FILENAME As String = "config.txt" 

    If IO.File.Exists(FILENAME) Then 
     Using StreamReader As New IO.StreamReader(FILENAME) 
      Do While StreamReader.Peek() >= 0 
       IDinFile = StreamReader.ReadLine.Trim() 
       If (IDinFile.IndexOf("7656")) <> -1 Then 
        ID = IDinFile.Substring(1, IDinFile.Length - 2) 
        ComboBox1.Items.Add(ID) 
       End If 
      Loop 
     End Using 
    End If 

End Sub 

Answer 2

をExit Doステートメントを持つコンボボックスに最初のアイテムを追加します。それ以上の行をチェックしてコンボボックスに追加することはもうありません。

この文を削除する必要があります。

Answer 3

これを試してください。値がtxtファイルの行ごとに整理されていれば動作します。

Dim srd as New StreamReader("config.txt") 
    If io.file.exists("config.txt") then 
    Dim str() = srd.ReadToEnd.split(environment.newline) 
    For i = 0 to str.count-1 
    Combobox.item.add(str(i)) 
    Next 
    srd.close