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

Строковые VB-функции обычно применяются для нахождения заданных строк внутри других строк, для сравнения одной строки с другой и копирования выбранных частей строк. Строковые VB-функции используются довольно часто, потому что обычно необходимо манипулировать строковыми данными, полученными как пользовательский ввод функцией InputBox. В других случаях строковые данные появляются в VB-коде как имена файлов для документов, баз данных и других типов данных, сохраняемых в файлах на дисках.

В табл. 6.8, где приведены основные строковые VB-функции, N, N1, N2 — любые допустимые численные выражения, а S, S1, S2 — это любые допустимые строковые выражения. Все аргументы функций являются обязательными, если не указано иначе.

Таблица 6.8. Строковые функции

Функция InStr

Возвращает позицию первого вхождения одной строки внутри другой. Функция имеет следующий синтаксис:

Синтаксис

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

Аргументы InStr функции означают следующее:

Параметр compare может принимать следующие предопределенные значения:

Возвращаемые значения функции InStr:

Примеры использования функции InStr:

VarResult=InStr(1, "AEIOUT","IO") 'возвращается 3

s1="abracadabra"

s2="cad"

VarResult= InStr(2,s1,s2) 'возвращается 5

Функция Len

Чаще всего вам, наверняка, придется использовать функцию Len, с помощью которой можно определить длину строки. Синтаксис использования функции:

Синтаксис

Len (StringIn | Varname)

Аргументы функции означают следующее:

Примеры использования функции Len:

MyLen = Len("VB")'возвращается 2

Customer="Владимир Петрович"

MyLen = Len(Customer ) 'возвращается 17

Чаще всего в программах на Visual Basic (особенно в диалоговых приложениях и приложениях баз данных) функция Len используется вместе с функцией Trim для определения точного количества «полезных» символов в строчной переменной. Например, выражение Len(Trim(Text1.Text)) возвращает длину строки, введенной пользователем в текстовое окно Text1 без учета возможных пробелов.

Функция Mid

В Visual Basic имеется несколько способов для ссылки на отдельные символы в строке. Один из них — использование функции Mid, которая возвращает указанное количество символов строки, начиная с заданной позиции в строке. Синтаксис функции:

Синтаксис

Mid (StringIn, Start [, Length ])

Аргументы функции означают следующее:

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

Рис. 6.11

Приложение с функциями обработки строк Asc, Len, Mid и Right.

В следующей таблице приведены свойства элементов управления формы, заданные в режиме разработки.

Код модуля формы данного тестового приложения приведен в листинге 6.3.

Листинг 6.3 Код модуля формы тестового приложения.

1 Private Sub Command1_Click()

2 Unload Me

3 End Sub

4 Private Sub Text1_Change()

5 Label1.Caption = Asc(Right(Text1.Text, 1))

6 If Len(Text1.Text) > 1 Then

7 Label4.Caption = Asc(Mid(Text1.Text, Len(Text1.Text) - 1, 1))

8 End If

9 End Sub

Обратите внимание на то, что возвратить из строки последний символ не составляет особого труда: функция Right «легко» справляется с этой задачей, возвращая один символ самый правый символ (строка 5). Чтобы возвратить предпоследний символ, пришлось сначала определить длину строки (функция Len в 6-ой строке), а затем с помощью функции Mid возвратить точно указанный символ. Эту же задачу, конечно, можно решить и по-другому. Например, более простым кодом (функция Right возвращает два последних символа):

Label4.Caption = Asc(Right(Text1.Text, 2))

На рис. 6.12 приведено приложение в режиме выполнения.

Рис. 6.12

Тестовое приложение в режиме выполнения.