robin-91
Gebruiker
- Lid geworden
- 16 apr 2007
- Berichten
- 18
Hallo,
ik heb al eerdere vragen er over gesteld maar de hele computer is gecrashd en ben alles kwijt. Ik kom niet meer uit het volgende:
Ik moet drie zinnen in een text bestand zetten, die textbestand in visual basic .net 2003 laden. Dan moet hij 1 van die drie zinnen kiezen en daarmee ga ik dan verder werken.
ik heb de volgende code gemaakt maar die werkt dus niet.
----------------------------------------------------------------------------------------------------------------------------
Public Class Form1
Dim R As Random
Dim zin As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New IO.StreamReader(".\Testfile.txt")
Dim line As String
Dim linenum As Integer = 0
Dim zin As String
Do
line = sr.ReadLine
If line <> Nothing Then
zin(linenum) = line
linenum = +1
End If
Loop Until line Is Nothing
zin = zin(R.Next(0, zin.Length))
End Sub
End Class
---------------------------------------------------------------------------------------------------------------------
en dan bij de array "zin" loopt hij vast
Weet iemand hoe ik verder kan??
ik heb al eerdere vragen er over gesteld maar de hele computer is gecrashd en ben alles kwijt. Ik kom niet meer uit het volgende:
Ik moet drie zinnen in een text bestand zetten, die textbestand in visual basic .net 2003 laden. Dan moet hij 1 van die drie zinnen kiezen en daarmee ga ik dan verder werken.
ik heb de volgende code gemaakt maar die werkt dus niet.
----------------------------------------------------------------------------------------------------------------------------
Public Class Form1
Dim R As Random
Dim zin As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sr As New IO.StreamReader(".\Testfile.txt")
Dim line As String
Dim linenum As Integer = 0
Dim zin As String
Do
line = sr.ReadLine
If line <> Nothing Then
zin(linenum) = line
linenum = +1
End If
Loop Until line Is Nothing
zin = zin(R.Next(0, zin.Length))
End Sub
End Class
---------------------------------------------------------------------------------------------------------------------
en dan bij de array "zin" loopt hij vast
Weet iemand hoe ik verder kan??