Input(количество, номер)
Эта функция возвращает в программу строку, содержащую указанное количество символов из файла с указанным номером.
В программах Создание и Добавление, приведенных ниже, используются рассмотренные операторы и функции работы с файлами. На примере этих программ рассмотрим и другие полезные операторы и функции.
Sub Создание()
Dim FNamel As String
Dim FName2 As String
Dim FNuml As Integer
Dim FNum2 As Integer
Dim nl As Long
Dim n2 As Long
Dim strA As String 'вспомогательная строка
MkDir(“c:\My Documents\texts”) 'создание папки texts
FNamel = “c:\My Documents \texts\a.txt” 'полное имя 1-го файла
FName2 = “c:\My Documents \texts\b.txt” 'полное имя 2-го файла
'Создание файла a.txt:
FNuml = FreeFile
Open FNamel For Output As FNuml 'открытие файла a.txt
strA = "Создан текстовый файл,”
Print #FNuml, strA
Print #FNuml, “который состоит из нескольких строк.”
'Определение количества символов в файле a.txt:
nl = LOF(FNuml)
Close FNuml 'закрытие файла a.txt
MsgBox “B файле a.txt” & Str(nl) & “ символов”
'Копирование информации из файла a.txt в файл b.txt:
FNuml = FreeFile
Open FNamel For Input As FNuml 'открытие файла a.txt
FNum2 = FreeFile
Open FName2 For Output As FNum2 'открытие файла b.txt
Do Until EOF (FNuml) 'цикл считывания-записи
Line Input #FNuml, strA Print #FNum2, strA
Loop Close FNuml 'закрытие файла a.txt
'Добавление новой строки в файл b.txt:
strA = “Добавлена новая строка.”
Print #FNum2, strA
'Определение количества символов в файле b.txt:
n2 = LOF(FNum2)
Close FNum2 'закрытие файла b.txt
FNum2 = FreeFile
Open FName2 For Input As FNum2 'открытие файла b.txt
strA = Input(1, FNum2) 'считывание символа
Close FNum2 'закрытие файла b.txt
MsgBox “В файле b.txt” & Str(n2) & “ символов, “ & “причем первый символ – “ & strA
End Sub
Оператор MkDir(“c:\My Documents\texts”) создает папку texts внутри папки My Documents, входящей в состав операционной системы Windows. (При повторном запуске программы Создание оператор создания папки MkDir следует убрать, например, пометив его апострофом.)
Если операционная система русифицирована, то в тексте программы Создание следует использовать имя папки Мои документы вместо My Documents.
Функция LOF возвращает в программу количество символов в файле, причем символы «возврат» и «новая строка» (которыми оканчивается каждая строка) принимаются в расчет. Аргументом этой функции является номер файла.
Функция EOF, используемая в условии окончания цикла Do Until … Loop, возвращает True при достижении конца файла. Аргументом этой функции является номер файла.
Подпрограмма MsgBox выводит строку, являющуюся ее параметром, на экран дисплея. В программе Создание два обращения к MsgBox, поэтому по ходу выполнения программы на экране по очереди появляются окна, изображенные на рисунке.
По окончании выполнения программы Создание файлы a.txt и b.txt имеют следующее содержание.
Файл a.txt:
Создан текстовый файл,
который состоит из нескольких строк.
Файл b.txt:
Создан текстовый файл,
который состоит из нескольких строк.
Добавлена новая строка.
Чтобы уничтожать файлы a.txt и b.txt и папку texts по окончании выполнения программы, перед последней строкой (End Sub) следует вставить следующие операторы ликвидации файлов и папки:
Kill(FNamel)
Kill(FName2)
RmDir(“c:\My Documents\texts”)
Рассмотрим программу добавления строки в файл b.txt и запуска редактора Блокнот (Notepad)
Sub Добавление()
Dim FNum As Integer
Dim n As Long
Dim RetVal 'для функции Shell
FNum = FreeFile
'Открытие файла b.txt и ввод новой строки:
Open "c:\My Documents\texts\b.txt” For Append As FNum
Print #FNum , "Добавлена вторая новая строка.”
'Определение количества символов в файле b.txt:
n = LOF(FNum)
Close FNum 'закрытие файла b.txt
MsgBox “В файле b.txt” & Str(n) & “ символов”
'Запуск редактора Блокнот:
RetVal = Shell(“c:\Windows\notepad.exe”,l)
End Sub
Редактор Блокнот (Notepad) запускается с помощью функции Shell.
Отметим, что функция Shell позволяет запустить исполняемый файл любой программы, имя которого имеет расширение ехе, в частности, созданный в автономной среде VB.
По окончании выполнения программы Добавление файл b.txt принимает вид
Создан текстовый файл,
который состоит из нескольких строк.
Добавлена новая строка.
Добавлена вторая новая строка.
Одним из результатов выполнения программы Добавление является окно редактора Блокнот (Notepad), запускаемого функцией Shell. С помощью этого редактора можно увидеть содержимое файла, в частности b.txt, и при необходимости создать новый файл или отредактировать существующий.
При открытии файла на добавление информации (с помощью ключевого слова Append) его может не существовать. В этом случае файл создается. При открытии файла на считывание информации (с помощью ключевого слова Input) файл, естественно, должен существовать.
Пункт 10. Загрузка формы. Макросы.
Загрузка формы из окна Excel.
Создадим простейшую программу, которая позволит загружать форму из окна Excel.
В окне среды VB выполним Insert (Вставка) > Module (Модуль). В окне кода наберем программу
Sub LoadForma()
UserForm1.Show
End Sub
В этой программе UserForm1 – имя формы. Теперь форму можно загружать из окна Excel. Для этого надо выполнить следующее: Сервис > Макрос > Макросы > строка LoadForma >Выполнить. Выполнив Сервис > Макрос > Макросы > строка LoadForma > Параметры > …., можно назначить сочетание клавиш, запускающее программу LoadForma, то есть загружающее форму UserForm1.
Если вы хотите, чтобы в загруженной форме мигающий курсор находился, например, во втором текстовом поле, то в программу LoadForma после первой строки вставьте оператор
UserForm1.TextBoxB.SetFocus
При этом программа примет вид
Sub LoadForma()
UserForm1.TextBoxB.SetFocus
UserForm1.Show
End Sub
Программу LoadForma можно назвать макросом Excel, разработанным с помощью среды Visual Basic.