Private Sub CountWords(ByVal sLine As Integer)
Dim sTemp() As String
sLine = Split(sTemp, " ")
MsgBox (Ubound(sTemp) + 1) & " Words"
End Sub
 
Private Sub AnalyzeFile(ByVal sFile As String)
' Datei einlesen
Dim No As Integer
Dim sContent As String
No = FreeFile
Open sFile For Binary As #No
sInput = Space(LOF(No))
Get #No,, sInput
Close No
' Datei in einzelne Zeilen aufteilen
Dim sSplitted() As String
sSplitted = Split(sContent, vbNewLine)
' Anzahl Zeilen zurückgeben
MsgBox (Ubound(sSplitted) + 1) & " Zeilen"
' Datei zeilenweise durchgehen
Dim i As Integer
For i = 0 To Ubound(sSplitted)
  CountWords(sSplitted(i))
Next i
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.