Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

text uit verschillende textboxen opslaan op c:/

meerweten - 08/08/2010 17:00
Lid		hey allen ik heb net een programatje gemaakt en deze gebruikt verschillende textvakken en labels beiden zouden moeten worden opgeslagen als een soort tabel zodat ze telkens weer worden geopend (automatisch) als het programma start is dit mogenlijk om in 1 bestandje te zetten zoja hoe?

5 antwoorden

Gesponsorde links

Mario - 10/08/2010 12:07
Crew algemeen		Het simpelste is denk ik via een "for each" alle controls uit je form overlopen. Daarna een controle om te zien of de control een textveld/label is Zoja, de naam van je control en waarde in een textveld schrijven. bv, textbox1,waarde textbox1 label3,text label4,naam Om ze terug in te lezen doe je het omgekeerde hé, alle controls overlopen en als de control de naam heeft van één van je waardes uit je textfile, de waarde toekennen aan die control. Begrijp je het

meerweten - 10/08/2010 13:01 (laatste wijziging 10/08/2010 14:44)

Lid

bedankt

ik heb nu het volgende en zet het allemaal in 1 niet zichtbaar textboxje:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                For Each singleChar In txtBijl.Text
            area.Text &= singleChar
        Next
        area.Text &= Environment.NewLine
        For Each singleChar In lblSpeer.Text
            area.Text &= singleChar
        Next
        For Each singleChar In txtSpeer.Text
            area.Text &= singleChar

        Next
            
For Each singleChar In txtBijl.Text
            area.Text &= singleChar
        Next
        area.Text &= Environment.NewLine
        For Each singleChar In lblSpeer.Text
            area.Text &= singleChar
        Next
        For Each singleChar In txtSpeer.Text
            area.Text &= singleChar
 
        Next
 

opslaan als txt bestand gaat ook en openen terug ook

maar hoe kan ik deze automatisch laten inlezen ?

Mario - 10/08/2010 16:13 (laatste wijziging 10/08/2010 16:13)

Crew algemeen

Dit is alvast de code om je data op te slaan in een tekstbestand.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each Control In Me.Controls
            If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText("C:\textdata.txt", Control.name & "," & Control.text & vbCrLf, True)
        Next
    End Sub

            
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each Control In Me.Controls
            If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText("C:\textdata.txt", Control.name & "," & Control.text & vbCrLf, True)
        Next
    End Sub
 

meerweten - 10/08/2010 16:24
Lid		ow dat ziet er al veel simpeler uit dan dat van mij weeral wat bijgeleerd over vb.net

Mario - 11/08/2010 08:32 (laatste wijziging 11/08/2010 08:42)

Crew algemeen

Hier heb je de volledige code :

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Public Class Form1

    Dim FileLocation As String = "C:\textdata.txt"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        For Each Control In Me.Controls
            If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText(FileLocation, Control.name & "," & Control.text & vbCrLf, True)
        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        If My.Computer.FileSystem.FileExists(FileLocation) Then
            Dim fileContents As String = My.Computer.FileSystem.ReadAllText(FileLocation)
            Dim SplitUpData() As String = fileContents.Split(vbCrLf)

            For Each entry As String In SplitUpData
                For Each Control In Me.Controls
                    If TypeOf (Control) Is TextBox Then
                        If Control.name = (entry.Split(",").ElementAt(0).Trim) Then
                            Control.text = (entry.Split(",").ElementAt(1).Trim)
                        End If
                    End If
                Next
            Next

        End If

    End Sub
End Class

            
Public Class Form1
 
    Dim FileLocation As String = "C:\textdata.txt"
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        For Each Control In Me.Controls
            If TypeOf (Control) Is TextBox Then My.Computer.FileSystem.WriteAllText(FileLocation, Control.name & "," & Control.text & vbCrLf, True)
        Next
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If My.Computer.FileSystem.FileExists(FileLocation) Then
            Dim fileContents As String = My.Computer.FileSystem.ReadAllText(FileLocation)
            Dim SplitUpData() As String = fileContents.Split(vbCrLf)
 
            For Each entry As String In SplitUpData
                For Each Control In Me.Controls
                    If TypeOf (Control) Is TextBox Then
                        If Control.name = (entry.Split(",").ElementAt(0).Trim) Then
                            Control.text = (entry.Split(",").ElementAt(1).Trim)
                        End If
                    End If
                Next
            Next
 
        End If
 
    End Sub
End Class
 

Je kunt ook de volledige solution downloaden : DOWNLOAD
Nummer 4 en niet vergeten dat het in vb.net 2010 is.

Greetzz

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten