VB6: Randomize Frage

[Strahleman]

Hiho,

ich würd gerne ein Programm machen, dass mir auf Buttonklick einen x-beliebigen Namen aus einer .txt Datei zeigt.
Da ich aber totaler VB N00b bin hab ich Null Peilung, wie man dies anstellen könnte
Wäre über ein bisschen Hilfe sehr dankbar

 

[Daniel Toplak]

Also sagen wir du hast eine Datei die folgendermasen aufgebaut ist:

Egon
Hans
Sepp
usw.

Dann liest du die Datei Zeile für Zeile in ein Array ein. (Wie das geht, kannst du hier im Forum nachlesen).
Dann generierst du dir eine Zufallszahl zwischen 1 und der Anzahl der Elemente im Array:

Dim element
Randomize   ' Zufallszahlengenerator initialisieren.

element = Int((UBound(array) * Rnd) + 1)   ' Zufallszahlen im Bereich von 1 bis 6
   ' generieren.

Dann lässt du den zufälligen namen ausgeben:

MsgBox array(element)

Das wars.

Gruss Homer