[TUT] VB08 ini-Datei

da viele hier mit systemsettings arbeiten zeig ich euch mal wie er ganz fix eine
ini macht
ich erkl�re nur die funktionen h�nge aber ein fertiges projekt mit dran zum runterladen
wo farben oder auch die formgr��e ge�ndert werden kann u.s.w sollte sich mal ein anf�nger wenn anschauen das ist ohne hartgecodeten pfad also nicht C:\bla\bla\bla

es w�rde nicht die xml gehen sieht besser aus aber bei so was steckt weit mehr arbeit drin

also die api auf rufe sind einfach

Code:

   
    Private Declare Function SchreibeIni Lib "kernel32" _
      Alias "WritePrivateProfileStringA" ( _
      ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, _
      ByVal lpString As String, _
      ByVal lpFileName As String) As Long

lpApplicationName = das ist der name des abschnittes in der ini
lpKeyName = der schl�sselname der den gespeicherten wert tragen soll
lpString = von hier kommen der wert f�r die ini dies kann eine textbox oder sonstiges sein
lpFileName = hier das ist der pfad zur ini

w�rde im programm so aussehen

Code:

SchreibeIni("Textbox1", "Text", TextBox1.Text, "C:\Test.ini")

dise w�rde sich in der ini so wieder finden

[Textbox1]
Text=

dahinter h�tte der textgestanden der sich in der textbox befindet
das ganze geht mit bilder aus der picturebox,checkboxen,comboboxen

zu der listbox will ich noch was sagen da ist das schreiben der werte und das lesen der ini nicht so leicht da musse man noch einiges dazuschreiben

beim laden brauch man etwas mehr und eine extra funktion die danach kommt

Code:

  Private Declare Function leseIni Lib "kernel32" _
      Alias "GetPrivateProfileStringA" ( _
      ByVal lpApplicationName As String, _
      ByVal lpKeyName As String, _
      ByVal lpDefault As String, _
      ByVal lpReturnedString As String, _
      ByVal nSize As Long, _
      ByVal lpFileName As String) As Long ' lesen der ini

lpApplicationName = oben erkl�rt
lpKeyName = oben erkl�rt
lpDefault = hier kann ein wert zur�ckgegeben werden wenn nichts in der ini steht also sowas wie man im formload auch bestimmen kann
lpReturnedString = das ist der Buffer f�r die r�ckgabe werte bei lagen zeilen sollte der ausreichend gef�llt werden
nSize = hier erstellt man die puttergr��e in bytes
lpFileName = oben erkl�rt

vllt denken manche jetzt ohgott wenn ihr mal gegoogelt habt nach ini tut die sind meist extrem riesig und sehr kompliziert aber hier k�rzen wir das ganze jetzt extrem ab

Code:

Public Function LeseUndSchreibeIni(ByVal Gruppe As String, ByVal Schl�ssel As String, ByVal Voreinstellung As String, ByVal Pfad As String) As String

        Dim strTemp As String = Space(1024), lLength As Integer '
        lLength = leseIni(Gruppe, Schl�ssel, Voreinstellung, strTemp, strTemp.Length, Pfad)

        Return (strTemp.Substring(0, lLength))
    End Function

hier lesen wir erstmal die ini datein ein f�llen den Buffer mit dieser Methode
machen wir eigentlich nur folgendes man extrahiert eine teilzeichenkette deren position und l�nge �bergeben wird aus einer zeichenkette

wieso macht man das weil man ja strings,boolsche werte �bergeben will und integer

eingelesen wird dann alles so

Code:

 TextBox1.Text = LeseUndSchreibeIni("Textbox1", "Text", "", "C:\Test.ini")

die 2 g�nsef�sschen ohne inhalten w�r der r�ckgabe wert wenn nichts in der ini steht brauch man aber in der regel selten das ist mehr was f�r anwedungen wie in w32 wo man keine formanwedung hat :)

so damit ist das tut fertig ich hab mal zum spass gesucht wie sowas in vb6 mal ausgesehen hat

[Only registered and activated users can see links. Click Here To Register...]

ich denke es ist sehr kurz und verst�ndlich es macht seine arbeit und ist nur f�r kleine w�rter da in die ini sollt ihr keine romane schreiben das ist dann schon mehr was f�r textdatein
so ich hefte mal noch ein projekt von mir ran
was dadrin ist auch eine ini und paar andere dinge
- abfragen ob die ini schon erstellt ist weil sonst gibt es anwedungscrash ;)
- selected case in comboboxen f�r hintergrundfarben und gr��en
- oder wer nicht klarkommt kann auch reinschauen

ist ein vollst�ndiges projekt f�r VB08/10

das ist emhr was f�r anf�nger selected case ist eine bessere form des if else ;) bei sowas

Also ich benutze immer XML da es viel einfacher f�r mich ist.
Ein Beispiel:

Code:

Module Module1

    Sub Main()

        ' XML file example.

        Dim xml As XDocument = <?xml version="1.0" encoding="utf-8"?>
                               <example>
                                   <simpleString>Hello World!</simpleString>
                                   <simpleInteger>1</simpleInteger>
                                   <simpleDouble>1.545</simpleDouble>
                                   <simpleBool>True</simpleBool>
                               </example>

        ' Read out our xml data.

        Dim myString =
            xml.<example>.<simpleString>.Value

        Dim myInteger =
            CInt(xml.<example>.<simpleInteger>.Value)

        Dim myDouble =
            CDbl(xml.<example>.<simpleDouble>.Value)

        Dim myBoolean =
            CBool(xml.<example>.<simpleBool>.Value)

        ' Show data to user.

        Console.WriteLine("Simple string = " + myString)
        Console.WriteLine("Simple integer = " + myInteger.ToString)
        Console.WriteLine("Simple double = " + myDouble.ToString)
        Console.WriteLine("Simple boolean = " + myBoolean.ToString)

        Console.ReadKey()

    End Sub

End Module