Пример 2. 'Демонстрация операции конкатенации "+"

'Имя файла Len_+_Mid.vbs

'Демонстрация операции конкатенации "+"

'а также функций работы со строками Len и Mid

option explicit

dim str

MsgBox "Демонстрация функции Len, которая возвращает длину строки"

str=CStr(inputbox("Введите строку","Окно ввода","Первая строка"))

Msgbox "Длина строки "&chr(34)&str&chr(34)&" - "&CStr(len(str))

dim str1,str2,str3

MsgBox "Демонстрация операции конкатенации "+" "

str1=CStr(inputbox("Введите параметр","Введите первую строку",""))

str2=CStr(inputbox("Введите параметр","Введите вторую строку",""))

str3=CStr(inputbox("Введите параметр","Введите третью строку",""))

dim concat 'конкатенация строк

concat=str1+str2+str3

Msgbox "Конкатенация трех строк: "&chr(34)&concat&chr(34)

MsgBox "Демонстрация функции Mid, которая возвращает подстроку строки"

str=CStr(inputbox("Введите последовательность символов","",""))

dim start 'начало вырезки

start=CInt(inputbox("Введите целое положительное число",_

"Введите начало вырезки","0"))

dim length

length=CInt(inputbox("Введите целое положительное число",_

"Введите длину вырезки",Cstr(len(str))))

Msgbox "mid из "&chr(34)&str&chr(34)&vbcrlf&_

" - "&chr(34)&mid(str,start,length)&chr(34),0,"Результат"