.ini Datei auslesen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von klose010.

    .ini Datei auslesen

    Ich habe eine ini Datei deren Eigenschaften und Werte immer gleich sind. Lediglich die Attribute sind immer unterschiedlich. Jetzt möchte ich aber nur die Attribute auslesen und diese in den textboxen bzw Comboboxen meine Form bringen. Wie kann ich das am besten Realisieren? Und die Attribute sollen dann im Programm veränderbar sein und man soll es dann Speichern könnne. Tipps und Anregungen erwünscht :D

    Hier so mein ich das :) :
    [Eigenschaft]
    Wert = Attribut

    MfG

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

    VB.NET-Quellcode

    1. Dim file_stream As System.IO.StreamReader = New System.IO.StreamReader("C:\Datei.ini")
    3. Dim inhalt As String = file_stream.ReadToEnd()
    5. Dim anfang_des_attributs As Integer = InStr(inhalt, "Wert ") + 7
    7. Dim ende_des_werts As Integer = InStr(anfang_des_attributs, inhalt, vbNewLine)
    9. Dim länge_des_werts As Integer = ende_des_werts - anfang_des_attributs
    11. Dim Wert As String = Mid(inhalt, anfang_des_attributs, länge_des_werts)
    13. MsgBox(Wert)


    Dieser Code besit sich jetzt direkt auf dein Beispiel also in meiner Testdatei stand genau das was du oben gepostet hattest.

    Anmerkung: + 7 musst du immer dem Wert anpassen. Wenn da jetzt nicht Wert sonder Farbe steht müsste es +8 heißen z.B.

    hi,

    ich hab das bei mir so gelöst:

    Quellcode

    1. Module ini
    3. Public Declare Ansi Function GetPrivateProfileString _
    4. Lib "kernel32.dll" Alias "GetPrivateProfileStringA" _
    5. (ByVal lpApplicationName As String, _
    6. ByVal lpKeyName As String, ByVal lpDefault As String, _
    7. ByVal lpReturnedString As String, _
    8. ByVal nSize As Integer, ByVal lpFileName As String) _
    9. As Integer
    10. Public Declare Ansi Function WritePrivateProfileString _
    11. Lib "kernel32.dll" Alias "WritePrivateProfileStringA" _
    12. (ByVal lpApplicationName As String, _
    13. ByVal lpKeyName As String, ByVal lpString As String, _
    14. ByVal lpFileName As String) As Integer
    18. Public Function GetIniSetting(ByVal strKey As String, Optional ByVal strSection As String = "settings") As String
    19. Dim strValue As String
    20. Dim intPos As Integer
    21. On Error GoTo ErrTrap
    22. 'exe pfad ermitteln
    23. Dim sAppPath As String
    24. sAppPath = Application.StartupPath
    25. strValue = Space(1024)
    26. GetPrivateProfileString(strSection, strKey, "NOT_FOUND", strValue, 1024, sAppPath & "\clientadmintool.ini")
    27. Do While InStrRev(strValue, " ") = Len(strValue)
    28. strValue = Mid(strValue, 1, Len(strValue) - 1)
    29. Loop
    30. ' to remove a special chr in the last place
    31. strValue = Mid(strValue, 1, Len(strValue) - 1)
    32. GetIniSetting = strValue
    33. ErrTrap:
    34. If Err.Number <> 0 Then
    35. Err.Raise(Err.Number, , "Error form Fucntions.GetIniSettings " & Err.Description)
    36. End If
    37. End Function
    39. Public Sub SetIniSettings(ByVal strKey As String, ByVal strValue As String, Optional ByVal strSection As String = "settings")
    40. Dim intPos As Integer
    41. On Error GoTo ErrTrap
    42. Dim sAppPath As String
    43. sAppPath = Application.StartupPath
    44. WritePrivateProfileString(strSection, strKey, strValue, sAppPath & "\clientadmintool.ini")
    45. ErrTrap:
    46. If Err.Number <> 0 Then Err.Raise(Err.Number, , "Error form Functions.SetIniSettings " & Err.Description)
    47. End Sub
    49. End Module


    und so rufst du die funktionen auf:

    GetIniSetting("key", "kategorie")

    SetIniSettings("key","wert", "kategoriet")

    Flipez schrieb:

    Und wenn ich jetzt den nächsten Wert haben möchte muss ich die Zahl 7 verändern?


    Dort

    VB.NET-Quellcode

    1. Dim anfang_des_attributs As Integer = InStr(inhalt, "Wert ") + 7


    Musst du "Wert " verändern, und zwar so wie das nächste feld heißt. Die 7 musst du dann anpassen, wenn die Länge des Feldnamen sich verändert. Immer so viele buchstaben wie der Feldname ist + 3 rechnen.

Facebook
Telefonspende