Анализ и форматирование текста - VB
Формулировка задачи:
Дан текстовый файл. Найти количество абзацев в тексте, если пер-
вая строка каждого абзаца начинается с 5 пробелов («красная строка»).
Пустые строки между абзацами не учитывать.
Решение задачи: «Анализ и форматирование текста»
textual
Листинг программы
- Function parCounter(fname as string) as integer
- fi%=FreeFile
- Open fname for input as #fi%
- Do while not EOF(fi%)
- line input #fi%,Stri$
- If Len(Trim$(Stri$)) > 0 Then
- If left$(Stri$,5)=Space$(5) then parCounter=parCounter+1
- end if
- Loop
- close #fi%
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
