Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Работа с файлами»




Доверь свою работу кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Цель: С помощью программных средств VBA разработать программу считывающую из заранее созданного текстового файла фрагмент текста объемом 300 - 400 символов, содержащий буквы русского алфавита, цифры, знаки пунктуации и пробел. Текст должен быть представлен в отдельном окне с переносом информации на новую строку только в позиции пробела. Программа должна проанализировать выводимый текст и отдельно вывести удовлетворяющие заданному варианту слова и их количество.

Постановка задачи: не повторяющиеся буквы.

 

Для чтения данных из файла в VBA используем оператор «Open», синтаксис которого предполагает указание ссылки на файл режим чтение или запись. Например: Open ThisDocument.Path & "\stext.txt" For Input As #1.

 

Цикл чтения данных из файла запишем так:

 

Dim buffer, str As String 'переменные для чтения из файла

Set myRange = ThisDocument.Range

 

Open ThisDocument.Path & "\stext.txt" For Input As #1 'указываем файл для чтения

 

'читаем данные пока не достигнем конца файла

Do Until EOF(1)

Line Input #1, buffer

str = str & buffer

Loop

Close #1

 

'програмно определяем свойства текста в Word документе

With myRange.Font

.Name = "Times New Roman"

.Size = 12

End With

myRange.Text = str 'записываем считаную строку данных из файла в файл Word

 

 

Блок схема программы чтения из файла.

 

Для решения поставленной задачи – поиска и подсчета слов состоящих из не повторяющихся букв; каждую букву в слове будем добавлять в коллекцию и если буква повторяется то метод добавления сгенерирует ошибку, которую мы и будем программно обрабатывать.

 

 

Код программы поиска слв из неповторяющихся букв:

 

Dim oWord As Object, s$, i&, buffer$

Dim j As Integer

 

On Error GoTo err_col

 

For Each oWord In ThisDocument.Range.Words

 

With New Collection

s = Trim$(Replace$(oWord.Text, Chr$(160), "")) 'режем считаный текст на слова

If Not s Like "[.,-?():]" Then

 

For i = 1 To Len(s)

.Add 0, Mid$(s, i, 1) 'добавляем в коллекцию

Next

 

'если буквы разные - нет ошибки добавления в коллекцию(при добавлении разных элементов с одинаковым ключем), красим.

ThisDocument.Range _

(oWord.Start, oWord.End + (Right$(oWord.Text, 1) Like "[ ]")) _

.HighlightColorIndex = wdBrightGreen 'зелёный цвет

 

'считаем найденые слова

j = j + 1

 

buffer = buffer & s & " "

 

End If

next_word: 'переходим к следующему слову

End With

Next

 

'вывод сообщения о результате поиска

MsgBox "Всего найдено слов: " & (j - 1) _

& vbNewLine & vbNewLine & buffer, vbOKOnly, "Поиск: "

 

Exit Sub

 

err_col: 'переход к следующему oWord(Слово), если в нём есть повтор буквы

Resume next_word

 

 

 

Блок схема программы поиска слов из неповторяющихся букв.







Дата добавления: 2015-06-15; просмотров: 381. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.02 сек.) русская версия | украинская версия