Visual Basic Forum

KleinesVoodoo · Coder Anmeldedatum: 17.04.2008 Beiträge: 78

[U]Hauptfunktion

[/U]Name: ReadLines
Funktion: Liest bestimmte Zeilen komfortabel aus einer Datei.
Rückgabe: String

Beschreibung:
Die Funktion liest bestimmte Zeilen aus einer Datei aus. Wird keine Startzeile angegeben, wird der Dateiinhalt ab der ersten Zeile ausgelesen. Wird keine Endzeile angegeben, wird die Datei bis zu ihrem Ende ausgelesen. Kurz: Die Argumente 2 und 3 sind optional.

Code:

Visual Basic: [code]Public Function ReadLines(sPath As String, _
Optional lStart As Long = 0, Optional lEnd As Long = 0) As String

On Error GoTo Errhandler:

Dim sTemp As String, sOutput As String
Dim FF As Integer

FF = FreeFile

Open sPath For Input As #FF
If lStart = 0 Then GoTo 10

For i = 1 To lStart - 1
Input #FF, sTemp
Next

10
If lEnd = 0 Then GoTo 20

For i = lStart To lEnd
If EOF(FF) = True Then
Exit For
End If

Input #FF, sTemp

If sOutput = "" Then
sOutput = sTemp
Else
sOutput = sOutput & vbCrLf & sTemp
End If
Next
Close #FF

GoTo 30

20
Do Until EOF(FF) = True
Input #FF, sTemp

If sOutput = "" Then
sOutput = sTemp
Else
sOutput = sOutput & vbCrLf & sTemp
End If
Loop

30
ReadLines = sOutput

Exit Function
Errhandler:

ReadLines = "An error occurred."

End Function[/code]Verwendung:

Visual Basic: [code]Dim sVar As String, Dateipfad As String, _
Startzeile As Long, Endzeile As Long

Dateipfad = "C:datei.txt"
Startzeile = 3
Endzeile = 6

sVar = ReadLines(Dateipfad, Startzeile, Endzeile[/code][U]Hilfsfunktion
[/U]
Name: CountLines
Funktion: Zeilen einer Datei (+1) zählen
Rückgabe: Long

Beschreibung:
Zählt die Zeilen einer Datei und addiert 1 (speziell für die Funktion oben)

Code:

Visual Basic: [code]Public Function CountLines(sPath As String) As Long
On Error GoTo Errhandler:

Dim lLines As Long, FF As Integer, sTemp As String

FF = FreeFile

Open sPath For Input As #FF
Do Until EOF(FF) = True
Input #FF, sTemp
lLines = lLines + 1
Loop
Close #FF

CountLines = lLines + 1

Exit Function
Errhandler:

CountLines = 0
End Function[/code]Verwendung:

Visual Basic: [code]Dim lLines As Long, sPfad As String
sPfad = "C:text.txt"

lLines = CountLines(sPfad)[/code]
_________________