Анализ и форматирование текста - 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
                        

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

10 голосов , оценка 4.3 из 5

Похожие ответы