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

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

Function Len(Expression)

В качестве параметра Expression может быть использовано выражение любого типа. Функция Len возвращает количество байт, которое занимает параметр в оперативной памяти. Если Expression – строка, то функция Len возвращает количество символов в строке, например:

If Len ( txtFileName.Text ) = 0 Then MsgBox “Введите имя файла”

В приведённом фрагменте программы выполняется проверка содержимого текстового поля txtFileName. Если пользователь не ввёл в поле ни одного символа, то появляется окно сообщений с текстом “Введите имя файла”.

Изменение регистра символов в строке

Для изменения регистра символов в строке предусмотрены две специальные функции: UCase и LCase, синтаксис которых имеет вид:

Function Ucase ( S As String )

Function UCase$ ( S As String ) As String

Function Lcase ( S As String )

Function LCase$ ( S As String ) As String

Пример:

lblUp.Caption = UCase$ ( txt.Text )

В приведённом фрагменте программы выполняется считывание строки из текстового поля txt, преобразование её в верхний регистр и передача в надпись lblUp.

Удаление Лишних пробелов

Большинство строк содержат пробелы, с помощью которых отделяются друг от друга отдельные слова, абзацы и др. Однако ничто не запрещает пользователю поставить несколько пробелов в начале и (или) конце исходной строки. Чаще всего эти "лишние'" пробелы появляются в результате случайного нажатия клавиши <Пробел> перед или после ввода строки текста. Кроме того, дополнительные пробелы в конце строки появляются при использовании строк фиксированной длины, когда длина новой строки меньше, чем размер переменной, которой она присваивается.

Чаще всего лишние пробелы не причиняют никакого дополнительного беспокойства, за исключением того, что они напрасно занимают память. Однако, если вы попытаетесь объединить несколько строк, содержащих лишние пробелы в одну, результат, скорее всего, будет не таким, как вы ожидали. Например, предположим, что в вашей форме предусмотрено два 30-символьных текстовых поля для ввода имени и фамилии пользователя. При наборе имени пользователь может случайно ввести в конце несколько пробелов. Если в программе вам нужно сформировать полное имя клиента для печати конверта, в него попадут и лишние пробелы. Для решения подобных проблем в Visual Basic предусмотрено несколько специальных функций, с помощью которых можно легко избавиться от ненужных пробелов. Синтаксис этих функций имеет вид:

Function Trim$ ( String As String ) As String Удаляет пробелы в начале и конце строки

Function LTrim$ (String As String ) As String Удаляет пробелы в начале строки

Function RTrim$ ( String As String ) As String Удаляет пробелы в конце строки

Пример:

Print Trim ( FirstName ) & "U" & Trim ( LastName )