Bestimmte zeilen aus INI Datei

  • VB.NET
  • .NET (FX) 4.0

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Bestimmte zeilen aus INI Datei

    Hallo Zusammen

    ich bin gerade am verzweifeln.

    ich habe eine INI Datei in dieser art

    [section1]
    maeh1=a|b|d

    [section2]
    wert1=a|b|d
    wert2=a|b|d
    wert3=a|b|d
    wert4=a|b|d

    [section3]
    blub1=a|b|d

    jetzt möchte ich jeweils die letzten 3 werte aus der section2 auslesen. Die Section kann mehr oder weniger einträge enthalten.



    hab es mit Split probiert bisher, ist aber denke ich mal der falsche ansatz =(

    wer kann Helfen und Tipps geben?

    Danke schon mal

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

    paq schrieb:

    hab es mit Split probiert
    N bisken wenig Info. Daher von meiner Seite ein paar Stichpunkte:
    • mit IO.File.ReadAllLines alle Zeilen in ein Array oder eine List(Of String) einlesen
    • alle Zeilen durchgehen, bis Du zur Zeile "[section2]" kommst
    • danach bis zur zur nächsten Leerzeile alle Zeilen in eine neue List(Of String) einlesen
    • dann hast Du Deine Daten aus Sektion 31 (ach nee, das war was anderes) section2 und dann damit machen, was Du willst
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @paq Fang an mit

    VB.NET-Quellcode

    1. <DllImport("kernel32.dll", SetLastError:=True)> _
    2. Private Shared Function GetPrivateProfileSection(ByVal lpAppName As String, _
    3. ByVal lpReturnedString As IntPtr, _
    4. ByVal nSize As Integer, _
    5. ByVal lpFileName As String) As Integer
    Frag mal Frau Google nach Beispielen dafür.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mach mal eine google suche nach site:pinvoke.net GetPrivateProfileSection.

    Auf dieser Seite findest du so einige WinApi Funktionen mit .net Deklaration, sehr oft ist auch ein Beispiel dabei.
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    @paq hast dir den Ansatz von @VaporiZed mal angeschaut? Das wäre ne recht simple Lösung.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Die Items in der Auflistung lassen sich per Index ansprechen.

    Dim i as Integer = 1234
    Dim lst as New List( Of String)
    Dim s As String = lst(i)
    Der Index ist Nullbasierend
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Jast du denn dein Problem nun lösen können? Falls ja, lass ins doch daran Teil haben. Jemand der irgendwann ein ähnliches Problem hat wird sich bestimmt freuen hier eine Lösung zu finden.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Ich habe mir das jetzt auch mal angetan, @RodFromGermany dabei bin ich auf diese Funktionen gestossen, die sind hier auch ganz nützlich.
    GetPrivateProfileString
    GetPrivateProfileInt

    Immerhin wollte der TE ja die Werte, nicht die KeyNames + Wert. <Edit>oder doch die Zeile? nicht ganz eindeutig.</Edit>

    Hier das was ich erarbeitet hab, die ini datei liegt neben der exe, da ich einen Pfad relativ angebe.
    "app.ini"

    [section1]
    maeh1=a|b|d

    [section2]
    wert1=a|b|d
    wert2=a|b|d
    wert3=a|b|d
    wert4=1

    [section3]
    blub1=a|b|d

    "Code"

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Public Class Form1
    6. <DllImport("kernel32.dll", SetLastError:=True)>
    7. Private Shared Function GetPrivateProfileSection(ByVal lpAppName As String, ByVal lpReturnedString As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    8. End Function
    10. <DllImport("kernel32.dll", SetLastError:=True)>
    11. Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    12. End Function
    14. <DllImport("kernel32.dll", SetLastError:=True)>
    15. Public Shared Function GetPrivateProfileInt(ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
    16. End Function
    18. <DllImport("kernel32.dll")>
    19. Public Shared Function GetLastError() As UInteger
    20. End Function
    22. Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
    23. A()
    24. B()
    25. C()
    26. End Sub
    28. Sub A()
    29. Dim strPointer As IntPtr = Marshal.StringToHGlobalAnsi(New String(Nothing, 1024))
    30. Dim length As Integer = GetPrivateProfileSection("section2", strPointer, 1024, ".\app.ini")
    31. Dim buffer As String = Marshal.PtrToStringAnsi(strPointer, length)
    32. Marshal.FreeHGlobal(strPointer)
    33. Dim sb As New StringBuilder(1024)
    34. If length = 0 Then
    35. MessageBox.Show(GetLastError.ToString())
    36. Else
    37. For i As Integer = 0 To length - 1
    38. If buffer(i) = Nothing Then
    39. MessageBox.Show(sb.ToString())
    40. sb = New StringBuilder(1024)
    41. Else
    42. sb.Append(buffer(i))
    43. End If
    44. Next
    45. End If
    46. End Sub
    48. Sub B()
    49. Dim sb = New StringBuilder(1024)
    50. Dim length As Integer = GetPrivateProfileString("section3", "blub1", "", sb, sb.Capacity, ".\app.ini")
    51. If length = 0 Then
    52. MessageBox.Show(GetLastError.ToString())
    53. Else
    55. MessageBox.Show(sb.ToString())
    56. End If
    57. End Sub
    59. Sub C()
    60. Dim wert4 As Integer = GetPrivateProfileInt("section2", "wert4", 0, ".\app.ini")
    61. MessageBox.Show(wert4.ToString())
    62. End Sub
    65. End Class


    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „NoIde“ ()

    NoIde schrieb:

    GetPrivateProfileString
    GetPrivateProfileInt
    Die Kenntnis dieser Funktionen habe ich vorausgesetzt. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende