Вывести все строки файла, начинающиеся с буквы Т - VB

Узнай цену своей работы

Формулировка задачи:

Имеется текстовый файл. Напечатать: а) все его строки, начинающиеся с буквы Т б) все его строки, содержащие более 30 символов в) все его строки, в которых имеется более трех пробелов г) все его строки, содержащие в качестве фрагмента заданный текст

Решение задачи: «Вывести все строки файла, начинающиеся с буквы Т»

textual
Листинг программы
Option Explicit
Const SPACE As Integer = 3              'Число пробелов
Const LEN_STRING As Integer = 30        'Длина строки
Const START_CHAR As String = "Т"        'Искомый символ
Const FIND_TEXT As String = "вопросов"  'Искомое выражение
 
Sub main()
    Dim A As String
    Dim I As Integer, N As Integer
    Open App.Path & "\Test.txt" For Input As #1         'Тестовый файл
    Open App.Path & "\File_T.txt" For Append As #2      'Файл для строк начинающихся с заданой буквы
    Open App.Path & "\File_30.txt" For Append As #3     'Файл для строк длинее 30 символов
    Open App.Path & "\File_Text.txt" For Append As #4   'Файл для строк с искомым выражением
    Open App.Path & "\File_Space.txt" For Append As #5  'Файл для строк с Ю3 пробелов
    Do While Not EOF(1)
        Line Input #1, A
        If UCase(Left(A, 1)) = UCase(START_CHAR) Then
            Print #2, A
        End If
        If Len(A) > LEN_STRING Then
            Print #3, A
        End If
        If InStr(1, A, FIND_TEXT, vbTextCompare) > 0 Then
            Print #4, A
        End If
        I = 0: N = 0
        Do
            I = InStr(I + 1, A, " ", vbTextCompare)
            If I > 0 Then
                N = N + 1
                If N > SPACE Then
                    Print #5, A
                    Exit Do
                End If
            End If
        Loop While I > 0
    Loop
    Close #5
    Close #4
    Close #3
    Close #2
    Close #1
End Sub

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


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

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

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