Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ini-Dateien bearbeiten mit VB.net
Autor: vb-tommy
Datum: 22.07.05 19:39
hallo clemens hatte das gleiche problem probier mal mit xml code ist aus meinem aktuellen projekt Dim INI As New INI(.......& "\Settings.xml") '<-- wichtig! path 'für ini auslesen: strIP.Text = INI.GetSettings("Server", "IP", strIP.Text, GetType(String)) <---- Gettype ist wichtig!!! also für String = GetType(String), Integer = Getype(int16) oder 32 etc. 'für ini schreiben: INI.WriteSettings("Server", "IP", strIP.Text, GetType(String)) Public Class INI Private DS As New DataSet Private mXmlFile As String Public Function GetSettings(ByVal Category As String, ByVal Field As String, ByVal DefaultValue As Object, ByVal xDataType As Type) As Object If Not DS.Tables.Contains(Category) Then WriteSettings(Category, Field, DefaultValue, xDataType) End If If Not DS.Tables(Category).Columns.Contains(Field) Then WriteSettings(Category, Field, DefaultValue, xDataType) End If Return (DS.Tables(Category).Rows(0).Item(Field)) End Function Public Function DeleteSettings(ByVal Category As String, ByVal Field As String) As Boolean If Not DS.Tables.Contains(Category) Then Exit Function End If If Not DS.Tables(Category).Columns.Contains(Field) Then Exit Function End If DS.Tables(Category).Columns.Remove(Field) DS.WriteXml(mXmlFile, XmlWriteMode.WriteSchema) End Function Public Function WriteSettings(ByVal Category As String, ByVal Field As String, ByVal Value As Object, ByVal xDataType As Type) As Boolean If Not DS.Tables.Contains(Category) Then DS.Tables.Add(Category) End If If Not DS.Tables(Category).Columns.Contains(Field) Then DS.Tables(Category).Columns.Add(Field, xDataType) End If If DS.Tables(Category).Rows.Count = 0 Then Dim DR As DataRow DR = DS.Tables(Category).NewRow DR.BeginEdit() DR.Item(Field) = Value DR.EndEdit() DS.Tables(Category).Rows.Add(DR) Else DS.Tables(Category).Rows(0).Item(Field) = Value End If DS.WriteXml(mXmlFile, XmlWriteMode.WriteSchema) End Function Public Sub New(ByVal XmlFile As String) If Dir(XmlFile) = "" Then MsgBox("Die folgende Settingsdatei ist nicht vorhanden: " & vbCrLf & XmlFile & vbCrLf & "Schreibe Standardwerte") DS.WriteXml(XmlFile, XmlWriteMode.WriteSchema) End If mXmlFile = XmlFile DS.ReadXml(XmlFile, XmlReadMode.ReadSchema) End Sub Protected Overrides Sub Finalize() MyBase.Finalize() End Sub End Class denke so geht es mit xml ganz einfach cio vb-tommy

ini-Dateien bearbeiten mit VB.net	1.347	Clemens	19.07.05 10:30
Re: ini-Dateien bearbeiten mit VB.net	985	ralf_oop	19.07.05 10:43
Re: ini-Dateien bearbeiten mit VB.net	1.064	vb-tommy	22.07.05 19:39
Re: ini-Dateien bearbeiten mit VB.net	1.962	DaveS	22.07.05 20:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen