Другие функции необходимые для работы со строками

Asc(str) – код первого символа строки Str

Chr(code) – символ с кодом code по таблице ASCII

Join(Array,[break]) – преобразует строковый массив Array в строку. Элементы массива разделены строкой break или пробелом.

Split(str[,break[, count]]) – Преобразует строку str в массив break – разделитель элементов, count – количество элементов необходимых для обработки. Вместо разделителя по умолчанию - пробел

LCase(str) – все символы строки str переводит в нижний регистр

UCase(str) – все символы строки str переводит в верхний регистр

Left(str, len) – возвращает len символов строки str слева

Right(str, len) – возвращает len символов строки str справа

LTrim(str)

RTrim(str) – удаляет из строки str начальные, конечные или те и другие пробелы

Trim(str)

Space(x) – строка из x пробелов

String(number, char)-строка из number символов char (указывается код)

Replace(source, pattern, replacewith[, start[, count]]) – заменяет вхождения pattern в source на replacewith, начиная со start. Count указывает количество замен.

HEX(x)

Переводят число x в восьмеричную или шестнадцатеричную систему счисления виде строки

OCT(x)

Основные функции для работы с датой и временем:

Date – возвращает текущую дату

IsDate(слово) – Проверяет является ли данной «слово» датой.

MonthName(numb,[abbr]) – возвращает название месяца по номеру, [абр.] – в сокращенном виде.

Now – возвращает текущие дату и время

Time – текущее время.

Timer – количество секунд прошедших с полуночи

Weekday(date[,первый день недели]) – возвращает номер дня недели по дате, если нужно считает первым днем номер, указанный в параметре.

WeekdayName(weekday[,abbr[,]первый день недели])- возвращает НАЗВАНИЕ дня недели по номеру.

8.3 Демонстрационные примеры Пример 1

' Имя файла ASCII.vbs

' Программа выводит таблицу ASCII-кодов

option explicit

'---------------------------------------

sub ASCII(N,M)

dim i

dim a

a=""

For i=N to M

a=a&CStr(i)&" - "&chr(34)&chr(i)&Chr(34)&"; "

Next

msgbox a,,"Вывод таблицы ASCII"

end sub

'---------------------------------------

ASCII 32,129

ASCII 130,200

ASCII 201,255

Пример 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,"Результат"