Via Vb Zeilen in einem Textdokument zählen

10
9
Dim TestFile As String = "D:\Test.txt"  
Dim sr As IO.StreamReader = New IO.StreamReader(TestFile)
Dim Text() As String = Split(sr.ReadToEnd, vbCrLf) 'zeilenweise in Array einlesen  
sr.Close()

Dim sw As IO.StreamWriter = New IO.StreamWriter(TestFile)
sw.WriteLine(CStr(UBound(Text) + 1)) 'Zeilenanzahl schreiben  
sw.Write(Join(Text, vbCrLf)) 'Array schreiben  
sw.Close()

Imports System.IO
Imports System.Text

Module Module1

    Sub Main()

        'Bestimmen und deklarieren der Variablen  
        Dim objStreamWriter As StreamWriter
        Dim Dateiinhalt As String
        Dim Datum As String = Today
        Dim Zeit As String = Now
        Dim FileIn As String = "pfad1 (Quelldatei)"  
        Dim FileOut As String = "pfad2 (Ausgangsdatei)"  

        'Einlesen der Datei  
        Dateiinhalt = My.Computer.FileSystem.ReadAllText(FileIn)

        'Ersetzen des Teilstrings , durch ein Leerschlag  
        Dateiinhalt = Replace(Dateiinhalt, ",", " ")  

        'Zählen der Zeilen  
        Dim Text() As String = Split(Dateiinhalt, vbCrLf) 'Dateiinhalt zeilenweise in Array einlesen ...  
        Dim Zeilenanzahl As Long = UBound(Text) + 1 '... und die Zeilenanzahl aus dem höchsten Index ermitteln  

        'Erstellen der Datei  
        objStreamWriter = New StreamWriter(FileOut)

        'Einfügen von Komponenten für die Headzeile  
        objStreamWriter.WriteLine("00" & vbTab & "OS1" & vbTab & Datum & Zeit & " " & vbTab & "PRO" & CStr(Zeilenanzahl))  

        'Einfügen des Strings "Dateiinhalt" in die Datei  
        objStreamWriter.Write(Dateiinhalt)

        'Schliessen der Datei  
        objStreamWriter.Close()

    End Sub
End Module