На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! `
Не забудьте заглянуть в VB6 FAQ, так как большая часть VB-примеров актуальна и для VBA-раздела ;)
Модераторы: Old Bat, MIF
  
    > Строковые функции
      Используйте LEN() для проверки нулевой длины строк

      Сравнение строки с нулем происходит значительно быстрее, чем при сравнении с "". VBA хранит строки в формате BSTR, т.е. в начале каждой строки существует 4 байта, где хранится длина текущей строки. Таким образом, LEN() не вычисляет длину строки, а считывает уже существующее значение. К тому же пустую строку ("") еще надо создать, на что и уходит часть времени.

      Для инициализации строк вместо "" используйте константу vbNullString

      Когда Вы пишете "MyString = vbNullString"
      VBA не создает новую строку, вместо этого он использует свой внутренний указатель на нее, что существенно экономит время.

      Не увлекайтесь излишней конкатенацией

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

      Используйте IsCharAlphaNumeric вместо ASCII-значений

      Если Вам приходится проверять, является ли некоторый символ буквенно-цифровым (то есть входит ли он в диапазон A-Z, a-z, А-Я, а-я, 0-9). – используйте API-функцию IsCharAlphaNumeric. Кроме того, можно воспользоваться еще одной похожей функцией Windows API, IsCharAlpha, определяющей, является ли символ с переданным ей кодом буквой. Дополнительным преимуществом функций Windows API является то, что они интернационализированы. Ведь если вам нужно, чтобы программа работала с текстом, написанным на разных языках, недостаточно сравнить код буквы с границами определенных диапазонов: вы рискуете пропустить те буквы, которые в эти диапазоны не входят. И наконец, функции Windows API работают быстрее функции сравнения кодов.

      Можем написать так:
      ExpandedWrap disabled
        Const cFirstChar = 65
        Const cLastChar = 90
        Const cFirstDigit = 48
        Const cLastDigit = 57
         
        intC = Asc(UCase(strC))
        If (intC = cFirstChar And _
        intC <= cLastChar) _
        Or (intC >= cFirstDigit And _
        intC <= cLastDigit) Then
          ' Это буква или цифра.
          'Делаем то, что нужно в этом случае.
        End If

      А можем так:
      ExpandedWrap disabled
        Private Declare Function IsCharAlphaNumeric _
         Lib "user32" Alias "IsCharAlphaNumericA" _
        (ByVal cChar As Byte) As Long
        ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
        If IsCharAlphaNumeric(Asc(strC)) Then
         ' Это буква или цифра.
         ' Делаем то, что нужно в этом случае.
        End If


      Сравнивайте строки с помощью StrComp,
      не преобразуя их к верхнему регистру с помощью UCase


      VBA сравнивает строки с учетом опции Option Compare. По умолчанию VBA использует опцию Option Compare Binary, при которой результаты сравнения зависят от регистра символов.В противном случае объявите Option Compare Text в начале модуля.
      Если необходимо указать способ сравнения на уровне отдельной процедуры, то используйте функцию StrComp. Она позволяет задать две строки и константу, указывающую, как их сравнивать: vbUseCompareOption (использовать текущую установку Option Compare), vbBinaryCompare (осуществлять сравнение с учетом регистра), vbTextCompare (сравнивать без учета регистра) или vbDatabaseCompare (использовать режим сравнения, заданный для базы данных). Функция StrComp возвращает 0, если строки равны, -1, если первая строка меньше второй, и +1, если первая строка больше второй. Для сравнения двух строк без учета регистра можно написать одну из двух строк кода:
      ExpandedWrap disabled
        If UCase(strValuel) = UCase(strValue2) Then

      или
      ExpandedWrap disabled
        If (StrCompCstrValuel, strvalue2, vbTextCompare) = 0 Then

      Короткие строки быстрее обрабатываются функцией StrComp, однако при существенном увеличении их длины становится практически все равно, каким образом их сравнивать.

      Используйте оператор LIKE, а не сравнивайте символы по отдельности

      Допустим, требуется проверить значение некой переменной, состоящей из букв и цифр, стоящих в определенной последовательности: например - "W5TGQ". Сделать это можно так: перебрать в цикле все символы строки и проверить каждый на соответствие определенным условиям. Если условия для очередного символа не выполнены, цикл прекращается:
      ExpandedWrap disabled
        blnMatch = True
        For j - 1 То 5
         intCh = Asc(Mid$(strTest , j , 1))
         Select Case j
         Case 1, 3, 4, 5
           If (IsCharAlpha(intCh) = 0) Then
            blnMatch = False
           End If
         Case 2
           If (IsCharAlpha(intCh) = 0) Then
            blnMatch = False
           End If
         End Select
         If Not blnMatch Then Exit For
        Next j

      Приведенный выше код можно заменить строкой:
      ExpandedWrap disabled
        blnMatch = strTest Like "[A-Z]#[A-Z][A-Z][A-Z]"

      Здесь "[A-Z]" соответствует любому символу из диапазона от А до Z (для всех языков с латинским алфавитом), а "#" — любой цифре (0-9). И хотя возможности оператора Like ограниченны, иногда он может оказаться весьма полезным.

      Пользуйтесь $-функциями

      Функция Left возвращает значение типа Variant, а функция Left$ — String. Если вы помещаете возвращаемое значение в переменную типа Variant, то имеет смысл использовать функцию Left. Однако чаще строки присваиваются строковым переменным, и в этом случае вызов Left заставит VBA выполнить дополнительное преобразование типов.

      По возможности используйте целочисленное деление

      В VBA имеются два оператора деления: обычный «/», для операций с плавающей точкой, и целочисленный - «\». Для выполнения деления плавающей точкой VBA должен преобразовать оба операнда к этому типу данных. Поэтому, если дробная часть частного вам не нужна, можно сэкономить время, воспользовавшись оператором целочисленного деления.


      Использованы материалы: "From Access 2002 Desktop Developer's Handbook"
      Litwin, Getz, and Gunderloy. (Sybex, 2001)
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0208 ]   [ 16 queries used ]   [ Generated: 23.06.24, 14:39 GMT ]