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