Hey,
ik ben een programmatje aan het schrijven waarin ik 2 listboxen heb.
Een eerste listbox die gevuld wordt met 6 namen uit een .txt file
Als ik op btnVerwerk klik, dan krijg ik 6x achtereen een inputbox om bijbehorende naam in te vullen, deze verschijnen vervolgens in een tweede lstbox. (zie afbeelding hieronder)
Nu wil ik de data uit beide lstboxen wegschrijven naar een nieuwe .txt bestand (duo.txt) op datzelfde path als ik op btnSchrijf klik
"Baard","Kale"
"Blake","Mortimer"
enz...
Kan iemand even de code bekijken en me vertellen waar en wat ik verkeerd doe?
Alvast bedankt!!
Private Sub btnLees_Click(sender As Object, e As EventArgs) Handles btnLees.Click
Dim strLinks(5) As String
Dim intTel As Integer = 0
FileOpen(1, "c:\vb2013\single.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, strLinks(intTel))
lstEneHelft.Items.Add(strLinks(intTel))
intTel = intTel + 1
Loop
FileClose(1)
btnLees.Enabled = Not (btnLees.Enabled)
btnVerwerk.Enabled = Not (btnVerwerk.Enabled)
End Sub
Private Sub btnVerwerk_Click(sender As Object, e As EventArgs) Handles btnVerwerk.Click
Dim intLinks As Integer
Dim strRechts As String
Do While intLinks < 6
strRechts = InputBox("Geef de partner van " & lstEneHelft.Items(intLinks).ToString(), "Partner", , , )
lstAndereHelft.Items.Add(strRechts)
intLinks += 1
Loop
btnVerwerk.Enabled = Not (btnVerwerk.Enabled)
btnSchrijf.Enabled = Not (btnSchrijf.Enabled)
End Sub
Private Sub btnSchrijf_Click(sender As Object, e As EventArgs) Handles btnSchrijf.Click
Dim bestand As IO.FileInfo = New IO.FileInfo("c:\vb2013\duo.txt")
Dim intBestand As Integer = FreeFile()
Dim i As Integer
bestand.Create()
For i = 0 To lstEneHelft.Items.Count - 1
Print(intBestand, lstEneHelft.Items.Item(i))
Next
FileClose(intBestand)
End Sub
End Class
ik ben een programmatje aan het schrijven waarin ik 2 listboxen heb.
Een eerste listbox die gevuld wordt met 6 namen uit een .txt file
Als ik op btnVerwerk klik, dan krijg ik 6x achtereen een inputbox om bijbehorende naam in te vullen, deze verschijnen vervolgens in een tweede lstbox. (zie afbeelding hieronder)
Nu wil ik de data uit beide lstboxen wegschrijven naar een nieuwe .txt bestand (duo.txt) op datzelfde path als ik op btnSchrijf klik
"Baard","Kale"
"Blake","Mortimer"
enz...
Kan iemand even de code bekijken en me vertellen waar en wat ik verkeerd doe?
Alvast bedankt!!
Private Sub btnLees_Click(sender As Object, e As EventArgs) Handles btnLees.Click
Dim strLinks(5) As String
Dim intTel As Integer = 0
FileOpen(1, "c:\vb2013\single.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, strLinks(intTel))
lstEneHelft.Items.Add(strLinks(intTel))
intTel = intTel + 1
Loop
FileClose(1)
btnLees.Enabled = Not (btnLees.Enabled)
btnVerwerk.Enabled = Not (btnVerwerk.Enabled)
End Sub
Private Sub btnVerwerk_Click(sender As Object, e As EventArgs) Handles btnVerwerk.Click
Dim intLinks As Integer
Dim strRechts As String
Do While intLinks < 6
strRechts = InputBox("Geef de partner van " & lstEneHelft.Items(intLinks).ToString(), "Partner", , , )
lstAndereHelft.Items.Add(strRechts)
intLinks += 1
Loop
btnVerwerk.Enabled = Not (btnVerwerk.Enabled)
btnSchrijf.Enabled = Not (btnSchrijf.Enabled)
End Sub
Private Sub btnSchrijf_Click(sender As Object, e As EventArgs) Handles btnSchrijf.Click
Dim bestand As IO.FileInfo = New IO.FileInfo("c:\vb2013\duo.txt")
Dim intBestand As Integer = FreeFile()
Dim i As Integer
bestand.Create()
For i = 0 To lstEneHelft.Items.Count - 1
Print(intBestand, lstEneHelft.Items.Item(i))
Next
FileClose(intBestand)
End Sub
End Class