Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Teil 2: Done.
Autor: unbekannt
Datum: 12.01.02 16:35
Hi Atlan, des Schreckens 2. Teil naht Private Sub Form_Load   Byte Dim DSNr As Long, i As Long F = FreeFile() On Error Goto FileError Open "Adressen.TXT" For Random As #F Len= Len(Addressen) On Error Goto 0 'Satzanzahl ermitteln If LOF(F) > 1 Then DSNr = (LOF(F) / Len(Addressen)) Else 'Satz mit X keine DS vorhanden Close #F Exit Sub End If For i=1 to DSNr Get #F,i,Addressen List1.AddItem Trim(Addressen.Name) & vbTab & _ Trim(Addressen.Vorname) List1.ItemData(List.ListIndex) = Trim(Addressen.Satznummer) Next Close #F Exit Sub FileError: MsgBox "Fehler beim Öffnen der Datei.",vbExclamation, "Dateifehler" End Sub

Text einlesen 2	93	Atlan	12.01.02 00:43
Na, da wollen wir Dich vor einem schweren Designfehler schüt...	239	unbekannt	12.01.02 12:35
Teil 1: Done.	244	unbekannt	12.01.02 16:05
Re: Teil 2: Done.	235	unbekannt	12.01.02 16:35
Re: Teil 3: Done.	251	unbekannt	12.01.02 16:45
Re: Teil 4: Done.	216	unbekannt	12.01.02 17:28
Das war's mal, aber:	224	unbekannt	12.01.02 17:36
Re: Das war's mal, aber:	37	Atlan	12.01.02 21:27
Wieso, das ist doch keine Datenbank? Naja, ich fasse es mal ...	261	unbekannt	12.01.02 21:35
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...	72	Atlan	13.01.02 00:10
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...	239	unbekannt	13.01.02 00:23
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...	68	Atlan	13.01.02 01:46
Re: Wieso, das ist doch keine Datenbank? Naja, ich fasse es ...	214	unbekannt	13.01.02 01:48
Komplett und funkt	344	unbekannt	13.01.02 15:03
Re: Komplett und funkt	47	Atlan	13.01.02 16:07
Na, löschen wir mal ...	432	unbekannt	13.01.02 18:11
Re: Na, löschen wir mal ...	42	Atlan	13.01.02 18:36
Re: Na, löschen wir mal ...	284	unbekannt	13.01.02 19:11
Re: Na, löschen wir mal ...	38	Atlan	13.01.02 20:09
Re: Na, löschen wir mal ...	240	unbekannt	13.01.02 20:15
Re: Na, löschen wir mal ...	58	Atlan	13.01.02 21:10
Re: Na, löschen wir mal ...	252	unbekannt	14.01.02 00:22
Re: Na, löschen wir mal ...	44	Atlan	14.01.02 23:37
Re: Na, löschen wir mal ...	35	Atlan	16.01.02 09:56
Re: Na, löschen wir mal ...	43	Atlan	16.01.02 19:59
Hi ... Hi ....	439	unbekannt	16.01.02 20:06
Re: Hi ... Hi ....	46	Atlan	16.01.02 21:50
So isses ... fast ... Good work! (oT)	240	unbekannt	16.01.02 21:55
Naja, wenn einige bei Snake so mitgedacht hätten ... uiii	361	unbekannt	16.01.02 22:11
Re: Naja, wenn einige bei Snake so mitgedacht hätten ... uii...	44	Atlan	17.01.02 10:56
Hi Lordchen	37	Atlan	20.01.02 11:29

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