.ini einträge in Listbox

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    .ini einträge in Listbox

    Hallo,
    ich will die einträge aus einer .ini in einer list box anzeigen lassen aber ohne den kram Wie z.B name = hans also das name = willl ich halt nicht haben sondern nur den namen und auch die region wo das gespeichert wird soll nicht angezeigt werden bitte um hilfe

    VB.NET-Quellcode

    1. Public Class IniParser
    2. Public Property Filename() As String
    4. Private Entries_ As List(Of IniEntry)
    6. Public Sub New(ByVal _Filename As String)
    7. Me.Filename = _Filename
    8. Me.Entries_ = New List(Of IniEntry)
    9. End Sub
    11. Public Sub Parse()
    12. Dim Section As String = "default"
    13. For Each Line As String In System.IO.File.ReadAllLines(Me.Filename)
    14. If Line.StartsWith("[") And Line.EndsWith("]")
    15. Section = Line.Substring(1, Line.Length - 2)
    16. Continue For
    17. End If
    18. If Not Line.Contains("=") Then Continue For
    19. Dim Splitted() As String = Line.Split("="c)
    20. Dim Key As String = Splitted(0)
    21. Dim ValueArray() As String
    22. Array.Copy(Splitted, 1, ValueArray, 0, Splitted.Length - 1)
    23. Dim Value As String = String.Join("=", ValueArray)
    24. Dim NewEntry As New IniEntry(Section, Key, Value)
    25. Me.Entries.Add(NewEntry)
    26. Next
    27. End Sub
    29. Public Function GetValue(ByVal Section As String, ByVal Key As String) As String
    30. For Each Entry As IniEntry In Me.Entries
    31. If Entry.Section = Section And Entry.Key = Key Then Return Entry.Value
    32. Next
    33. Return Nothing
    34. End Function
    36. Public Function GetEntries() As List(Of IniEntry)
    37. Return Me.Entries
    38. End Function
    39. End Class
    41. Public Class IniEntry
    42. Public Property Section() As String
    43. Public Property Key() As String
    44. Public Property Value() As String
    46. Public Sub New(ByVal Section_ As String, ByVal Key_ As String, ByVal Value_ As String)
    47. Section = Section_
    48. Key = Key_
    49. Value = Value_
    50. End Sub
    51. End Class
    Hab dir mal eine kleine Klasse dafür geschrieben.
    Mag nicht 100% performant sein, sollte aber das tun, was sie soll.
    Hier ein Anwendungsbeispiel:

    VB.NET-Quellcode

    1. Dim Datei As String = "datei.ini" ' Deine INI-Datei
    2. Dim Parser As New IniParser(Datei)
    3. Parser.Parse()
    4. Console.WriteLine(Parser.GetValue("section", "key", "value"))
    Viel Spaß damit.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „haiyyu“ ()

    Es gibt doch meines Wissens in der Kernel32.dll funktionen wie WritePrivateProfilString oder GetPrivateProfilString oder so, wenn du die verwendest sollte es eigentlich auch funktionieren..

    Edit:
    dotnet-snippets.de/dns/klasse-…n-ini-dateien-SID938.aspx
    hier ist ein Anwendungsbeispiel.
    lg.

    LucaWelker

    Zeig mal her, wie du die Klasse eingebaut hast.
    Im Übrigen habe ich den obigen Beitrag ein wenig editiert, so dass er jetzt auch eine Methode besitzt, die dir eine Liste mit allen Einträgen zurückgibt.

    Du hast offensichtlich keine Ahnung von objektorientierter Programmierung.
    Ich würde dir mal ans Herz legen, die Grundlagen zu lernen.
    Ohne die wirst du nicht weit kommen.
    Da kann ich dir noch so viel Code geben...

    Das auslesen von Einträgen aus einer DAT Datei ist einfacher:

    Erst mal die ListBox_Read Eigenschaft setzen

    VB.NET-Quellcode

    1. Public Sub ListBox_Read(ByVal ListBox As ListBox, _
    2. ByVal sFile As String)
    4. ' Inhalt einer ListBox speichern
    5. Dim oStream As IO.StreamReader
    6. Dim sLine As String
    8. ' ListBox löschen
    9. ListBox.Items.Clear()
    11. ' Existsiert die Datei?
    12. Dim oFile As New IO.FileInfo(sFile)
    14. If oFile.Exists() = True Then
    15. oStream = New IO.StreamReader(sFile)
    16. ' Datei zeilenweise auslesen
    17. Do
    18. sLine = oStream.ReadLine()
    19. If IsNothing(sLine) Then Exit Do
    20. ListBox.Items.Add(sLine)
    21. Loop
    22. oStream.Close()
    23. End If
    27. End Sub



    Dann den Read Befehl für die Ausgewählte ListBox in Form.Load oder etc. setzen

    VB.NET-Quellcode

    1. Try
    2. Dim sFile As String
    3. sFile = Application.StartupPath & "\log.dat"
    4. ListBox_Read(ListBox1, sFile)
    5. Catch ex as Exception
    6. End Try



    Ich hoffe das hilft :)

    Mit freundlichen Grüßen,
    Aector

    Deine Datei könnte auch auf .txt enden, das ist relativ egal du ließt ja einfach nur Zeilen weiße ein. Aber was machst du wenn du einen bestimmten Eintrag suchst ;) und dafür nicht die gesamte Datei einlesen willst.
    lg.

    LucaWelker

    Nicht getestet, aber Du könntest mal so versuchen:

    VB.NET-Quellcode

    1. Private Sub ReadIniToListBox(iniFile As String, lstbox As ListBox)
    2. lstbox.Items.Clear()
    4. If Not IO.File.Exists(iniFile) Then
    5. MessageBox.Show("Ini-Datei nicht gefunden!")
    6. Return
    7. End If
    9. For Each zeile As String In IO.File.ReadAllLines(iniFile)
    10. If zeile.Trim Like "[*]" Then ' Bereich
    11. lstbox.Items.Add(zeile)
    12. Else
    13. Dim eintrag() As String = zeile.Split("="c)
    14. If eintrag.Length = 2 Then lstbox.Items.Add(eintrag(1))
    15. End If
    16. Next
    17. End Sub

    Du könntest auch noch RegEx verwenden um die Strings zu filtern.

    Oder einfach mit der Klasse String an sich, die ja einige Funktionen bereits mitliefert (.Contains, .IndexOf, SubString.......)

    Und vorher hald einfach mit nem StreamReader zeilenweise lesen.

    Nazas schrieb:

    Hallo,
    ich will die einträge aus einer .ini in einer list box anzeigen lassen aber ohne den kram Wie z.B name = hans also das name = willl ich halt nicht haben sondern nur den namen und auch die region wo das gespeichert wird soll nicht angezeigt werden bitte um hilfe

    VB.NET-Quellcode

    1. Dim arr() As String = IO.File.ReadAllLines(PfadZurIni)
    2. For Each item As String In arr
    3. If item.Contains("=") Then
    4. Dim param() As String = item.Split("="c)
    5. ListBox1.Items.Add(param(1))
    6. End If
    7. Next

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Unwesen“ ()

Facebook
Telefonspende