Заполнение поля со списком первым словом текстового файла

Question

Так что я чувствую себя довольно близко, но у меня также есть чувство, что я смешиваю StreamReader и ReadAllLines

....................................................................................

Опция Строгое Вкл.

Импорт System.IO

Публичный класс Form4

Dim file As System.IO.StreamWriter

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    file = My.Computer.FileSystem.OpenTextFileWriter("c:\devices.bat", False)
    file.WriteLine("@echo off")
    file.WriteLine("cd " & Form1.TextBox2.Text)
    file.WriteLine("adb devices > C:\devices.txt")
    file.Close()
    Shell("C:\devices.bat", AppWinStyle.Hide, True, 500)

    Dim output() = System.IO.File.ReadAllLines("C:\deviceinfo2.txt")
    Dim Devices As String = ""
    Dim line() As String = {}

    For X = 1 To output.Count = -1
        line = output(X).Split(New Char() {("     ")})
        Devices = line(0)
        ComboBox1.Items.Add(Devices)

    Next

    output.Close()
    output.Dispose()

End Sub

Конечный класс

........................................................................

То, что я пытаюсь сделать, это начать читать навторая строка devices.txt, а затем читать первое слово из каждой строки, пока текстовый файл не будет готов.

Это кажется достаточно простым, но, как я уже сказал, я думаю, что я смешиваю потоковый ридер с readalllines

Любая помощь приветствуется

Answer 1

Class Test
    Public Sub Main()
        Try
            ' Create an instance of StreamReader to read from a file.
            ' The using statement also closes the StreamReader.
            Using sr As New StreamReader("TestFile.txt")
                Dim line, firstWord As String
                Dim i as Integer = 0
                ' Read and display lines from the file until the end of
                ' the file is reached.
                Do
                    line = sr.ReadLine()
                    If Not (line Is Nothing) AndAlso i > 0 Then
                         firstWord = line.Split(" ")(i)
                        'do your logic
                    End If
                    i += 1
                Loop Until line Is Nothing
            End Using
        Catch e As Exception
            ' Let the user know what went wrong.
        End Try
    End Sub
End Class

Получил это от MSDN и изменил его. Это должно скомпилироваться, но я не проверял это. Это будет циклически проходить по строкам 1 на 1, пропускать первую строку и получать первое слово каждой строки после. Надеюсь это поможет.