Функция подсчёта количества строк в файле на VB6 (для всех кодировок файлов)

Option Explicit
Private Declare Function IsFileAPI Lib "shlwapi" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Declare Function StrStrA Lib "shlwapi" (ByVal pszFirst As Long, ByVal pszSrch As Long) As Long
Private Declare Function StrStrW Lib "shlwapi" (ByVal pszFirst As Long, ByVal pszSrch As Long) As Long
 
' Подсчитать количество строк в файле, в кодировке ANSI или UTF8
Public Function CountStrsFromFileA(FileName As String) As Long
    Dim FileNo As Integer
    Dim str() As Byte
    Dim fLen As Long
    Dim NewLine As Long
    Dim FirstSearch As Long
    Dim SearchFromTheSymbol As Long
    Dim cnt As Long
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(fLen - 1)
        Get #FileNo, , str
    Close FileNo
    
    cnt = 1
    SearchFromTheSymbol = VarPtr(str(0))
    NewLine = StrPtr(vbNewLine)
    
    Do
        FirstSearch = StrStrA(SearchFromTheSymbol, NewLine) ' Искать нужную нам строку
        If FirstSearch > 0 Then
            cnt = cnt + 1
            SearchFromTheSymbol = FirstSearch + 2 ' + vbcrlf
        End If
    Loop While FirstSearch > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока
    
    CountStrsFromFileA = cnt
End Function
 
' Подсчитать количество строк в файле, в кодировке UTF16LE или UTF16BE (работает даже без BOM)
Public Function CountStrsFromFileW(FileName As String) As Long
    Dim FileNo As Integer
    Dim str() As Byte
    Dim fLen As Long
    Dim NewLine As Long
    Dim FirstSearch As Long
    Dim SearchFromTheSymbol As Long
    Dim cnt As Long
    Dim i As Long
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function ' Если в файле 0 байт значит в файле 0 строк
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(fLen - 1)
        Get #FileNo, , str
    Close FileNo
    
    ' Если файл это файл размером один байт
    If UBound(str) < 1 Then
        If str(0) = 13 Then cnt = 2
        
        CountStrsFromFileW = cnt
        Exit Function
    End If
    
    If str(0) = 254 And str(1) = 255 Then ' UTF16BE
        SearchFromTheSymbol = VarPtr(str(1)) ' Изменим адресацию поиска +1 байт
        NewLine = StrPtr(Chr(13) & Chr(0) & Chr(10))
    Else ' UTF16LE обычное
        SearchFromTheSymbol = VarPtr(str(0))
        NewLine = StrPtr(vbNewLine)
    End If
    
    cnt = 1 ' Будем предполагать, что в файле всегда есть хотя бы одна строка, если в файле не 0 байт конечно...
    
    Do
        FirstSearch = StrStrW(SearchFromTheSymbol, NewLine) ' Искать нужную нам строку
        If FirstSearch > 0 Then
            cnt = cnt + 1
            SearchFromTheSymbol = FirstSearch + 4 ' + vbcrlf
        End If
    Loop While FirstSearch > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока
    
    If cnt = 1 Then ' Если ничего не найдено, попытаться поискать снова (на случай если в файле UTF16BE была утрачена запись BOM)
        SearchFromTheSymbol = VarPtr(str(1)) ' Изменим адресацию поиска +1 байт
        NewLine = StrPtr(Chr(13) & Chr(0) & Chr(10))
    
        Do
            FirstSearch = StrStrW(SearchFromTheSymbol, NewLine) ' Искать нужную нам строку
            If FirstSearch > 0 Then
                cnt = cnt + 1
                SearchFromTheSymbol = FirstSearch + 4 ' + vbcrlf
            End If
        Loop While FirstSearch > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока
    End If
    
    CountStrsFromFileW = cnt
End Function

' Подсчитать количество строк в файле, в кодировке ANSI или UTF8
Public Function CountStrsFromFileSimple(FileName As String) As Long
    Dim FileNo As Integer
    Dim str() As Byte
    Dim fLen As Long
    Dim cnt As Long
    Dim i As Long
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(fLen - 1)
        Get #FileNo, , str
    Close FileNo
    
    cnt = 1
    
    For i = 0 To UBound(str)
        If str(i) = 10 Then ' vbLf
            cnt = cnt + 1
        End If
    Next
    
    CountStrsFromFileSimple = cnt
End Function

' Подсчитать количество строк в файле во всех кодировках
Public Function CountStrsFromFileUniversal(FileName As String) As Long
    Dim FileNo As Integer
    Dim str() As Byte
    Dim fLen As Long
    Dim cnt As Long
    Dim i As Long
    
    If IsFileAPI(FileName) = 0 Then Exit Function ' Файл не существует, с вероятностью 99%
    fLen = FileLen(FileName)
    If fLen = 0 Then Exit Function
    
    ' Инициализировать счётчик
    FileNo = FreeFile
    
    ' Открыть файл
    Open FileName For Binary As FileNo
        ReDim str(fLen - 1)
        Get #FileNo, , str
    Close FileNo
    
    cnt = 1
    
    For i = 0 To UBound(str)
        If str(i) = 10 Then ' vbLf
            If i <> 0 Then
                If str(i - 1) = 13 Then ' Если предыдущий символ это vbCr
                    cnt = cnt + 1
                End If
                If str(i - 1) = 0 Then ' Если предыдущий символ это ноль
                    If i > 1 Then
                        If str(i - 2) = 13 Then ' Если два символа назад это vbCr
                            cnt = cnt + 1
                        End If
                    End If
                End If
            End If
        End If
    Next
    
    CountStrsFromFileUniversal = cnt
End Function