Форум программистов, компьютерный форум, киберфорум
Наши страницы
zink0000
Войти
Регистрация
Восстановить пароль
Сарай №XII
(Юрий Зинковский)

Мой блог.
Оценить эту запись

Подсчитать количество строк в файле

Запись от zink0000 размещена 25.09.2014 в 10:40
Обновил(-а) zink0000 25.09.2014 в 10:47 (Ошибочное создание записи в блоге.)

Цитата:
Сообщение от zink0000 Посмотреть сообщение
Держите, если ещё актуально, если нет - может кому ещё пригодится:
Вложение 436258
Собственно сам подсчёт строк:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

Ну и ладно пусть запись и здесь торчит.
Размещено в Без категории
Просмотров 678 Комментарии 1
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Аватар для zink0000
    Эта запись в блог попала по ошибке.
    А удалить я её почему-то не могу.
    Запись от zink0000 размещена 30.12.2014 в 08:39 zink0000 вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.