| |
VB.NET - Ein- und UmsteigerRe: eine Zeile in txt.Datei ändern | | | Autor: effeff | Datum: 28.06.17 15:47 |
| Du willst die Textdatei als Datenbank missbrauchen.
Klüger wäre es, die Daten in einer XML-Datei zu halten. Das reicht für solche Sachen als "Datenbank" aus. Du könntest dort nach Einträgen suchen und die Werte ändern.
Beispiel: Auf einer Form namens "Form1" hast Du ein DataGridView "DataGridView1":
Public Class Form1
Dim dtPunkte As New DataTable
Dim Dateipfad As String = System.IO.Path.Combine( _
Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung")
Dim PunkteXML As String = System.IO.Path.Combine( _
Environment.GetEnvironmentVariable("appdata"), "Punkteverwaltung", _
"punkte.xml")
Private Sub Form1_FormClosing(sender As Object, e As _
System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
DataGridView1.EndEdit()
dtPunkte.AcceptChanges()
dtPunkte.WriteXml(PunkteXML)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
Handles MyBase.Load
dtPunkteInitialisieren()
If Not System.IO.Directory.Exists(Dateipfad) Then
System.IO.Directory.CreateDirectory(Dateipfad)
dtPunkteFuellen()
Else
dtPunkte.ReadXml(PunkteXML)
End If
DataGridView1.DataSource = dtPunkte
End Sub
Private Sub dtPunkteInitialisieren()
With dtPunkte
Dim IDCol As DataColumn = dtPunkte.Columns.Add("ID", Type.GetType( _
"System.Int32"))
IDCol.AllowDBNull = False
IDCol.Unique = True
IDCol.AutoIncrement = True
.Columns.Add("Name", Type.GetType("System.String"))
.Columns.Add("Punkte", Type.GetType("System.Int32"))
.TableName = "Punktetabelle"
Dim primaryKey(1) As DataColumn
primaryKey(1) = .Columns("ID")
.PrimaryKey = primaryKey
End With
End Sub
Private Sub dtPunkteFuellen()
Dim i As Integer = 0
Dim SpielerUndPunkte As String = _
"hans=1,peter=2,ute=7,steffi=11,otte=5,han=2"
Dim arrSpieler() As String = SpielerUndPunkte.Split(",")
For i = 0 To UBound(arrSpieler)
Dim arr() As String = arrSpieler(i).Split("=")
Dim newRow As DataRow = dtPunkte.NewRow
newRow("ID") = i
newRow("Name") = arr(0)
newRow("Punkte") = arr(1)
dtPunkte.Rows.Add(newRow)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
dtPunkte.WriteXml(PunkteXML)
End Sub
End Class EALA FREYA FRESENA | |
| 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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|