 |
Другие функции необходимые для работы со строками
|
|
|
|
Другие функции необходимые для работы со строками
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, " Результат"
Пример 3
'Имя файла Udvoenie. vbs
'Программа удваивает каждую букву введенного слова
option explicit
dim str
str=Cstr(Inputbox(" Введите слово", " Удвоение букв" ))
dim i
dim str1
str1=" "
for i=1 to len(str)
str1=str1+mid(str, i, 1)+mid(str, i, 1)
|
|
|
next
msgbox " Результат: " & str1
Пример 4
'Имя файла Palindrom. vbs
'Программа проверяет является ли строка палиндромом.
'Палиндром - слово, которое читается одинаково слева на право и справа налево
option explicit
dim str, STR1, RTS
dim i
str=CStr(inputbox(" Введите параметр", " Введите строку", " " ))
STR1=Ucase(str) ' Переводим символы строки в верхний регистр
STR1=replace(STR1, " ", " " ) ' Удаление пробелов
RTS=" "
'Записываем слово в обратном порядке
For i=1 to len(STR1)
RTS=Mid(STR1, i, 1)+RTS
Next
msgbox str& ": полиндром - " & (RTS=STR1)
|
|
|
