Woord uit tekstbestand laden en in label weergeven

[TinusJan]

Hallo,

Het volgende:
Voor het spel galgje wil ik dat er automatisch een random woord uit een woordenlijst wordt geladen zodra het spel wordt gestart. Dus een deel van een tekst (het woord) weergeven in een label. Woorden staan onder elkaar in een .text bestand.
Wie kan me hiermee helpen?
Heb al enige tijd onderzoek gedaan maar kan er echt niet uitkomen!!

Alvast bedankt

 

[That Guy]

gebruik open, line input en close.

zoiets. Add een listbox (list1) en deze code op een knoppie ofzo:

Dim ff As Long
ff = FreeFile
Dim sFile As String
sFile = "C:\bar.txt"
Dim sTemp As String

Open sFile For Input As #ff

While Not EOF(ff)
    Line Input #ff, sTemp
    List1.AddItem sTemp
Wend

Close ff

V.:thumb:

 

[CoD_NL]

zoiets. Add een listbox (list1) en deze code op een knoppie ofzo:

Waarom een listbox ? Ik zou de data gewoon in een array bewaren. (en dan via rnd() een random waarde verkrijgen)

Kleine aanpassing op jouw code:

Private Sub Command1_Click()
Dim sTmp As String, sData As String, sWoorden() As String
sData = ""

Open "c:\test.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, sTmp
    If sTmp <> "" Then sData = sData + sTmp + vbCrLf
  Loop
Close #1

sWoorden = Split(sData, vbCrLf)
MsgBox sWoorden(Int((Rnd() * UBound(sWoorden)))) 
End Sub

 

[TinusJan]

bedankt voor jullie snelle reacties maar kom nog niet echt verder.
Ik krijg bij de code van CoD_NL de volgende foutmeldingen waaronder deze:

'Open' is not declared. File I/O functionality is available in the 'Microsoft.VisualBasic'

'Line' statements are no longer supported. File I/O functionality is available as 'Microsoft.VisualBasic.FileSystem.LineInput' and the graphics functionality is available as 'System.Drawing.Graphics.DrawLine'.

Ik gebruik VB 2005 komt het misschien daardoor?
Voor de duidelijkheid, bij het drukken op de knop Button1 moet er een random woord uit woordenlijst in een label gezet worden. Hoop echt dat het jullie gaat lukken:thumb:

 

[That Guy]

*ohja, random waarde, lekker handig, niet goed gelezen...


er ja, het komt omdat dat 6.0 code is, en jij dus .NET hebt. Ik weet zelf niet echt veel van .NET, maar was het niet iets van io filestream?

check deze links:
- http://www.homeandlearn.co.uk/NET/nets8p2.html
- http://articles.techrepublic.com.com/5100-22-1045309.html
en natuurlijk
- http://www.google.nl/search?hl=nl&q=visual+basic+.net+open+textfile&meta=

 

[TinusJan]

bedankt man hier kan ik wel wat mee. Maar mensen reageer nog gerust hoor

 

[TinusJan]

Ben nu zover dat ik de lijst van woorden in het label krijg te zien. Het is nu alleen de bedoeling dat hij er 1 laat zien en niet de hele lijst. Iets met random een regel lezen en in het label zetten. Heb alleen geen idee hoe ik dit moet doen.
Please help!!