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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.700 из 5

Источник