VBS Expert

1. Файловая система
   1. Текстовые файлы
   2. Двоичные файлы
   3. Каталоги
   4. Zip-архивы
2. Регулярные выражения
   1. Функция TestString
   2. Функция ExecRegexp
   3. Функция FindAll
   4. Функция rgReplace
3. Базы данных
   1. Объект Recordset
   2. Объект Command
4. Двоичные данные
   1. Функция StrToUTF8
   2. Функция BStrToBinStr
   3. Функция BStrToHexStr
   4. Функция BinStrToHexStr
   5. Функция HexStrToBinStr
5. Полезные функции
   1. Буфер обмена
   2. Процедура Echo
   3. Процедура Include
   4. Хеш-функция MD5
   5. Функция getUserName
   6. Функция PadLeft

Функция PadLeft

Функция PadLeft принимает на вход строку str и дополняет её слева символом ch до длины totalWidth. Основное применение - форматированный вывод чисел: когда маленьким числам вначале дописываются нули или пробелы.

Function PadLeft(str, ch, totalWidth)

	If Len(ch) < 1 Then'если ch - пустая строка

		c = 32'ascii код пробела

	Else

		c = Asc(ch)'код первого символа

	End If

	If Len(str) < totalWidth Then

		PadLeft = String(totalWidth - Len(str), Chr(c)) & str

	Else

		PadLeft = str

	End If

End Function

Схожий эффект дает, например, конструкция вида Right("0..0" & num, width), где num - выводимое число, но в этом случае у чисел, занимающих более width знаков, будут обрезаны старшие разряды.

Пример:

For i=0 To 10

    WScript.Echo PadLeft(i, "0", 2)

Next