Определить количество строк в открытом файле - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д