obsah seznam.txt: Pepa Svátek 15 Karel Novák 1 Mirek Prokop 182 Martin Kopecký 78
'v Class Form1
dim linesStorage as new Collection
dim counter as new integer
've form1.load
dim seznamReader as new IO.StreamReader("seznam.txt")
while not seznamReader.endOfFile
linesStorage.add(seznamReader.readLine())
end while
'pod událostí click tlačítka vpřed (btn_vpred)
if counter<linesStorage.count then
counter+=1
end if
dim separate() as String=linesStorage(counter).split(" ")
btn_vpred.text=separate(0)
btn_vzad.text=separate(0)
'pod událostí click tlačítka vzad (btn_vzad)
if counter>1 then
counter-=1
end if
dim separate() as String=linesStorage(counter).split(" ")
btn_vzad.text=separate(0)
btn_vpred.text=separate(0)
PetrS
|