Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

FUNZT NOCH NICHT GANZ PERFECT!?!
Autor: Chris
Datum: 11.11.01 20:53
Hi Ich habe ja das soweit begriffen wie es Funtioniert das Programm aber wenn ich erst die anzahl zbsp. 2 eingebe da kommen 2 namen aus der textdatei wenn ich aber dann aber 5 eingebe stehen da 7 namen und die ersten 2 sind die gleichen. hier nochmal das Progie: Dim TxtFile As String Dim FNr As Integer Dim i As Long Dim j As Long Dim zw As String Dim wArray() As String Dim TrZ As String Dim Msg As String Private myText As New Collection Private Sub CMD_generieren_click() Dim X As Long List1.Clear 'den Pfad der Applikation laden TxtFile = App.Path & "text.txt" 'prüfen ob Datei vorhanden If Dir(App.Path & "text.txt") = "" Then Msg = "Datei '" & TxtFile & " nicht gefunden" MsgBox Msg, , "Listbox einlesen" End If 'freie Dateinummer zuweisen lassen FNr = FreeFile Open App.Path & "text.txt" For Binary As #FNr 'Datei komplett auslesen zw = Space(LOF(FNr)) Get #FNr, , zw Close #FNr 'String in Array übernehmen wArray = Split(zw, vbCrLf) anz = txt_anzahl.Text X = 1 For X = 1 To anz Randomize el1 = Int(Rnd * UBound(wArray)) + 0 On Error Resume Next myText.Add wArray(el1), CStr(wArray(el1)) Next 'Output in List 1! List1.Clear For X = 1 To myText.Count List1.AddItem X & " " & myText(X) Next End Sub Private Sub cmd_Listedel_Click() List1.Clear End Sub

Listbox doppelte einträge	72	Chris	10.11.01 19:00
Re: Listbox doppelte einträge	565	unbekannt	10.11.01 19:34
Re: Listbox doppelte einträge wie jetzs? Hilfe!!!	63	Chris	10.11.01 19:42
haben wir gleich ... just a moment ...	570	unbekannt	10.11.01 19:49
????	551	unbekannt	10.11.01 20:02
Das ist Mut!	530	unbekannt	10.11.01 20:06
Re: Das ist Mut!	548	unbekannt	11.11.01 17:06
Das hat er eindeutig von uns	495	unbekannt	10.11.01 20:08
Au Backe ...	504	unbekannt	10.11.01 20:13
Re: haben wir gleich ... just a moment ...	520	unbekannt	10.11.01 20:21
Problem .... (oT)	540	unbekannt	10.11.01 20:23
txt_anzahl.Text ... ah (oT)	623	unbekannt	10.11.01 20:43
OK.. Programm durch ... (oT) ... gleich	500	unbekannt	10.11.01 20:47
Just a little moment ... (oT)	520	unbekannt	10.11.01 20:50
Konzept ... done (ein gutes Zeichen) (oT)	561	unbekannt	10.11.01 20:53
Ups ... da tun wir aber mal was korrigieren ...	526	unbekannt	10.11.01 19:57
(oT)	526	unbekannt	10.11.01 19:59
Re: (oT)	36	Chris	10.11.01 20:24
Done...	559	unbekannt	10.11.01 21:08
DANKe DANKE DANKE.	44	Chris	10.11.01 21:23
nana, warum ist Lord Moderator? (oT)	562	unbekannt	10.11.01 21:32
Lord Help funzt doch nicht	39	Chris	10.11.01 21:49
Re: Lord Help funzt doch nicht	497	unbekannt	10.11.01 22:01
und:	518	unbekannt	10.11.01 22:14
FUNZT NOCH NICHT GANZ PERFECT!?!	50	Chris	11.11.01 20:53
So sollte es gehen	506	Dieter	12.11.01 00:33
DANKE DANKE DANKE	36	Chris	12.11.01 01:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen