Single Post - Посчет числа строк в исходниках

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Посчет числа строк в исходниках

Author

Message

Volniy

Posted: Wed Mar 04, 2009 19:41 Post subject:

Batya wrote:

Скорость не самая высокая

Попробуй вот так:

Code:

Function LinesInFile(pFile)
Dim OTF
On Error Resume Next
Set OTF = FSO.OpenTextFile(pFile, ForReading, False)
If Err.Number = 0 Then
OTF.ReadAll
LinesInFile = OTF.Line
OTF.Close
Else
LinesInFile = 0
End If
End Function

Должно по идее заработать повеселей.