End Sub. ' Очищает ячейки с вычислениямиSub Очистка() ' ' Очистка Макрос ' Очищает ячейки с вычислениями ' ' Сочетание клавиш: Ctrl+o ' Range("a3:D5").Select Selection.ClearContents End Sub Тесты:y=x^2, a=0, b=1
Лабораторная работа № 4 Тема. Работа с файлами Вариант №0 Задание: С помощью программных средств VBA разработать программу, считывающую из заранее созданного текстового файла фрагмент текста объемом 300 - 400 символов, содержащий буквы русского алфавита, цифры, знаки пунктуации и пробел. Текст должен быть представлен в отдельном окне с переносом информации на новую строку только в позиции пробела. Программа должна проанализировать выводимый текст и отдельно вывести удовлетворяющие заданному варианту слова и их количество. Отдельно вывести и подсчитать слова, содержащие не менее двух повторяющихся букв. Пояснения:Алгоритм для данной задачи состоит в следующем: Сначала создаётся текстовый файл (тип txt) для внесения исходных данных и заполняется текстом. Потом этот файл закрывается и сразу открывается вновь для извлечения из него нужной информации. Параллельно создается файл для хранения результатов обработки информации из первого файла. Начинаем считывать по одной строке из файла с данными, пока не дойдем до конца файла. Считываемые строки сохраняются в строковую переменную через пробел. Далее, так как нам не нужны лишние пробелы, а так же знаки препинания и цифры (знаки препинания говорят о конце слова и в слово не входят, а цифры не являются буквами, и обычно используются отдельно от слов, например «15 мая»), то мы удаляем их из полученной строки. Определив длину преобразованной строки, начинаем ее обрабатывать исходя из условия задания: Просматриваем все символы от 1 до последнего. 1. Отцепив первый символ, сравниваем его с пробелом (пробел свидетельствует о конце слова). Если символ не пробел, то прицепляем его к переменной, созданной для получения отдельных слов. Так до тех пор, пока не соберем первое слово. В этом же цикле подсчитываем количество букв в первом слове и увеличиваем счетчик букв основной строки на 1 после просмотра каждой отдельной буквы. 2. Когда первое слово получено, мы создаем флаг, сигнализирующий о выполнении или невыполнении условий задания. Изначально он равен нулю. 3. Так как повторяющиеся буквы могут встречаться только в слове, состоящем из 2 букв и более, то обрабатываем только такие слова. 4. Обработка заключается в следующем: берем первую букву слова и сравниваем ее со всеми буквами слова, в том числе и с ней самой. Если буква нашла себе подобную, то флаг увеличивается на 1, и так пока все буквы не пересмотрим. 5. Дальше рассуждаем так: если каждая буква слова встретила себя только по одному разу, то значение флага будет равно количеству букв слова. Если значение флага больше чем количество букв слова, то значит, хотя бы одна буква повторялась два раза и условие задания для этого слова выполняется, поэтому мы подсчитываем это слово в счетчик подходящих слов и выводим отдельной строкой в файл результата. 6. Просмотрев и обработав слово, мы «прокручиваем» пробелы. Переходим к следующему слову, повторяя действия 1-6. В файл результата выводим текст о количестве подходящих слов. Когда все слова обработаны, закрываем все файлы и открываем их вновь через Word для просмотра.
Текст программы: Sub var0() Dim fname1 As String Dim fname2 As String Dim s, s1, p As String Dim i, j, t, k, n, n1, flag As Integer
Dim fnum2 As Long Dim retval fname1 = "C:\var0_ishoddannie.txt" 'Полное имя файла с исходными данными fname2 = "C:\var0_itogdannie.txt" 'Полное имя файла с итоговыми данными 'Создание файла var0_ishoddannie.txt Open fname1 For Output As #1 'открытие файла var0_ishoddannie.txt s = InputBox("Введите текст, содержащий буквы русского алфавита, цифры, знаки пунктуации и пробелы, объемом 300-400 символов") ' считывание строки Print #1, s 'Запись введенного теста в файл C:\var0_ishoddannie.txt Close #1 'Закрытие файлаC:\var0_ishoddannie.txt Open fname1 For Input As #2 'Открытие файла для обработки Open fname2 For Output As #3 'открытие файла var0_itogdannie.txt s1 = "" ' вспомогатальная переменная, изначально пустая s = "" 'строка, в которую соберем текст из файла 'пока не конец файла собираем строки файла в переменную S Do Until EOF(2) Line Input #2, s1 s = s + " " + s1 Loop s1 = s 'вспомогательной переменной присвоили значение строки s s = "" 'строка s - пустая ' в цикле от 1 до количества символов строки s1 исключаем знаки пунктуации и цифры из строки s1, собираем S по буквам For i = 1 To Len(s1) If Mid(s1, i, 1) Like "[-.!?,:;0123456789]" = False Then s = s + Mid(s1, i, 1)
Next s = Trim(s) 'удалили пробелы в начале и конце строки, если они были t = 0 ' счетчик слов, удовлетворяющих условию задачи i = 1 n = Len(s) While i <= n p = "" n1 = 0 ' пока не дошли до пробела и i <= n собираем слово и подсчитываем в нем количество букв While Mid(s, i, 1) <> " " And i <= n p = p + Mid(s, i, 1) i = i + 1 n1 = n1 + 1 Wend flag = 0 'флаг для проверки вхождения буквы в слово более 2 раз 'если слово более чем 1 буква, то сравниваем буквы и ищем повторяющиеся 'если одна буква найдет себе подобную в слове, то флаг увеличивается на 1 If n1 > 1 Then For j = 1 To n1 For k = 1 To n1 If Mid(p, j, 1) = Mid(p, k, 1) Then flag = flag + 1 End If Next Next End If 'если флаг больше чем количество букв в слове, то счетчик слов увеличиваем на 1 и 'записываем слово p в файл с результатом работы программы If flag > n1 Then t = t + 1 Print #3, p
End If 'прокручиваем пробелы While Mid(s, i, 1) = " " And i < n i = i + 1 Wend Wend Print #3, "Слов с повторяющимися буквами " & t ' записываем количество слов в файл результата Close #2 'закрываем файл var0_ishoddannie.txt Close #3 'закрываем файл var0_itogdannie.txt Documents.Open FileName:=fname1 'открываем файл через ворд для просмотра Documents.Open FileName:=fname2 'открываем файл через ворд для просмотра End Sub Тест:
|
Исходные данные: Результат обработки:
