Sziasztok,

 

Van egy kérdésem:

 

Van egy HianyzoSzamlaSzam(1 to 21) tömböm. Ezeket ki akarom íratni egy msgbox-ba.

Egyszerűbb ha bemásolok pár sort:

 

    Szoveg1 = "Ezt a számlaszámot nem találtam az '1' nevű fájlban:"
    Szoveg2 = "Ezeket a számlaszámokat nem találtam az '1' nevű fájlban:"
    Select Case o
    Case 1
         Mentes = True
    Case 2
        Szoveg3 = Szoveg1 & " & Chr(13) & HianyzoSzamlaSzam(o)"
        MsgBox (Szoveg3)
    Case 3
        Szoveg3 = Szoveg2 & Chr(13) & HianyzoSzamlaSzam(o - 1) & Chr(13) & HianyzoSzamlaSzam(o)
        MsgBox (Szoveg3)
    Case 4
        Szoveg3 = Szoveg2 & Chr(13) & HianyzoSzamlaSzam(o - 2) & Chr(13) & HianyzoSzamlaSzam(o - 1) & Chr(13) & HianyzoSzamlaSzam(o)
        MsgBox (Szoveg3)
    Case 5
        Szoveg3 = Szoveg2 & Chr(13) & HianyzoSzamlaSzam(o - 3) & Chr(13) & HianyzoSzamlaSzam(o - 2) & Chr(13) & HianyzoSzamlaSzam(o - 1) & Chr(13) & HianyzoSzamlaSzam(o)
        MsgBox (Szoveg3)

    .

    .

    .

     Case 21
        Szoveg3 = Szoveg2 & Chr(13) & HianyzoSzamlaSzam(o - 19) & Chr(13) & HianyzoSzamlaSzam(o - 18) & Chr(13) & HianyzoSzamlaSzam(o - 17) & Chr(13) & HianyzoSzamlaSzam(o - 16) & Chr(13) & HianyzoSzamlaSzam(o - 15) & Chr(13) & HianyzoSzamlaSzam(o - 14) & Chr(13) & HianyzoSzamlaSzam(o - 13) & Chr(13) & HianyzoSzamlaSzam(o - 12) & Chr(13) & HianyzoSzamlaSzam(o - 11) & Chr(13) & HianyzoSzamlaSzam(o - 10) & Chr(13) & HianyzoSzamlaSzam(o - 9) & Chr(13) & HianyzoSzamlaSzam(o - 8) & Chr(13) & HianyzoSzamlaSzam(o - 7) & Chr(13) & HianyzoSzamlaSzam(o - 6) & Chr(13) & HianyzoSzamlaSzam(o - 5) & Chr(13) & HianyzoSzamlaSzam(o - 4) & Chr(13) & HianyzoSzamlaSzam(o - 3) & Chr(13) & HianyzoSzamlaSzam(o - 2) & Chr(13) & HianyzoSzamlaSzam(o - 1) & Chr(13) & HianyzoSzamlaSzam(o)
        MsgBox (Szoveg3)

 

és ezek a sorok ismétlődnek, bővülnek egészen case 21-ig.

A kérdés, ezt hogyan lehet egyszerűbben, mondjuk egy ciklusban feltölteni.

 

Remélem érthető a kérdés. :)

 

Köszönettel: Sznido