Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Noch was!
Autor: Noura
Datum: 05.12.01 11:57
Hallo Dieter! Danke erstmal,aber n wird ermittelt durch Aufruf der Prozedur Zeilenanzahl,die mir die Anzahl der Zeilen meiner Textdatei ermittelt. in diesem Fall n=41;Da diese Textdatei verschiedene Anzahl der Zeilen enthalten kann ,habe ich die Zeilenanzahl Prozedur eingefügt und sie funktionert und sieht so aus : Private Sub Zeilenanzahl() Dim temp As String Dim n As Integer Dim F As Integer Dim srcFile As String F = FreeFile srcFile = "c:Testdestination.txt" Open srcFile For Input As #F Do While Not EOF(F) n = n + 1 Line Input #F, temp Loop Close #F n= n-1 End Sub Für jede Hilfe bin ich sehr Dankbar; schönen Tag noch

Zeilenanzahl	155	Noura	04.12.01 16:48
Re: Zeilenanzahl	131	Henryk	04.12.01 18:42
Re: Zeilenanzahl	320	unbekannt	04.12.01 18:58
Re: Zeilenanzahl	117	Henryk	04.12.01 19:05
Re: Zeilenanzahl	312	unbekannt	04.12.01 19:12
Re: Zeilenanzahl	128	Henryk	04.12.01 19:18
(oT)	315	unbekannt	04.12.01 19:20
Noch was!	116	Noura	05.12.01 10:56
Re: Noch was!	355	Dieter	05.12.01 11:03
Re: Noch was!	127	Noura	05.12.01 11:57
Jein.	327	Dieter	05.12.01 13:06
Danke!es funktioniert	104	Noura	05.12.01 13:36

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