Ingevulde gegevens opslaan in bestand

[Jan92]

Dag Allemaal,

Een foto toegevoegd voor de duidelijkheid...

Mijn vraag is dus : Wil iemand mij de code geven om al de ingevulde zaken op te slaan in een tekstbestandje,
de gegevens lieft op één rij, gescheiden met komma of puntkomma.

O ja ! Op de form heb ik vergeten een "Button" te zetten, maar je begrijpt wel dat het
"saven" pas gebeurt als er op de knop zal geklikt worden.

 

[SuperABC]

Dan zet je eerst alle in één string dus zo:

Dim Info As String = TextBox_NaamEnAchternaam.Text & ";" & TextBox_GeboorteDatum.Text & ";"

If RadioButton_Jongen.Checked Then
Info += "Jongen;"
End If

If RadioButton_Meisje.Checked Then
Info += "Meisje;"
End If

Info += ComBoBox_OogKleur.SelectedItem

Sla dan de String op in een bestand:

My.Computer.FileSystem.WriteAllText("C:\MijnFile.txt", Info,True)

 

[Jan92]

Waaw ! Dat was vlug. (En ik begrijp het nog ook)

Bedankt, bedankt, bedankt ! :thumb:

 

[TDPmurdock]

is het zo dat met deze oplossing er telkens op de 'save-knop' gedrukt wordt een lijn in de textfile wordt bijgeschreven? of overschrijft ie?

 

[Jan92]

Hallo, TDPmurdock

Sorry voor de laattijdige reactie

Om op je vraag te antwoorden: De gegevens worden inderdaad telkens op een nieuwe rij toegevoegd.

Als u toch zou willen overschrijven vervangt u "True" in "False" op het einde van de schrijfopdracht.

groeten, Jan

 

[TDPmurdock]

ik gebruik nu volgende code :

Dim datum As DateTime = DateTime.Now
            Dim filePath As String
            filePath = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "backup.txt")
            Dim backup As String = datum & vbTab & LabelTeamA.Text & ":" & LabelPointsA.Text & vbTab & LabelTeamB.Text & ":" & LabelPointsB.Text & vbCrLf
            My.Computer.FileSystem.WriteAllText(filePath, backup, True)

die werkt perfect, maar ik zou graag telkens mijn programma opnieuw gestart wordt naar een nieuwe file schrijven, zodanig dat de vorige onaangeroerd blijven... iemand een ideetje?

 

[Jan92]

Hoi, TDPmurdock

Voor zover ik je doelstelling begrijp zou ik als volgt te werk gaan:

Inplaats van het bestand "backup.txt" te gebruiken, een "Backup"-MAP aanmaken.

Voor elke data die weggeschreven moet worden, als bestandsnaam de DateTime functie gebruiken.

Gezien je dan nooit twee maal dezelfde bestandsnaam kan hebben, worden er telkens nieuwe

bestanden toegevoegd aan de map en blijven de bestaande bestanden onaangeroerd.

Groeten, Jan

 

[TDPmurdock]

Hoi Jan92 ,

dat is inderdaad wat ik zou willen verkrijgen ja hoe zorg ik ervoor dat de naam vd bestanden de datum wordt, de rest fix ik wel...

 

[Jan92]

Ik ben het niet zeker maar probeer dit eens :

Dim Bestandsnaam As String = Format(Now)

PS: Ik moet wel afsluiten voor vandaag.

 

[TDPmurdock]

ben er uiteindelijk gekomen, bestandsnaam is nu "datum+gedeelte standaardtekst" er wordt dus elke dag een nieuw bestand aangemaakt...

 'export scores'
            Dim datum As String = Format(Today, "hh:mm:ss")
            Dim filePath As String


            Dim sdocnaam As String
            sdocnaam = Format(Today, "dd MM yyyy") & " PSS Backup" & ".txt"


            filePath = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, sdocnaam)
            Dim backup As String = datum & vbTab & LabelTeamA.Text & ":" & LabelPointsA.Text & vbTab & LabelTeamB.Text & ":" & LabelPointsB.Text & vbCrLf
            My.Computer.FileSystem.WriteAllText(filePath, backup, True)
            MessageBox.Show("The scores are saved to " & vbLf & "'" & sdocnaam & "'" & vbLf & "in the MyDocuments folder.", "Scores saved", _
           MessageBoxButtons.OK, MessageBoxIcon.Information)

 

[bas1278]

hoe haal je de gegevens weer uit het bestand?