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

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

Результат = Len(Строка)

Функцию Len () можно использовать в программе для разнообразных целей. Чаще всего данная конструкция применяется для определения пустой строки. Например, если пользователь ввел некоторую строку, а ее длина равна нулю. нужно выдать соответствующее сообщение об ошибке и прекратить все дальнейшие операции.

Например:

Len ( " Иван " + " Иванович " ) возвращает 12;

Len ( " Иван " + " " + "Иванович") возвращает 13;

Len (900 & " - " & 4567) возвращает 8.

Пример: Вычислить длину строки

Private Sub Command2_Click()

Dim S As String

Text1.Text = "Обычное праздничное блюдо на пикнике - шашлык. Однако можно придумать и что-нибудь оригинальное (запечённую в углях рыбу или мясо, жаренную на вертеле индейку)."

S = Text1

Text2.Text = Len(S)

End Sub

Дата добавления: 2014-01-06