Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Listbox doppelte einträge wie jetzs? Hilfe!!!
Autor: Chris
Datum: 10.11.01 19:42
Jo aber weis nicht wie ich das in mein programm einbinden soll? Das ist mein programm: textdatei (text.txt) sieht so aus: RVD Booker T Bret Hart Goldberg DDP Billy Kidman Owen Hart Stone cold The Rock Kanyon Auf der form gibt es: Textfeld=txt_anzahl;Listbox=List2;listbox=list1; und die text.txt datei muss im verzeichnis wo man das programm abspeichert liegen. 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 Sub CMD_generieren_click() 'den Pfad der Applikation laden TxtFile = App.Path & " ext.txt" 'prüfen ob Datei vorhanden If App.Path & " ext.txt" = "" Then Msg = "Datei '" & TxtFile & " nicht gefunden" MsgBox Msg, , "Listbox einlesen" Exit Sub End If 'Flackern verhindern List1.Visible = False 'freie Dateinummer zuweisen lassen FNr = FreeFile Open App.Path & " ext.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) 'eintragen nur List(Item) List1.AddItem wArray(i) x = 1 anz = txt_anzahl List1.Clear For x = 1 To anz Randomize el1 = Int(Rnd * UBound(wArray)) List2.AddItem el1 If el1 <> List2 Then List1.AddItem wArray(el1) Next x 'List2.Clear List1.Visible = True List1.SetFocus 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!	547	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.	43	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!?!	49	Chris	11.11.01 20:53
So sollte es gehen	505	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