Simple Textdateimanager-Klasse

    • VB.NET

      Simple Textdateimanager-Klasse

      Hey.

      Hier eine simple Klasse mit der man bestimmte Zeilen aus Dateien entnehmen, und ändern kann.
      Ich persönlich benutze sie ganz gerne als Manager für Configdateien.

      Klasse:

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class ConfigManager
      5. #Region "ZeilenLeser"
      6. Public Zeileninhalt As String
      7. Public Function ReadLine(ByVal File As String, ByVal Zeile As String)
      9. Try
      10. Dim Textfile As TextReader = New StreamReader(File)
      11. Dim cnt As Integer = 0
      12. Do Until cnt = Zeile
      13. Textfile.ReadLine()
      14. cnt += 1
      15. Loop
      16. Zeileninhalt = Textfile.ReadLine()
      17. Textfile.Close()
      18. Catch
      19. End Try
      20. End Function
      22. 'USAGE
      23. ' Dim Reader As New ConfigManager
      24. ' Reader.ReadLine("Datei.txt", "1")
      25. ' MsgBox(Reader.Zeileninhalt)
      27. #End Region
      29. #Region "Zeilensetzer"
      31. Public Sub ChangeLine(ByVal DateiPfad As String, ByVal line__1 As UInteger, ByVal newvalue As String)
      32. Try
      33. Dim str As New StreamReader(DateiPfad)
      34. Dim lines As New List(Of String)()
      35. While Not str.EndOfStream
      36. lines.Add(str.ReadLine())
      37. End While
      38. str.Close()
      40. If lines.Count > line__1 Then
      41. lines(CInt(line__1) - 1) = newvalue
      42. End If
      43. Dim strw As New StreamWriter(DateiPfad)
      44. For Each Line__2 As String In lines
      45. strw.WriteLine(Line__2)
      46. Next
      47. strw.Flush()
      48. strw.Close()
      49. Catch
      50. End Try
      51. End Sub
      53. 'USAGE
      54. ' Dim Writer As New ConfigManager
      55. ' ConfigManager.ChangeLine("Datei.txt", Zeile, NeuerInhalt)
      56. #End Region
      57. End Class



      Wie man die 2 Funktionen benutzt, steht drunter :)
      Spart viel Code und Arbeit.
      Ist nichts besonderes aber nützlich finde ich.

      Mfg. René

    Facebook