.txt 파일에서 특정 행을 읽는 방법?

Question

나는 재생 목록을 만들고 거기에서 음악을 재생할 수있는 프로그램을 만들고 있습니다. 다음 코드와 함께 목록 상자와 단추가 있습니다.

Dim MusicFiles() As String 
Public ListOfMusicFiles As New Dictionary(Of String, String) 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
     MusicFiles = OpenFileDialog1.FileNames 
    End If 
    Try 
     For Each Item In MusicFiles 
      Dim ItemSplit() = Item.Split("\"c) 
      Dim ItemLast As String = ItemSplit(ItemSplit.Count - 1) 
      ItemLast = ItemLast.Remove(ItemLast.Count - 4, 4) 
      ListOfMusicFiles.Add(ItemLast, Item) 
     Next 

    Catch ex As Exception 

    End Try 
End Sub 

위의 코드는 원하는 음악 파일의 이름을 넣지 만 어딘지에 저장해야합니다. .txt 파일을 만들고 첫 번째 줄에 음악 파일 이름을, 두 번째 줄에 위치를 지정해야합니다. 그래서, 난 두 줄을 읽고

listofmusicfiles 

(내가 만든 사전)에 추가

후, 나는 목록 상자로 파일을 가져올 수 있습니다해야합니다. 도움이 될 것입니다. 이 응용 프로그램은 당신이를, 일을 완전히 다른 방식으로 또는 쉽게 또는 더 효율적인 방법이 있다면, 그래서 그 것이다, 개발 과정에서 여전히 How to read specific lines from a .txt file?에 응답 큰 :)

Answer 1

:

#Region " Read TextFile Line " 

' [ Read TextFile Line Function ] 
' 
' // By Elektro H@cker 
' 
' Examples : 
' 
' MsgBox(Read_TextFile_Line("C:\File.txt", 1)) 
' Dim str As String = Read_TextFile_Line("C:\File.txt", 3) 

Private Function Read_TextFile_Line(ByVal File As String, ByVal Line_Number As Long) As String 

    Dim Lines() As String = {String.Empty} 
    Dim Line_Length As Long = 0 

    Try 
     Lines = IO.File.ReadAllLines(File) 
     Line_Length = Lines.LongLength - 1 
     Return Lines(Line_Number - 1) 

    Catch ex As IO.FileNotFoundException 
     MessageBox.Show(String.Format("File not found: ""{0}""", _ 
             File), _ 
         Nothing, _ 
         MessageBoxButtons.OK, _ 
         MessageBoxIcon.Error) 

    Catch ex As IndexOutOfRangeException 
     MessageBox.Show(String.Format("Attempted to read line {0}, but ""{1}"" has {2} lines.", _ 
             Line_Number, _ 
             File, _ 
             Line_Length + 1), _ 
         Nothing, _ 
         MessageBoxButtons.OK, _ 
         MessageBoxIcon.Error) 

    Catch ex As Exception 
     Throw New Exception(String.Format("{0}: {1}", _ 
              ex.Message, _ 
              ex.StackTrace)) 

    Finally 
     Lines = Nothing 
     Line_Length = Nothing 

    End Try 

    Return Nothing 

End Function 

#End Region 

Answer 2

마지막 질문에 답하기 위해 "그렇게하는 방법이 다른 경우가 많거나 더 쉽고 효율적인 방법을 사용하면 효과가 있습니다."라고 말하면 데이터 집합을 사용하십시오.

'You only need to define your data once 
    Dim ds As New DataSet 'I like saving datasets to file as opposed to datatables. Plus you get the advantage of have muliple tables if you need. 
    Dim dt As New DataTable 'The table will hold you data, you can have multiple tables for storing different types of data 
    'Add what ever columns you what to the table 
    dt.Columns.Add(New DataColumn("FileName", GetType(String))) 
    dt.Columns.Add(New DataColumn("FileLocation", GetType(String))) 
    'Add the table to the dataset 
    ds.Tables.Add(dt) 

    'Now you can add records to your table 
    Dim DR As DataRow 
    DR = dt.NewRow 'This builds a new record with the schema from your table, but you still have to fill in the data 
    'fill in the data columns you wanted 
    DR("FileName") = "..Your file name here.." 
    DR("FileLocation") = "..Your location here.." 
    'Now add the new row to your table 
    dt.Rows.Add(DR) 


    'Then, whenever you want, you can save to your HD like this: 
    ds.WriteXml("Your File Name", XmlWriteMode.WriteSchema) 'XmlWriteMode.WriteSchema IS IMPORTANT 

    'And can can read from the HD like this 
    ds.ReadXml("Your File Name")