Вывести все строки файла, начинающиеся с буквы Т - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д