[markaV]

Autor malixx

Eeee evo napravio sam primjer, samo jel može to u nekakvoj petlji da bude kraće, isto to.. ?

If krt(1) = "" Then
krt(1) = clave & all_chars(random_index)
Else
   If krt(2) = "" Then
   krt(2) = clave & all_chars(random_index)
   Else
      If krt(3) = "" Then
      krt(3) = clave & all_chars(random_index)
      Else
         If krt(4) = "" Then
         krt(4) = clave & all_chars(random_index)
         Else
            If krt(5) = "" Then
            krt(5) = clave & all_chars(random_index)
            Else
               If krt(6) = "" Then
               krt(6) = clave & all_chars(random_index)
               End If
            End If
         End If
      End If
   End If
End If

Mozda ovo hoces???:


Dim i as integer
For i=0 to 5
If krt(i) = "" Then
krt(i) = clave & all_chars(random_index)
End If
End For

Iako ti ne treba ni if

Dim i as integer
For i=0 to 5
krt(i) = clave & all_chars(random_index)
End For

Jel to trebas?