Подсчитать количество строк в файле - VB
Формулировка задачи:
В общем, в текстовом файле записи. Нужно посчитать сколько в нем строк, строки в которых одни пробелы или пустые строки не считаются.
Помогите пожалуйста
Решение задачи: «Подсчитать количество строк в файле»
textual
Листинг программы
Private Sub cmdStart_Click() Dim sT As String Dim iFn As Integer Dim lNumLine As Long Dim sMsg As String ' If Trim$(sFnNumLine) = "" Then sMsg = "Откройте файл для обработки!" MsgBox sMsg, 48 Exit Sub End If ' ' Открываем файл для подсчёта строк iFn = FreeFile Open sFnNumLine For Input As #iFn lNumLine = 0 Do While Not EOF(iFn) Line Input #iFn, sT If Trim$(sT) <> "" Then ' Считаем только непустые строки и не из пробелов lNumLine = lNumLine + 1 End If Loop Close #iFn sT = "В файле:" sT = sT + Chr$(13) + Chr$(10) sT = sT + sFnNumLine sT = sT + Chr$(13) + Chr$(10) sT = sT + "количество строк равно:" sT = sT + Str$(lNumLine) txtResult.Text = sT End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д