vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Sectionen mit Hilfe einer Listbox in der INI-Datei ändern 
Autor: krebsbachbub
Datum: 24.01.08 10:07
Hallo, ich habs jetzt so gemacht, dass ich meinen nächsten Eintrag aus der Ini-Datei auf den zu löschenden schreibe usw. und dann den letzten Eintrag in der Ini-Datei lösche.
Danach lösche ich alle Einträge in der Listbox und fülle sie neu

Hier mein Code, sollte einer was einfacheres haben, bitte gerne reinstellen: 
  'Auslesen der SelctedItem +1 und neu Abspeichern unter SelectedItem
        Dim strsp As String = ""
        Dim strbr As String = ""
        Dim strqu As String = ""
        Dim strla As String = ""
        Dim stral As String = ""
        Dim i As Integer
 
        For i = lstboxSpalten.SelectedIndex To lstboxSpalten.Items.Count - 1
            'selectedIndex+2, da listbox bei 0 anfäng zu zählen !!!
            strspalte = INIRead(txtFile.Text.ToString, txtGrid.Text & "_" & _
              lstboxSpalten.SelectedIndex.ToString + 2, "NA", "")
            strbreite = INIRead(txtFile.Text.ToString, txtGrid.Text & "_" & _
            lstboxSpalten.SelectedIndex.ToString + 2, "BR", "")
            strquelle = INIRead(txtFile.Text.ToString, txtGrid.Text & "_" & _
            lstboxSpalten.SelectedIndex.ToString + 2, "Qu", "")
            strlabel = INIRead(txtFile.Text.ToString, txtGrid.Text & "_" & _
            lstboxSpalten.SelectedIndex.ToString + 2, "La", "")
            stralias = INIRead(txtFile.Text.ToString, txtGrid.Text & "_" & _
            lstboxSpalten.SelectedIndex.ToString + 2, "Al", "")
 
            Call INIWrite(txtFile.Text.ToString, txtGrid.Text & "_" & (i + _
              1.ToString), "NAME", "SPALTE" & i + 1)
            Call INIWrite(txtFile.Text.ToString, txtGrid.Text & "_" & (i + _
            1.ToString), "BR", strbr)
            Call INIWrite(txtFile.Text.ToString, txtGrid.Text & "_" & (i + _
            1.ToString), "QU", strqu)
            Call INIWrite(txtFile.Text.ToString, txtGrid.Text & "_" & (i + _
            1.ToString), "LA", strla)
            Call INIWrite(txtFile.Text.ToString, txtGrid.Text & "_" & (i + _
            1.ToString), "AL", stral)
 
            'Jetzt wird die letzte Spalte in der Ini gelöscht, da alles 1 Punkt 
            ' nach vorne geschrieben wurde
            INIDelete(txtFile.Text.ToString, txtGrid.Text & "_" & _
              lstboxSpalten.Items.Count.ToString)
 
        Next i
 
        'Einträge in der Listbox löschen
        lstboxSpalten.Items.Clear()
        'Listbox neu füllen
        Call Listbox_fuellen()
Gruß

Krebsbachbub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Sectionen mit Hilfe einer Listbox in der INI-Datei ändern1.289krebsbachbub23.01.08 14:28
Re: Sectionen mit Hilfe einer Listbox in der INI-Datei änder...677Micke23.01.08 14:36
Re: Sectionen mit Hilfe einer Listbox in der INI-Datei änder...669krebsbachbub23.01.08 15:03
Re: Sectionen mit Hilfe einer Listbox in der INI-Datei änder...679Micke23.01.08 18:02
Re: Sectionen mit Hilfe einer Listbox in der INI-Datei änder...766krebsbachbub24.01.08 10:07

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel