Herrausfinden wieviele Zeilen, bzw. Zeilenumbrüche eine Datei hat!

[Kriskra]

Jo die überschrift sagt schon alles! Ich muss herrausfinden wieviele Zeilen, bzw. Zeilenumbrüche eine Datei hat!

Hat jemand ne idee wie ich das anstellen könnte? Weil ich hab keine

Schonmal jetzt Danke!

Mfg Kriskra

(Is bestimmt ein ganz kleiner einfacher befehl, aber ich kenn ihn hald nicht :-( )

 

[DrSoong]

Einen eigenen Befehl gibt es nicht, hätte aber eine kleine Funktion für dich:

Public Function LineCount(ByVal myFile As String) As Long
 Dim varFile As String, FFile As Integer, varAnz As Integer, varPos As Long
 varFile = Space(FileLen(myFile))
 FFile = FreeFile
 
 Open myFile For Binary As FFile
  Get FFile, , varFile
 Close FFile
 varPos = 1
 varAnz = 1
 
 Do
  varPos = InStr(varPos, varFile, vbNewLine)
  If varPos > 0 Then
   varAnz = varAnz + 1
   varPos = varPos + 1
  End If
  DoEvents
 Loop Until varPos = 0
 
 LineCount = varAnz
End Function

Der Aufruf erfolgt mit

Result = LineCount(Filename)

Rückgabewert ist die Anzahl der Zeilen der Textdatei.


Der Doc!

 

[Kriskra]

Okay hat geklappt, danke dir

Mfg
Kriskra

 

[Kriskra]

Ich habs heut aber auch mit dem Zählen ^^

Wie finde ich raus wieviele Einträge ne List hat?

Danke schomal

Mfg
Kriskra

*edit* Okay war zu voreilig, *lol* "listcount" natürlich! Danke trotzdem ^^