Anzahl Zeilen in einer Textdatei

[joachim gartner]

Hallo,

ich will eine txt datei via visual basic 2010 Express edition in eine Access datenbank importieren. vor dem Importieren will ich allerdings die anzahl der Zeilen einem processbar übergeben. mit dem Code:

Do Until ausgabe.Peek = -1
ncount = ncount + 1
text = ausgabe.ReadLine
Loop

funktioniert es auch. Da die txt dateien aber sehr groß sind braucht das doch etwas bis ich den Wert habe. Weiß jemand eine methode die schneller geht****?

danke schonmal für die Antwort

Gruß Joachim

 

[Yaslaw]

Ist VB2010Express nicht eher .NET als das alte VB6?

 

[joachim gartner]

ja ich denke schon. Arbeite noch nicht so lange damit.

 

[DrSoong]

Probier mal diesen Tipp hier aus, vielleicht ist der schneller als das, was du momentan hast.


Der Doc!

 

[joachim gartner]

auch nicht schlecht aber habe mich jetzt für diese Lösung entschieden

Function ZeilenZahl(Text As String) As Long
Dim TextLänge As Long
Dim ZeilenAnzahl As Long
Dim ExtraZeile As Integer
Dim HilfsText As String

If Right$(Text, 2) <> vbCrLf Then
ExtraZeile = 1
End If
TextLänge = Len(Text)
HilfsText = Replace(Text, vbCrLf, "")
ZeilenZahl = ((TextLänge - Len(HilfsText)) \ 2) + ExtraZeile
End Function


danke aber für Eure Unterstützung