Vypsání pole, pokud je hodnota větší než 0   zodpovězená otázka

VB.NET

Zdravím, ve VB jsem úplným začátečníkem (student SŠ) a potřeboval bych poradit. Za úkol mám simulovat hru dostihy kde je dráha realizována textovou formou ( pro 4 koně), je celkem 8 polí a do 4 z nich se eviduje historie házení kostkou (která se náhodně generuje ale dá se také ručně korigovat) a na požádání ji mám vypsat (program pracuje jak má jen bych chtěl upravit vypisování historie). Ovšem při vypisování mi to vypíše celé pole a většinou není ani celé pole vyplněné a odentrovat x MSgboxů které vyplivnou jen nulu je otravné. Dá se to nějak udělat aby mi to vypsalo z pole jen hodnoty které jsou větší než 1 a nejlépe za sebou do jednoho MsgBoxu ?

 Dim polef(20) As Integer

        Try
            For i = 0 To polef.Length - 1
                MsgBox(polef(i))
            Next
        Catch ex As Exception
            MsgBox("Stala se chyba!")
        End Try
nahlásit spamnahlásit spam 0 odpovědětodpovědět
If polef(i) > 1 Then
...
End If
nahlásit spamnahlásit spam 0 odpovědětodpovědět

Tak určitě. Mějme například

Dim polef() As Integer = {2, 2, 3, 3, 4, 4, 5, 5, 1, 5, 6, 8, 9, 6, 3, 2, 5, 1, 2, 3}

a pak na jeden úder:

MsgBox(String.Join(",", (From x In polef Where x > 1 Select x).ToArray))
nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

Nebo ještě o malikno čtivěji

MsgBox(String.Join(",", (polef.Where(Function(x) (x > 1))).ToArray))
nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

Děkuji, vše funguje jak má.

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback