Подсчитать количество строк в файле - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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