Werte aus einer Config datei lesen

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Werte aus einer Config datei lesen

    Hallo,

    das ist mein erster Post hier.

    Ich bin relativ neu in VB, kann aber Grundlagen etc.

    Ich schreibe zurzeit ein kleines Programm, welches Chancen etc ausrechnen soll für das Spiel "World of Tanks". Dafür müsste ich eine Configdatei (.yml? oder .cfg?) erstellen. Diese soll Folgende Werte enthalten:

    Schaden, Durchschlagskraft, Panzerung und Schüsse/Minute

    Ich habe mir die Configdatei so vorgestellt:

    Quellcode

    1. IS3:
    2. Schaden[390]
    3. Durchschlagskraft[225]
    4. Leben[1500]
    5. Panzerung[220]
    6. Schüsse[4.5]
    7. Tiger II:
    8. Schaden[320]
    9. Durchschlagskraft[220]
    10. Leben[1500]
    11. Panzerung[180]
    12. Schüsse[6]


    Die Configdatei soll man nur per Hand, also mit Notepad++ oder so, geändert werden.

    Wie mache ich das nun?

    Ich wäre für jegliche Holfe dankbar!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lukas97“ () aus folgendem Grund: Dummheit

    OK...

    Im Namespace "System.IO" findest Du die File-Klasse. Diese stellt verschiedene Methoden bereit, um was mit Dateien anzustellen.

    Unter Anderem gibt es dort eine Funktion, die alle Zeilen aus einer Datei ausliest. Ich geb Dir mal den MSDN-Link:

    msdn.microsoft.com/de-de/library/system.io.file.aspx
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    OKEY,

    ich fasse mich mal etwas genauer (hätte ich auch früher tun sollen....).....

    Ich habe hier eine Textbox, da gebe ich beispielsweiße den Namen des Panzers ein, also "IS3".

    Dann soll er die Werte aus der Configdatei holen und in einem Label ausgegeben.

    Tut mir Leid, aber vom MSDN verstehe ich nicht viel, ich versuchs zwar mal, aber ich werd nur eines sagen, es wird nicht klappen.... trololololololol

    Ich tendiere ja eher zu mehreren Configdateien, also jede Nation eine.

    Also, Deutschland, Russland (Spiele ich :D), Frankreich, China, England (Großbritannien) und USA.

    Es wären also 6 Dateien, wenn dies überhaupt möglich ist.

    mein Tip:
    lese die Datei aus, speichere die einzelnen Zeilen in einem Array, dann starte "for each line as string in ZEILEN" schleife und dann frage ab ob line ":" beinhaltet, wenn ja ist es eine "Eigenschaftsgruppe" wenn die Zeile "[" behinaltet ist es ein wert in der Gruppe, den wert kannst du auslesen in dem du die Zeile bei "[" splittest und dann im wert 2(index: 1) von dem array "]" mit "" ersetzt ;)

    Hoffe es ist verständlich

    Gruß,
    Julian

    ok^^
    Du hast eine Datei. -> Die lädst du und splittest diese per Split(String, chr(13) & chr(10)) in Zeilen auf, diese Array nennen wir Lines.

    VB.NET-Quellcode

    1. Dim Lines = Split(My.Computer.FileSystem.ReadAllText("Datei", System.Text.Encoding.Default), chr(13) & chr(10))


    so, nun Gehst du Jede zeile ab ob sie einen bestimmten wert enthält:

    VB.NET-Quellcode

    1. Dim Gruppe as String = ""
    2. For Each Line as String in Lines
    3. If(Line.Contains(":")) Then
    4. Gruppe = Replace(Line, ":", "")
    5. End If
    6. If(Line.Contains("["))
    7. Dim Name = Split(Line, "[")(0)
    8. Dim Wert = Replace(Split(Line, "[")(1), "]", "")
    9. End If
    10. Next

    Jetzt hast du eine Schleife die Den Gruppen Namen, Den Wert und Den Namen der Einstellung Abruft;)

    Gruß,
    Julian

    Danke, aber noch 3 Sachen:

    1.

    Sieht irgendwie zeimlich easy aus Oo

    2.

    Fehler bei

    Dim
    Wert = Replace(Split(Line, "["), "]", "")
    Line wird blau unterstrichen und da steht irgendwas, dass das nicht mehr Supported wird. Ich mache das alles mit .NET Framework 3.5

    3.

    Wo muss ich die Configdatei nun hinmachen? Ist das nun eine .txt? Und wie mache ich das nun, dass wenn ich in einer Textbox IS3 schreibe, dass dan diese Daten ausgegeben werden?

    //Edit

    Habe das so:

    VB.NET-Quellcode

    1. Public Class Form3Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Russland.Show()Dim Lines = Split(My.Computer.FileSystem.ReadAllText("Datei", System.Text.Encoding.Default), Chr(13) & Chr(10))
    3. Dim Gruppe As String = ""For Each Line As String In Lines
    4. If (Lines.Contains(":")) ThenGruppe = Replace(Line, ":", "")
    5. End If
    6. If (Lines.Contains("[")) ThenDim Name = Split(Line, "[")(0)
    7. Dim Wert = Replace(Split(Lines, "["), "]", "")
    8. End If
    9. NextEnd Sub
    10. End Class

    So, ist zwar doof jetzt nen ganzen Quelltext zu posten aber ich konnte das besser nicht erklären -.-, habs aber Kommentiert:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Dim Tanks As New List(Of Tank)
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Dim Lines = Split(My.Computer.FileSystem.ReadAllText("tanks.cfg", System.Text.Encoding.Default), Chr(13) & Chr(10)) ' Lade Datei und teile in Zeilen auf
    8. Dim CurrentTank As Tank = Nothing ' Setze den Aktuellen Tank auf NOTHING
    10. For Each Line As String In Lines ' Frage Jede Zeile Ab
    11. If (Line.Contains(":")) Then ' Wenn die Zeile ein : beinhaltet
    12. If IsNothing(CurrentTank) = False Then ' Frage ab ob der Aktuelle Tank schon fest gelegt wurde
    13. Tanks.Add(CurrentTank) ' Falls Ja füge den Tank zu der Liste hinzu
    14. End If
    15. CurrentTank = New Tank(Replace(Line, ":", "")) ' erstelle einen Neuen Tank
    16. End If
    18. If (Line.Contains("[")) Then ' Wenn die Zeile [ beinhaltet
    19. Dim Name As String = Split(Line, "[")(0) ' Frage den Namen der Eigenschaft ab
    20. Dim Wert As String = Replace(Split(Line, "[")(1), "]", "") ' und den Wert
    21. CurrentTank.Values.Add(New TankValue(Name, Wert)) ' und füge anschließend die eigenschaft dem Tank hinzu
    22. End If
    23. Next ' nächste Zeile
    25. Tanks.Add(CurrentTank) ' Füge den Letzten Tank der Liste hinzu
    27. For Each _Tank As Tank In Tanks ' Frage jeden Tank in der Liste Tanks ab
    28. ListBox1.Items.Add(_Tank.Name) ' Füge der Listbox ein Item mit dem namen des Tanks hinzu
    29. For Each Eigenschaft As TankValue In _Tank.Values ' Frage jede Eigenschaft des Tanks ab
    30. ListBox1.Items.Add(" -" & Eigenschaft.Name & " -> " & Eigenschaft.Value) ' und füge der Listbox die Eigenschaft und den Wert Hinzu
    31. Next
    32. Next
    34. End Sub
    35. End Class
    37. Public Class Tank
    38. ' Tank Variablen
    39. Dim iValues As New List(Of TankValue) ' Liste mit allen Eigenschaften des Tanks
    40. Dim iName As String = "" ' Name des Tanks
    42. ' Neue Tank Sub
    43. Sub New(ByVal Name As String)
    44. iName = Name
    45. End Sub
    47. ' Eigenschaft Tankname
    48. Public Property Name As String
    49. Get
    50. Return iName
    51. End Get
    52. Set(ByVal value As String)
    53. iName = value
    54. End Set
    55. End Property
    57. ' Eigenschaft Tankeigenschaften
    58. Public Property Values As List(Of TankValue)
    59. Get
    60. Return iValues
    61. End Get
    62. Set(ByVal value As List(Of TankValue))
    63. iValues = value
    64. End Set
    65. End Property
    66. End Class
    68. Public Class TankValue
    70. ' Tankeigenschafts Variablen
    71. Dim iName As String = "" ' Name der Tankeigenschaft
    72. Dim iValue As String = "" ' Wert der Tankeigenschaft
    74. ' Neue Tankeigenschaft
    75. Sub New(ByVal Name As String, ByVal Value As String)
    76. iName = Name
    77. iValue = Value
    78. End Sub
    80. ' Name der Tankeigenschaft
    81. Public Property Name As String
    82. Get
    83. Return iName
    84. End Get
    85. Set(ByVal value As String)
    86. iName = value
    87. End Set
    88. End Property
    90. ' Wert der Tankeigenschaft
    91. Public Property Value As String
    92. Get
    93. Return iValue
    94. End Get
    95. Set(ByVal value As String)
    96. iValue = value
    97. End Set
    98. End Property
    100. End Class


    für den Code benötigst du eine Listbox

    Gruß,
    Julian

    Lukas97 schrieb:

    Ich tendiere ja eher zu mehreren Configdateien, also jede Nation eine.

    muß man das so verstehen, dass du die Dateien und das Format selbst definieren kannst?

    Da sollteste von diesem selbstgebastelten Format abstand nehmen, und dir ein typisiertes Dataset basteln. Da kannst du Nationen und Panzer und Atombomben anlegen wie du wolle.

    Deine Überlegungen stellen nämlich eine Datenmodellierung dar, und es scheint Nationen und Panzer zu geben, und du überlegst, wie du die Panzer den Nationen zuordnen kannst.
    Nicht wahr: für sowas ist typisiertes Dataset erfunden worden, und ist die exorbitant bessere Lösung, als viele Dateien anzulegen, das wirst du sehen, wenndedich drauf einläßt.

    Allerdings musste Datenmodellierung erlernen, aber das musste sowieso (du bist ja dabei, das Rad neu zu erfinden)

    gugge die relationale GrundIdee und DB-Programmierung ohne Datenbank

    Vielen dank schonmal für den Code.

    Habe das nun genauso abgetippt, aber es kommt 1 Fehler beim Starten:

    Quellcode

    1. c:\WINDOWS\Microsoft.NET\Framework\v3.5\Microsoft.VisualBasic.targets(134,9): error MSB3105: The item "obj\Release\Tool.Form1.resources" was specified more than once in the "Resources" parameter. Duplicate items are not supported by the "Resources" parameter.

    Ich rate mal:
    .NET Framework, falsche version?
    Die Config ist nicht da? (Wo(In welchen Ordner) muss die nun hin?)

    Alternative: Settings-Klasse anlegen, per JSON- oder XMLSerializer speichern und wieder abrufen.

    msdn.microsoft.com/en-us/libra…zation.xmlserializer.aspx
    msdn.microsoft.com/en-us/library/bb412179.aspx
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

Facebook
Telefonspende