Dim intA As Integer

strA = "Строковая переменная"

intA = Len(strA) ' Результат: 20

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

Например:

Dim bytA As Byte

Dim intA As Integer

Dim IngA As Long

Dim intR As Integer

intR = Len(bytA) ' Результат: 1

intR = Len(intA) ' Результат: 2

intR = Len(IngA) ' Результат: 4

Если в качестве параметра функции Len используется перемен­ная типа Variant, содержимое которой можно представить в виде строки, то результатом будет количество символов, содержащееся в ней.

Например:

Dim vntA

Dim intA As Integer

vntA = -15.68

intA = Len(vntA) ' Результат: 6

Нередко в программе возникает необходимость выделения из строковой переменной той или иной ее части. В этом случае сле­дует использовать одну из функций: Left, Right или Mid.

Left. Применяется для выделения подстроки в начале исход­ной строки. Формат данной функции следующий:

Left(строка, количество)

Результатом функции Left является строка с указанным ко­личеством символов, находящаяся в начале исходной строки.

Right. Используется при выделении подстроки в конце ис­ходной строки. Функция имеет такой формат:

Right(строка, количество)

Функция Right возвращает строку с указанным количеством символов, расположенную в конце исходной строки.

Mid. Применяется для выделения подстроки в середине ис­ходной строки. Данная функция имеет следующий формат:

Mid(строка, номер, [количество])

Результатом функции Mid является строка с указанным коли­чеством символов, находящаяся в исходной строке, начиная с определенного номера. Если количество символов не указывает­ся, то строка выделяется до конца, т. е. в этом случае Mid будет аналогом функции Right, но с другим параметром

(Right; количество = "сколько выделять";

Mid: номер = "откуда начинать").

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

Dim strA As String

Dim strB As String

strA = "Это строковая переменная"

strB = Left(strA, 3)

' Результат; "Это" strB = Right(strA, 10)

' Результат: "переменная" strB = Mid (strA, 5, 9)

' Результат; "строковая"