StreamReader cyklus (VB .NET) – .NET – Fórum – Programujte.com

Zdravíčko,

mám problém se syntaxí cyklu u kvízu.

Mám textový soubor, ve kterém mám uložené otázky a odpovědi následujícím způsobem:
Otazka1|odpoved1|odpoved2|odpoved3|odpoved2jespravna (identifikátor správné odpovědi)
Potřebuju aby se mi to při začátku programu načetlo (texťák) a pak zavřelo. Aby zvolil náhodou otázku (budu tam mít sadu třeba sta otázek) rozházel to do textboxů, a pak už jen na button udělat nějaký příkaz (nevím jaký) aby zhodnotil odpověd a vygeneroval novou.

[code]
Dim soubor As New IO.StreamReader("databaseotazekaodpovedi.txt") 
While Not soubor.EndOfStream
Dim otazka As string = soubor.ReadLine() //takhle mi to ale čte po řádcích 
Dim odpoved1 As string = soubor.ReadLine()
Dim odpoved2 As String = soubor.ReadLine()
Dim odpoved3 as string = soubot.readline()
 

Dim otazka As New textbox1()
im odpoved1 as new textboy2()
dim odpoved2 as new textbox3()
dim odpoved3 as new textbox4() If odpoved1,2,3 = "nějaký identifikátor, nevím jak to napsat" Then polozka = jako správná odpoved End While

[/code]

#1 pase_v_klecy
Sice to není ve VB ale myslím, že na netu je spousta převodníku do VB

 Tohle ti načte v konstruktoru do listu otázky který pak můžeš používat jako

otazky[index].Otazka nebo otazky[index].Odpoved_1 apod.

public class Questions
    {
        public String Otazka { get; set; }
        public String Odpoved_1 { get; set; }
        public String Odpoved_2 { get; set; }
        public String Odpoved_3 { get; set; }
        public String Identifikator { get; set; }
    }

    public class Otazky
    {
        List<Questions> otazky;
        public Otazky()
        {
            otazky = new List<Questions>();
            StreamReader sr = new StreamReader("soubor.txt");
            while (!sr.EndOfStream)
            {
                Questions q = new Questions();
                String[] line = sr.ReadLine().Split('|');
                q.Otazka = line[0];
                q.Odpoved_1 = line[1];
                q.Odpoved_2 = line[2];
                q.Odpoved_3 = line[3];
                q.Identifikator = line[4];
                otazky.Add(q);
            }
        }
    }