Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks
Autor
Nachricht
tr4st
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 486
Zeilen in einer Datei zählen
Verfasst am: 16.04.2008, 22:11
Beschreibung:
Diese Funktion öffnet eine Datei und zählt die Zeilen dieser Datei und gibt diese als Integer aus.
Gezählt wird jeweils bis zum Zeilenumbruch.

Funktion:
Code:
Private Function CountedRows(ByVal FilePath As String) As Integer<br /><br />        Dim Rows_Count As Integer<br />        Dim TextLine As String<br />        Dim ff As Integer = FreeFile()<br />        Rows_Count = 0<br />        FileOpen(ff, filepath, OpenMode.Input)<br />        Do While Not EOF(ff)<br />            TextLine = LineInput(ff)<br />            Rows_Count = Rows_Count + 1<br />        Loop<br />        FileClose(ff)<br />        If Rows_Count = 0 Then<br />            Return "ERROR_NO_DATA_STRING"<br />            Exit Function<br />        Else<br />            Return Rows_Count<br />        End If<br /><br />End Function
Beispiel:
Code:
MessageBox.Show(CountedRows("c:test.txt"))

_________________
 
Marduk
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 374

Verfasst am: 06.05.2008, 20:00
Visual Basic: [code]Private Function count_rows(ByVal sFPath As String) As Integer
Try
Dim sReader As New IO.StreamReader(sFPath)
While Not sReader.EndOfStream
count_rows += 1
sReader.ReadLine()
End While
sReader.Close()
Return count_rows
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function[/code]

Ich hab die Funktion mal ein bisschen optimiert. Denn die FileOpen() Methode basiert im Grunde auf die IO-Klasse (Wrapper) Also ist hier die IO-Klasse effizienter Wink
 
tr4st
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 486

Verfasst am: 06.05.2008, 20:14
Sehr gute Arbeit Smile
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Tipps & Tricks

Tags: zeilen, zählen, datei, txt

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1038 30.10.2009, 11:26
Keine neuen Beiträge IntStr()funktion 1176 11.10.2007, 08:49
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1100 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1944s ][ Queries: 89 (0.0326s) ][ GZIP on - Debug on ]