9.3 Строковые функции

Строковые функции VBA, Asc(), Chr(), InStr(), Len(), LCase(), UCase(), Replace(), Trim()

Это -- наиболее часто используемые функции. Требуются они постоянно, и знать их необходимо очень хорошо.

· ASC() -- эта функция позволяет вернуть числовой код для переданного символа. Например, ASC("D") вернет 68. Эту функцию удобно использовать для того, чтобы определить следующую или предыдущую букву. Обычно она используется вместе с функцией Chr(), которая производит обратную операцию -- возвращает символ по переданному его числовому коду. Например, такой код в Excel позволяет написать в ячейки с A1 по A20 последовательно буквы русского алфавита от A до У:

Dim n, nCharCode As Integer

n = 1

nCharCode = Asc("А")

Do While n <= 20

ActiveWorkbook.ActiveSheet.Range("A" & n).Value = Chr(nCharCode)

n = n + 1

nCharCode = nCharCode + 1

Loop

Варианты этой функции -- AscB() и AscW(). AscB() возвращает только первый байт числового кода для символа, а AscW() возвращает код для символа в кодировке Unicode.

· Chr() -- очень важная функция. Возвращает символ по его числовому коду. Помимо того, что используется в паре с функцией Asc() (см. пример по этой функции), без нее не обойтись еще в одной ситуации: когда нужно вывести служебный символ. Например, нам нужно напечатать в Word значение "Газпром" (в кавычках). Кавычка -- это служебный символ, и попытка использовать строку вида

Selection.Text = ""Газпром""

сразу приведет к синтаксической ошибке. А вот так все будет в порядке:

Selection.Text = Chr(34) & "Газпром" & Chr(34)

есть варианты этой функции -- ChrB() и ChrW(). Работают аналогично таким же вариантам для функции Asc().

· InStr() и InStrRev() -- одна из самых популярных функций. Позволяет обнаружить в теле строковой переменной последовательность символов и вернуть ее позицию. Если последовательность не обнаружена, то возвращается 0.

· Left(), Right(), Mid() -- возможность взять указанное вами количество символов из существующей строковой переменной слева, справа или из середины соответственно.

· Len() -- возможность получить число символов в строке. Часто используется с циклами, операциями замены и т.п.

· LCase() и UCase() -- перевести строку в нижний и верхний регистры соответственно. Часто используется для подготовки значения к сравнению, когда при сравнении регистр не важен (фамилии, названия фирм, городов и т.п.).

· LSet() и RSet() -- возможность заполнить одну переменную символами другой без изменения ее длины (соответственно слева и справа). Лишние символы обрезаются, на место недостающих подставляются пробелы.

· LTrim(), RTrim(), Trim() -- возможность убрать пробелы соответственно слева, справа или и слева, и справа.

· Replace() -- возможность заменить в строке одну последовательность символов на другую.

· Space() -- получить строку из указанного вами количества пробелов; String() -- получить строку из указанного вами количества символов (которые опять-таки указываются вами). Обычно используются для форматирования вывода совместно с функцией Len(). Еще одна похожая функция -- Spc(), которая используется для форматирования вывода на консоль. Она размножает пробелы с учетом ширины командной строки.

· StrComp() -- возможность сравнить две строки.

· StrConv() -- возможность преобразовать строку (в Unicode и обратно, в верхний и нижний регистр, сделать первую букву слов заглавной и т.п.).

· StrReverse() -- "перевернуть" строку, разместив ее символы в обратном порядке.

· Tab() -- еще одна функция, которая используется для форматирования вывода на консоль. Размножает символы табуляции в том количестве, в котором вы укажете. Если никакое количество не указано, просто вставляет символ табуляции. Для вставки символа табуляции в строковое значение можно также использовать константу vbTab.

9.4 Функции для работы с числовыми значениями

Числовые функции VBA, функции Abs(), Int(), Fix(), Round(), Rnd(), команда Randomize

Функций для работы с числовыми значениями в VBA очень много. Используются они реже, чем строковые функции, но во многих ситуациях без них не обойтись.

Еще один момент: если вы программируете на языке VBA, то, скорее всего, на вашем компьютере установлен Microsoft Office с Excel. В Excel есть свой собственный мощный набор встроенных функций для работы с числовыми значениями, которые вполне доступны из VBA. Если вы в списке ниже не нашли ничего подходящего для вашей ситуации, возможно, есть смысл воспользоваться функциями Excel.

Кроме того, если в меню Сервис -> Надстройки установить флажок напротив строки "Пакет анализа", в Excel будет добавлен дополнительный набор аналитических научных и финансовых функций, а если в том же окне установить флажок напротив Analysis ToolPak -- VBA, то эти функции станут доступны из Visual Basic на Application (только внутри Excel, в котором установлена эта надстройка).

Ниже приведены только универсальные функции VBA для работы с числовыми значениями. Эти функции доступны из любых приложений VBA.

· ABS() -- эта функция возвращает абсолютное значение переданного ей числа (читайте, то же число, но без знака). Например, ABS(3) и ABS(-3) вернут одно и то же значение 3. Обычно используется тогда, когда нам нужно определить разницу между двумя числами, но при этом мы не знаем, какое число -- первое или второе -- больше. Результат вычитания может быть и положительным и отрицательным. Чтобы он был только положительным, используется эта функция.

· Int(), Fix() и Round() позволяют по разному округлять числа: Int возвращает ближайшее меньшее целое, Fix() отбрасывает дробную часть, Round() округляет до указанного количества знаков после запятой. При этом Round() работает не совсем правильно, в чем легко убедиться:

MsgBox(Round(2.505, 2))

Поэтому на практике для округления лучше использовать Format():

MsgBox(Format(2.505, "#,##0.00"))

· Rnd() и команда Randomize используются для получения случайных значений (очень удобно для генерации имен файлов и в других ситуациях). Обычный синтаксис при применении Rnd выглядит так:

случайное_число = Int(минимум + (Rnd()* максимум))

MsgBox(Int(1 + (Rnd() * 100)))

Настоятельно рекомендуется перед вызовом функции Rnd() выполнить команду Randomize для инициализации генератора случайных чисел.

· Sgn() -- позволяет вернуть информацию о знаке числа. Возвращает 1, если число положительное, -1, если отрицательное и 0, если проверяемое число равно 0.

9.5 Функции для работы с датой и временем

Функции VBA для работы с датой/временем, функции Date(), Time(), DateAdd(), DateDiff(), DatePart(), DateSerial(), Timer()

Без функций даты и времени обычно обойтись просто невозможно. Самые важные функции VBA для работы с датой/временем:

· Date() -- возвращает текущую системную дату. Установить ее можно при помощи одноименного оператора, например, так:

Date = #5/12/2006#

· Time() возвращает текущее системное время, а Now() -- дату и время вместе.

· DateAdd() -- возможность добавить к дате указанное количество лет, кварталов, месяцев и так далее -- вплоть до секунд.

· DateDiff() -- возможность получить разницу между датами (опять таки в единицах от лет до секунд).

· DatePart() -- очень важная функция, которая возвращает указанную вами часть даты (например, только год, только месяц или только день недели).

· DateSerial() -- возможность создать значение даты на основе передаваемых символьных значений. То же самое делает DateValue(), отличия -- в формате принимаемых значений. Аналогичным образом (для времени) работают TimeSerial() и TimeValue().

· Day() (а также Year(), Month(), Weekday(), Hour(), Minute(), Second()) -- специализированные заменители функции DatePart(), которые возвращают нужную вам часть даты.

· MonthName() -- возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.

· Timer() -- возвращает количество секунд, прошедших с полуночи.

9.6 Функции для форматирования данных

Функции форматирования VBA, функция Format()

Для форматирования данных в вашем распоряжении -- функция Format() и целый набор функций, которые начинаются на Format (FormatNumber(), FormatCurrency(), FormatDateTime() и т.п.) Синтаксис функции Format() выглядит так:

Format (выражение, "формат")

Несколько примеров применения Format() (посмотрите сами, что получится):

Format (15/20, "Percent")

Format (Date, "Long Date")

Format (1, "On/Off")

Format (334.9, "###0.00")

Format (" Просто текст ", > )

Для остальных функций Format...() то, что они делают, понятно из названия.

Особая ситуация -- когда нужно, чтобы дата отображалась на компьютерах пользователей единообразно вне зависимости от региональных настроек. В качестве решения можно использовать функцию DatePart(): при помощи нее перевести дату "по частям" в текстовый формат и "склеить" ее нужным образом.

9.7 Функции для организации взаимодействия с пользователем

Взаимодействие с пользователем в VBA, функции MsgBox() и InputBox()

Во многих программах VBA необходимо обеспечить взаимодействие с пользователем -- проинформировать его о чем-то и (возможно) получить от него ответную реакцию. В принципе, для пользователя можно просто вывести текст в окне приложения (например, в текущем документе Word) или воспользоваться формой и элементами управления. Как это делается -- мы узнаем в соответствующих главах. В этой части мы рассмотрим только применение для этой цели встроенных функций VBA.

Самой простой способ вывести информацию пользователю -- воспользоваться встроенной функцией VBA MsgBox(). Примеров применения этой функции в нашей книге уже было множество, а полный ее синтаксис выглядит так:

MsgBox(Текст[,кнопки] [,заголовок окна] [, файл справки, метка в файле справки])

Возможностей у MsgBox() достаточно много:

· можно отображать разное кол-во кнопок (OK, Cancel, Abort, Retry, Ignore, Yes, No),

· можно показывать символы Critical, Warning, Question, Information,

· можно выбирать кнопку по умолчанию,

· можно делать окно модальным или обычным.

В зависимости от того, на какую пользователь кнопку нажал, такое значение возвращается приложению (всего 7 вариантов). Подробнее -- в справке по VBA. Пример возврата значения от MsgBox():

Dim nVar As Integer

nVar = MsgBox ("Будем делать?", 65, "Демонстрационное окно сообщения")

Если значение nVar равно 1, то пользователь нажал OK, если 2, то Cancel.

Иногда (например, при пакетной обработке данных) хотелось бы, чтобы окно сообщения через некоторое время закрывалось само собой. Это можно сделать при помощи метода Popup() объекта Wscript.Shell. Для этого в проект через меню References нужно добавить ссылку на Windows Script Host Object Model (файл C:\WINNT\system32\wshom.ocx), а после этого использовать следующий код:

Dim oShell As New WshShell

oShell.Popup "Test", 5

В остальном функциональность получившего окна одинакова с MsgBox(). Код возврата, если пользователь не нажал ни на какую кнопку, равен -1.

Самый простой способ принять информацию от пользователя -- воспользоваться функцией InputBox(). Все очень просто :

Dim Input

Input = InputBox("Введите Ваше имя: ")

MsgBox (" Вы ввели: " & Input )

Для InputBox() можно указать текст приглашения, заголовок окна, значение по умолчанию, местонахождение окна и файл справки. Не забывайте, что все вводимое пользователем InputBox() автоматически переводит в тип данных String -- может потребоваться выполнить преобразование.

Можно привлечь внимание пользователем звуковым сигналом. Для этой цели используется оператор Beep:

Dim I

For I = 1 To 3

Beep

Next I

9.8 Функции -- заменители синтаксических конструкций

Функции - заменители синтаксических конструкций VBA, функции Choose(), IIF(), Switch()

В VBA предусмотрено несколько функций, которые позволяют заменять синтаксические конструкции условного перехода, например, IF…THEN…ELSE или SELECT…CASE. Каких-то преимуществ применение этих функций не дает (может быть, код станет на несколько строчек короче), но профессиональные программисты очень любят их использовать, когда только это возможно.

Начинающим программистам рекомендуется обычные синтаксические конструкции, чтобы не путаться. Однако для чтения чужого кода необходимо знать и эти функции. Вот их перечень:

· Choose() -- принимает число (номер значения) и несколько значений. Возвращает значение, порядковый номер которого соответствует передаваемому числу. Например, Choose (2, "Первый", "Второй", "Третий") вернет "Второй". IIF() -- расшифровывается как Immediate IF, то есть "Немедленный IF. Представляет из себя упрощенный вариант IF, когда проверяется условие и возвращается одно из двух значений. Пример: IIf (n > 10, "Больше десяти", "Меньше или равно десяти")

· Switch() -- принимает неограниченное количество пар типа выражение/значение, проверяет каждое выражения на истинность и возвращает значение для первого выражения, которое оказалось истинным. Например:

Function Language (CityName As String)

Language = Switch(CityName = "Москва", "русский", CityName _

= "Париж", "французский", CityName = "Берлин", "немецкий")

End Function

9.9 Функции для работы с массивами

Функции VBA для работы с массивами, функции Array(), Filter(), LBound(), UBound(), Join(), Split()

Как уже говорилось, при программной работе с приложениями Microsoft Office массивы используются нечасто. Вместо них применяются коллекции. Однако в VBA предусмотрены и возможности для работы с массивами:

· Array() -- позволяет автоматически создать массив нужного размера и типа и сразу загрузить в него переданные значения:

Dim myArray As Variant

myArray = Array(10,20,30)

MsgBox(A(2))

· Filter() -- позволяет на основе одного массива получить другой, отфильтровав в исходном массиве нужные нам элементы.

· LBound() -- возвращает информацию о нижней границе массива (то есть номере первого имеющегося в нем значения), а UBound() -- о верхней (номер последнего имеющегося значения).

· Join() -- возможность слить множество строк из массива строк в одну строковую переменную. В качестве разделителя по умолчанию используется пробел, можно указать свой разделитель. Обратная функция, создающая массив из одной строки -- Split(). Эти функции очень удобны, например, при обработке значений, полученных из базы данных, электронной таблицы, макетного файла и т.п.

9.10 Функции для работы с файловой системой

Файловые функции VBA, Input(), FileLen(), EOF(), LOF(), Loc()

В VBA предусмотрен набор встроенных функций для выполнения различных операций с файлами, каталогами, дисками и прочими объектами файловой системы. Информация об этих функциях приведена ниже. Но не забывайте, что помимо этих возможностей (общих для всех приложений, в которых используется VBA) у нас есть также, во-первых, возможности, специфические для данного приложения (например, открытие и сохранение документа Word средствами объектной модели Word). Во-вторых, на любом компьютере под управлением Windows есть объектная библиотека под названием Microsoft Scripting Runtime -- очень простая и очень удобная для выполнения различных операций с файлами, каталогами и дисками. Можно добавить в проект VBA на нее ссылку и использовать все имеющиеся в ней возможности. Если, к примеру, мне нужно пройти по всем файлам в данном каталоге и что-нибудь с ними сделать (например, загрузить в Excel все файлы отчетов, которые пришли из филиалов), я использую именно эту библиотеку. Справку по ней можно найти на сайте Microsoft (www.microsoft.com/scripting).

А это -- встроенные функции для работой с файловой системой, предусмотренные в VBA:

· CurDir() -- функция, которая возвращает путь к текущему каталогу, в котором будут сохраняться файлы нашего приложения по умолчанию.

· Dir() -- позволяет искать файл или каталог по указанному пути на диске.

· EOF() -- при операции записи в файл на диске эту функция вернет True, если вы находитесь в конце файла. Используется при записи в файл своего собственного формата. При сохранении документов Word, книг Excel и т.п. лучше использовать стандартные методы объектов этих документов: Save и SaveAs().

· Error() -- позволяет вернуть описание ошибки по ее номеру. Генерировать ошибку нужно при помощи метода RaiseError() специального объекта Err (см. главу 6, в которой рассказывается про перехват ошибок и отладку).

· FileAttr() -- позволяет определить, как именно был открыт вами файл в файловой системе: на чтение, запись, добавление, в двоичном или текстовом режиме и т.п.

· FileDateTime() -- позволяет получить информацию о последнем времени обращения к указанному вами файлу. Если к файлу после создания ни разу не обращались, то это будет время создания файла.

· FileLen() -- позволяет определить длину указанного вами файла в байтах.

· FreeFile() -- позволяет определить следующую свободную цифру, которую можно использовать как номер файла при его открытии.

· GetAttr() -- возможность обратиться к файлу к файловой системе и получить информацию об его атрибутах (скрытый, доступен только для чтения, архивный и т.п.)

· Input() -- позволяет считать информацию из открытого файла. Например, считать информацию из файла C:\text1.txt и вывести ее в окно Immediate можно так:

Dim MyChar

Open " c:\text1.txt" For Input As #1 'Открываем файл функцией Open() на чтение

Do While Not EOF(1) 'пока файл не кончился

' Получаем по одному символу и добавляем его к предыдущим

MyChar = MyChar & Input(1, #1)

Loop

Close #1 ' Закрываем файл

Debug. Print MyChar 'Выводим его содержание в окно Immediate

· Вариант этой функции -- InputB() позволяет указывать количество байт, которые надо скачать из файла.

· Loc() -- от Location, то есть местонахождение -- возвращает число, которое определяет текущее место вставки или чтения в открытом файле. Похоже работает функция Seek(), но она возвращает информацию о позиции, с которой будет выполняться следующая операция чтения или вставки.

· LOF() -- от length of file -- позволяет определить длину открытого файла в байтах.

9.11 Прочие функции VBA

Функции VBA DoEvents(), Environ(), GetAllSettings(), Partition(), QBColor(), RGB(), Shell(), TypeName(), VarType()

В этот раздел попали те встроенные функции языка VBA, которые у меня не получилось отнести ни к одной другой категории.

· DoEvents() -- очень важная функция. Она позволяет на время отвлечься от выполнения какой-то операции VBA и передать управление операционной системе, чтобы обработать накопившиеся в операционной системе события (например, нажатия клавиш пользователем). После этого продолжение операции VBA продолжается. Если у вас работает очень долгая операция (поиск на дисках, обработка большого объема данных и т.п.) и вы хотите дать пользователю возможность быстро прервать эту операцию, можно выполнять эту команду, например, каждый раз после обработки определенной "порции" данных.

· Environ() -- возвращает абсолютный путь для переменных окружения компьютера (полный список переменных, доступных на вашем компьютере, можно просмотреть, если в командной строке выполнить команду SET). Например, вам нужно записать что-то в файл во временном каталоге. Абсолютный путь к временному каталогу на вашем компьютере можно получить так:

MsgBox Environ("TEMP")

· GetAllSettings() -- получить (в виде двухмерного массива) из реестра все параметры, которые относятся к указанному вами приложению. SaveSetting() позволяет записать эту информацию в реестр, DeleteSetting() -- удалить. GetSetting() позволяет получить информацию об определенном параметре. Замечу, что эти методы позволяют обращаться только к одному очень далекому уголку реестра в ветви HKEY_CURRENT_USERS. Обращаться к другим параметрам реестра при помощи этих методов бесполезно. Рекомендую для работы с реестром использовать объектную библиотеку Windows Script Host Object Model, которая также есть на любом компьютере под управлением Windows 2000, XP и 2003. Нужный объект называется WSHShell, методы -- RegRead(), RegWrite() и RegDelete(). Справку по объектам этой библиотеки можно найти на сайте Microsoft (www.microsoft.com/scripting).

· Partition() -- позволяет определить, к какому диапазону из наборов значений относится переданное вами число и возвращает описание этого диапазона (в виде строки). Обычно используется при выполнении запросов к базам данных.

· QBColor() -- позволяет перевести обозначение цвета из древнего номерного обозначения с возможными 16 значениями в RGB-код, который понимается VBA. Обычно используется при переделке унаследованных программ.

· RGB() -- еще одна функция для работы с цветом. Позволяет вернуть цветовой код, который можно использовать для присвоения цвета в коде, приняв три значения для цветов: красного (Red), зеленого (Green) и синего (Blue). Значение для каждого из основных цветов могут варьироваться от 0 до 255. Например, самый зеленый из возможных цветов получится, если переданные этой функции значения будут выглядеть как RGB(0,255,0).

· Shell() -- позволяет запустить из VBA внешний программный файл и вернуть информацию о его Program ID в операционной системе. Обычно используется опытными разработчиками при применении ими в программах возможностей Windows API. С практической точки зрения эту функцию можно использовать для запуска любых внешних программ из вашего приложения, хотя, с моей точки зрения, применение специальных объектов WshShell и WshExec из библиотеки Windows Script Host Object Model удобнее (можно передавать в окно клавиатурные комбинации, принимать и передавать значения через командную строку и т.п.). Эта библиотека есть на любом компьютере Windows, справку по ней можно найти на сайте www.microsoft.com/scripting.

· TypeName() -- функция, которая возвращает имя типа данных для переданной ей переменной. Очень удобна для определения типа данных для значения, полученного из базы данных или путем вызова метода какого-то объекта.

· VarType() -- делает почти то же самое, но вместо имени возвращает числовой код, который обозначает тип данных. Можно использовать для программных проверок типов данных для переменных.

Размещено на Allbest.ru

...