Определить количество строк в открытом файле - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Напишите пожалуйста исходник. Мне нужно чтобы, 1. "программа открывала файл(желательно TXT)" 2."считала сколько строчек в открытом файле" 1. знаю 2. ПОМОГИТЕ. ЗАрание благодерен.

Решение задачи: «Определить количество строк в открытом файле»

textual
Листинг программы
Private Sub Комманда1_Click()
Dim M() As String
   Dim File As String, CF As String
   File = "d:\ca.log"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
      Close #1
M = Split(CF, vbNewLine)
MsgBox "Всего " & UBound(M) - 1 & "строчек"
End Sub

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы