INI-Library

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

      INI-Library

      Hier mal eine .NET-Lösung zum Arbeiten mit INI-Dateien, ohne die WinAPI.

      INI-LIB:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Ini
      2. Public Delegate Function ProcessLine(ByVal input As String, ByVal section As String) As KeyValuePair(Of String, String)
      3. Public Delegate Function WriteLine(ByVal input As KeyValuePair(Of String, String), ByVal section As String) As String
      5. Public Shared Function DefaultProcessLine(ByVal input As String, ByVal section As String) As KeyValuePair(Of String, String)
      6. Dim tmp As String() = input.Split({"="c}, 2, StringSplitOptions.RemoveEmptyEntries)
      7. If tmp.Length > 1 Then
      8. Return New KeyValuePair(Of String, String)(tmp(0), tmp(1))
      9. Else
      10. Return New KeyValuePair(Of String, String)(tmp(0), "")
      11. End If
      12. End Function
      14. Public Shared Function DefaultWriteLine(ByVal input As KeyValuePair(Of String, String), ByVal section As String) As String
      15. Return String.Format("{0}={1}", input.Key, input.Value)
      16. End Function
      18. Private config As New Dictionary(Of String, Dictionary(Of String, String))
      19. Private _CurrentSection As String = String.Empty
      20. Public ReadOnly Property CurrentSection As String
      21. Get
      22. Return _CurrentSection
      23. End Get
      24. End Property
      25. Public Property ErrorLevel As eErrorLevel = eErrorLevel.none
      26. Public Function GetSections() As List(Of String)
      27. Return config.Keys.ToList
      28. End Function
      29. Public Function GetKeysFromSection() As List(Of String)
      30. If Not String.IsNullOrWhiteSpace(_CurrentSection) Then
      31. If config.Keys.Contains(_CurrentSection, comp) Then
      32. Return config(comp.LastResult).Keys.ToList()
      33. Else
      34. Return New List(Of String)
      35. End If
      36. Else
      37. Throw New Exception("No section loaded!")
      38. End If
      39. End Function
      40. Public Function GetKeys(ByVal SectionName As String) As List(Of String)
      41. Dim tmp As String = _CurrentSection
      42. Dim retval As New List(Of String)
      43. Try
      44. _CurrentSection = SectionName
      45. retval = GetKeysFromSection()
      46. Catch ex As Exception
      47. Throw ex
      48. Finally
      49. _CurrentSection = tmp
      50. End Try
      51. Return retval
      52. End Function
      53. Public Function LoadSection(ByVal SectionName As String) As Boolean
      54. Dim tmp As String = comp.LastResult
      55. If config.Keys.Contains(SectionName, comp) Then
      56. _CurrentSection = comp.LastResult
      57. Return True
      58. Else
      59. comp.LastResult = tmp
      60. Return False
      61. End If
      62. End Function
      63. Public Sub WriteSection(ByVal SectionName As String, Optional ByVal Overwrite As Boolean = False)
      64. If config.Keys.Contains(SectionName, comp) Then
      65. _CurrentSection = comp.LastResult
      66. If Overwrite Then
      67. config.Remove(_CurrentSection)
      68. config.Add(_CurrentSection, New Dictionary(Of String, String))
      69. End If
      70. Else
      71. _CurrentSection = SectionName
      72. config.Add(_CurrentSection, New Dictionary(Of String, String))
      73. End If
      74. End Sub
      75. Public Sub WriteValueToSection(ByVal Key As String, ByVal Value As String)
      76. If Not String.IsNullOrWhiteSpace(_CurrentSection) Then
      77. If config.Keys.Contains(_CurrentSection, comp) Then
      78. _CurrentSection = comp.LastResult
      79. If config(_CurrentSection).Keys.Contains(Key, comp) Then
      80. config(_CurrentSection)(comp.LastResult) = Value
      81. Else
      82. config(_CurrentSection).Add(comp.LastResult, Value)
      83. End If
      84. Else
      85. config.Add(_CurrentSection, New Dictionary(Of String, String) From {{Key, Value}})
      86. End If
      87. Else
      88. Throw New Exception("No section loaded!")
      89. End If
      90. End Sub
      91. Public Function GetValueFromSection(ByVal Key As String) As String
      92. If Not String.IsNullOrWhiteSpace(_CurrentSection) Then
      93. config.Keys.Contains(_CurrentSection, comp)
      94. _CurrentSection = comp.LastResult
      95. config(_CurrentSection).Keys.Contains(Key, comp)
      96. Return config(_CurrentSection)(comp.LastResult)
      97. Else
      98. Throw New Exception("No section loaded!")
      99. End If
      100. End Function
      101. Public Shadows Function TryGetValueFromSection(ByVal Key As String, Optional ByVal DefaultValue As String = "") As String
      102. If Not String.IsNullOrWhiteSpace(_CurrentSection) Then
      103. If config.Keys.Contains(_CurrentSection, comp) Then
      104. _CurrentSection = comp.LastResult
      105. If config(_CurrentSection).Keys.Contains(Key, comp) Then
      106. Return config(_CurrentSection)(comp.LastResult)
      107. Else
      108. Select Case ErrorLevel
      109. Case Ini.eErrorLevel.exception
      110. Throw New Exception("Key not found in [" & _CurrentSection & "].")
      111. Case Ini.eErrorLevel.debug
      112. WriteValue(_CurrentSection, comp.LastResult, DefaultValue)
      113. Debug.Print("------------------------------------------------")
      114. Debug.Print("Key not found in [" & _CurrentSection & "].")
      115. Debug.Print("Created new Key " & Chr(34) & Key & Chr(34))
      116. Debug.Print("with Default Value " & Chr(34) & DefaultValue & Chr(34) & " instead.")
      117. Debug.Print("------------------------------------------------")
      118. Case Else
      119. WriteValue(_CurrentSection, comp.LastResult, DefaultValue)
      120. End Select
      121. Return DefaultValue
      122. End If
      123. Else
      124. Select Case ErrorLevel
      125. Case Ini.eErrorLevel.exception
      126. Throw New Exception("[" & _CurrentSection & "] not found.")
      127. Case Ini.eErrorLevel.debug
      128. WriteValue(_CurrentSection, Key, DefaultValue)
      129. Debug.Print("------------------------------------------------")
      130. Debug.Print("[" & _CurrentSection & "] not found.")
      131. Debug.Print("Created new _CurrentSection " & Chr(34) & _CurrentSection & Chr(34))
      132. Debug.Print("Created new Key " & Chr(34) & Key & Chr(34))
      133. Debug.Print("with Default Value " & Chr(34) & DefaultValue & Chr(34) & " instead.")
      134. Debug.Print("------------------------------------------------")
      135. Case Else
      136. WriteValue(_CurrentSection, Key, DefaultValue)
      137. End Select
      138. Return DefaultValue
      139. End If
      140. Else
      141. Throw New Exception("No section loaded!")
      142. End If
      143. End Function
      144. Private comp As New KeyComparer
      145. Private Class KeyComparer
      146. Implements IEqualityComparer(Of String)
      147. Public Property LastResult As String
      148. Public Shadows Function Equals(x As String, y As String) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of String).Equals
      149. If x.ToLower = y.ToLower Then
      150. LastResult = x
      151. Return True
      152. Else
      153. LastResult = y
      154. Return False
      155. End If
      156. End Function
      157. Public Function GetHashCode1(obj As String) As Integer Implements System.Collections.Generic.IEqualityComparer(Of String).GetHashCode
      158. Return obj.GetHashCode
      159. End Function
      160. End Class
      161. Public Sub WriteValue(ByVal SectionName As String, ByVal Key As String, ByVal Value As String)
      162. Dim tmp As String = _CurrentSection
      163. Try
      164. _CurrentSection = SectionName
      165. WriteValueToSection(Key, Value)
      166. Catch ex As Exception
      167. Throw ex
      168. Finally
      169. _CurrentSection = tmp
      170. End Try
      171. End Sub
      172. Public Function GetValue(ByVal SectionName As String, ByVal Key As String) As String
      173. Dim tmp As String = _CurrentSection
      174. Dim retval As String = String.Empty
      175. Try
      176. _CurrentSection = SectionName
      177. retval = GetValueFromSection(Key)
      178. Catch ex As Exception
      179. Throw ex
      180. Finally
      181. _CurrentSection = tmp
      182. End Try
      183. Return retval
      184. End Function
      185. Public Enum eErrorLevel
      186. none
      187. debug
      188. exception
      189. End Enum
      190. Public Shadows Function TryGetValue(ByVal SectionName As String, ByVal Key As String, Optional ByVal DefaultValue As String = "") As String
      191. Dim tmp As String = _CurrentSection
      192. Dim retval As String = String.Empty
      193. Try
      194. _CurrentSection = SectionName
      195. retval = TryGetValueFromSection(Key, DefaultValue)
      196. Catch ex As Exception
      197. Throw ex
      198. Finally
      199. _CurrentSection = tmp
      200. End Try
      201. Return retval
      202. End Function
      203. Public Sub Load(ByVal path As String, ByVal processFunction As ProcessLine)
      204. Dim reg As New System.Text.RegularExpressions.Regex("\[.*\]")
      205. Using sw As New IO.StreamReader(path, System.Text.Encoding.Default)
      206. Dim tmp As String = String.Empty
      207. Dim SectionName As String = String.Empty
      208. Do Until sw.EndOfStream
      209. tmp = sw.ReadLine
      210. If tmp.StartsWith(";") Then
      211. Continue Do
      212. End If
      213. If reg.Matches(tmp).Count > 0 Then
      214. SectionName = tmp.Replace("[", "").Replace("]", "")
      215. ElseIf Not String.IsNullOrWhiteSpace(tmp) Then
      216. Dim result As KeyValuePair(Of String, String) = processFunction(tmp, SectionName)
      217. WriteValue(SectionName, result.Key, result.Value)
      218. End If
      219. Loop
      220. End Using
      221. End Sub
      222. Public Sub Load(ByVal path As String)
      223. Dim reg As New System.Text.RegularExpressions.Regex("\[.*\]")
      224. Using sw As New IO.StreamReader(path, System.Text.Encoding.Default)
      225. Dim tmp As String = String.Empty
      226. Dim SectionName As String = String.Empty
      227. Do Until sw.EndOfStream
      228. tmp = sw.ReadLine
      229. If tmp.StartsWith(";") Then
      230. Continue Do
      231. End If
      232. If reg.Matches(tmp).Count > 0 Then
      233. SectionName = tmp.Replace("[", "").Replace("]", "")
      234. ElseIf Not String.IsNullOrWhiteSpace(tmp) Then
      235. WriteValue(SectionName, tmp.Split("="c)(0), tmp.Split("="c)(1))
      236. End If
      237. Loop
      238. End Using
      239. End Sub
      240. Public Sub Save(ByVal path As String, ByVal processFunction As WriteLine)
      241. Using sw As New IO.StreamWriter(path, False, System.Text.Encoding.Default)
      242. For Each kv As KeyValuePair(Of String, Dictionary(Of String, String)) In config
      243. sw.WriteLine("[" & kv.Key & "]")
      244. For Each ikv As KeyValuePair(Of String, String) In kv.Value
      245. sw.WriteLine(processFunction(ikv, kv.Key))
      246. Next
      247. Next
      248. End Using
      249. End Sub
      250. Public Sub Save(ByVal path As String)
      251. Using sw As New IO.StreamWriter(path, False, System.Text.Encoding.Default)
      252. For Each kv As KeyValuePair(Of String, Dictionary(Of String, String)) In config
      253. sw.WriteLine("[" & kv.Key & "]")
      254. For Each ikv As KeyValuePair(Of String, String) In kv.Value
      255. sw.WriteLine(ikv.Key & "=" & ikv.Value)
      256. Next
      257. Next
      258. End Using
      259. End Sub
      260. Public Sub New()
      261. MyBase.New()
      262. End Sub
      263. Public Sub New(ByVal ErrorLevel As eErrorLevel)
      264. MyBase.New()
      265. Me.ErrorLevel = ErrorLevel
      266. End Sub
      267. Public Sub New(ByVal path As String, ByVal ErrorLevel As eErrorLevel)
      268. MyBase.New()
      269. Load(path)
      270. Me.ErrorLevel = ErrorLevel
      271. End Sub
      272. Public Sub New(ByVal path As String)
      273. MyBase.New()
      274. Load(path)
      275. End Sub
      276. End Class


      Beispiel:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Dim Settings As New ini
      2. 'Schreibt einen Wert in den Speicher, oder legt diesen neu an
      3. Settings.WriteValue("Section1", "MeinKey", "MeinValue")
      5. 'Liest einen Wert aus dem Speicher
      6. Dim MeinKey As String = Settings.GetValue("Section1", "MeinKey")
      7. MsgBox(MeinKey)
      9. 'Liest einen Wert aus dem Speicher,
      10. 'oder legt diesen mit einem definierten Wert (z.B.: "NewVal") an, falls noch nicht vorhanden
      11. Dim NewKey As String = Settings.TryGetValue("Section2", "NewKey", "NewVal")
      12. MsgBox(NewKey)
      14. 'Speichert das Ganze als INI-Datei
      15. Settings.Save("c:\test.ini")
      17. 'Lädt ein INI-Datei
      18. Settings.Load("c:\test.ini")
      20. 'Lädt ein INI-Datei
      21. Dim NewSettings As New ini("c:\test.ini")


      Mfg
      SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

      Weil einfach, einfach zu einfach ist! :D

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „BiedermannS“ ()

      Zwei Jahre nach dem ich den Code geschrieben habe, hatte ich das Vergnügen diesen wieder mal zu benutzen. Leider hat etwas an Funktionalität gefehlt, weshalb es jetzt auch ein Update gibt.

      Ich wollte die INI Files so gestalten, dass man bei gewissen Sektionen als Wert eine Nummer angeben kann. Alle darauf folgenden Werte sollten automatisch inkrementiert werden, wenn kein Wert übergeben wurde. Die Load- und die Save-Funktion nehmen nun optional einen Delegate an, mit dem man das Verhalten beim Einlesen steuern kann.

      Hier ein kleines Beispiel dazu:
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. Module Module1
      3. Dim ini As New IniLib.Ini
      5. ' Remember the last known number
      6. Dim lastNumber As Integer = 0
      8. Function processLine(ByVal input As String, ByVal section As String) As KeyValuePair(Of String, String)
      9. Dim tmp As String() = input.Split({"="c}, 2, StringSplitOptions.RemoveEmptyEntries)
      11. Select Case section.ToUpper()
      13. ' If we are currently in our "SPECIAL_SECTION"
      14. Case "SPECIAL_SECTION"
      15. Dim number As Integer
      17. ' Check if a number is provided
      18. If tmp.Length > 1 AndAlso Integer.TryParse(tmp(1), number) Then
      20. ' If yes, save the new last known number and return the values
      21. lastNumber = number
      22. Return New KeyValuePair(Of String, String)(tmp(0), tmp(1))
      23. Else
      24. ' If no, increment the new last known number and return the values
      25. lastNumber += 1
      26. Return New KeyValuePair(Of String, String)(tmp(0), lastNumber.ToString())
      27. End If
      29. ' In any other section, do the default parsing behaviour
      30. Case Else
      31. Return IniLib.Ini.DefaultProcessLine(input, section)
      32. End Select
      33. End Function
      35. Sub Main()
      36. ' Load the INI file with the provided function for processing
      37. ini.Load(".\test.ini", AddressOf processLine)
      38. End Sub
      40. End Module​
      SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

      Weil einfach, einfach zu einfach ist! :D

    Facebook