Code: Select all
teksti$="kikkeli.txt"
include kikkeli$
Code: Select all
teksti$="kikkeli.txt"
include kikkeli$
Code: Select all
f = OpenToWrite( "ukkelit.txt" )
WriteLine f, "Ukko1"
WriteInt f, 10
WriteLine f, "Ukko2"
WriteInt f, 12
WriteLine f, "Ukko3"
WriteInt f, 8
CloseFile f
Dim ukot( 2, 1 ) As String
f = OpenToRead( "ukkelit.txt" )
While Not EOF( f)
ukot( row, 0 ) = ReadLine( f )
ukot( row, 1 ) = ReadInt( f )
row + 1
Wend
CloseFile f
For i = 0 To 2
Print "Nimi: " + ukot( i, 0 )
Print "Voima: " + ukot( i, 1 )
Print ""
Next i
WaitKey