Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zeilen einer Textdatei
Autor: fatality
Datum: 09.09.03 15:03
Moin Ich würde geren die ausgefüllten Zeilen einer Textdatei zählen lassen! Habe es bisher so gemacht: Public Sub AccAnz() On Error GoTo ErrHandler With frmYahoo.CommonDialog1 .CancelError = True .DialogTitle = "Yahoo Account Maker - Datei öffnen" .InitDir = App.Path .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly .Filter = "Account-Dateien (*.dat)|*.dat" .ShowOpen GetFileStatistic .FileName End With On Error GoTo 0 Exit Sub ErrHandler: Exit Sub End Sub Private Sub GetFileStatistic(ByVal vsFileName As String) Dim FN As Integer Dim strFileText As String Dim astrData() As String Dim strTemp As String Screen.MousePointer = vbHourglass 'Datei lesen: FN = FreeFile() Open vsFileName For Binary Access Read As #FN strTemp = Space(LOF(FN)) Get #FN, , strTemp Close #FN strFileText = strTemp ' Anzahl Zeilen ermitteln: astrData() = Split(strFileText, vbCrLf) frmYahoo.lblAnz.Caption = "Anzahl Accounts: " & Format$(UBound(astrData) + 1, "#,##0") Screen.MousePointer = vbDefault End Sub Auf diese Art zählt er aber auch die leeren Zeilen... wie kann ich nur Zeilen in denen auch wirdklich etwas steht zählen lassen? DANKE & Gruß fatality

Zeilen einer Textdatei	620	fatality	09.09.03 15:03
Re: Zeilen einer Textdatei	343	Dieter	09.09.03 15:22
Re: Zeilen einer Textdatei	316	fatality	09.09.03 16:55

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