Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Создание пользовательских п ÒÉÌÏÖÅÎÉÊ ÓÒÅÄÓÔÁÍ...doc
Скачиваний:
6
Добавлен:
18.11.2019
Размер:
2.02 Mб
Скачать

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

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

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

Название и синтаксис функции

Описание

Примеры

Asc(string)

Возвращает ASCII-код символа

Asc("*") возвращает 42

Chr(charcode)

Возвращает символ по ASCII-коду

Chr(42) возвращает *

Format(еxpression [,format][,firstdayofweek][,firstweekofyear])

Преобразует аргумент в соответствии с заданным форматом

Format(42.399, "#.00") возвращает 42,40

Format("HELLO, MY FREND", "<") возвращает hello, my frend

Hex(number)

Возвращает шестнадцатиричное представление числа

Hex(18) возвращает 12 Hex(31) возвращает 1F

InStr([start,] string1, string2[,compare])

Ищет подстроку в прямом направлении

InStr(1, "To be or not to be", "be") возвращает 4

InstrRev(stringcheck, stringmatch[, start][, compare])

Ищет подстроку в обратном направлении

InstrRev("To be or not to be", "be") возвращает 17

LCase(string)

Преобразует строку в нижний регистр

LCase("World") возвращает world

Left(string, length)

Выделяет левую часть строки

Left("World", 2) возвращает Wo

Len(string)

Определяет длину строки

Len("World") возвращает 5

LTrim(string)

Удаляет ведущие пробелы Пробелы справа сохраняются

LTrim(" extra spaces ") возвращает extra spaces без левых пробелов

Mid(string, start[, length])

Выделяет или перемещает подстроку

Mid("World", 2,3) возвращает orl

Oct(number)

Возвращает восьмеричное представление числа

Oct(12) возвращает 14

Replace(expression, find, replace[,start][,count] [,compare])

Заменяет подстроку на новую подстроку

Replace("The car is red", "red", "blue") возвращает The car is blue

Right(string, length)

Выделяет правую часть строки

Right("World",2) возвращает ld

RTrim(string)

Удаляет завершающие пробелы Пробелы слева сохраняются

RTrim(" extra spaces ") возвращает extra spaces без правых пробелов

Space(number)

Создает строку пробелов

Space(6) создает строку из 6 пробелов

Str(number)

Преобразует число в строку

Str(123) возвращает строку 123

StrComp(string1, string2[, compare])

Сравнивает две строки compare=0 двоичное сравнение compare=1 текстуальное сравнение

StrComp("WORld", "world", 1) возвращает 0 (равенство строк при текстуальном сравнении)

String(number, character)

Создает строку символов

String (5,"*") и String (5,42) возвращают ***** . 42 – ASCII-код символа *

Trim(string)

Удаляет пробелы с двух сторон строки

Trim(" extra spaces ") возвращает extra spaces без левых и правых пробелов

UCase(string)

Преобразует строку в верхний регистр

UCase("World") возвращает WORLD

Val(string)

Преобразует строку в число

Val("6.28") возвращает число 6.28

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

Функция

Тип результата

Функция

Тип результата

CBооl

Воо1еап

CCиr

Сиrrепсу

CDate

Date

CDbl

Doublе

CInt

Iпtegеr

CLng

Long

CSng

Single

CStr

String

CVаr

Variant

В качестве параметра функциям преобразования строк передается выражение (expression), которое и преобразуется в выбранный тип. Подробнее см. Help.

Пример

Sub C_Date()

Debug.Print CDate("1/10/2007") ' распечатывается дата 1.10.2007

End Sub