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

Функция BinStrToHexStr.

Функция BinStrToHexStr преобразует двоичную текстовую строку (состояющую из нулей и единиц) в текстовую шестнадцатиричную. Функция, обратная HexStrToBinStr.

Function BinStrToHexStr(binStr)
	
	Set  dict = CreateObject("Scripting.Dictionary")
	Call dict.Add("0000","0")
	Call dict.Add("0001","1")
	Call dict.Add("0010","2")
	Call dict.Add("0011","3")
	Call dict.Add("0100","4")
	Call dict.Add("0101","5")
	Call dict.Add("0110","6")
	Call dict.Add("0111","7")
	Call dict.Add("1000","8")
	Call dict.Add("1001","9")
	Call dict.Add("1010","a")
	Call dict.Add("1011","b")
	Call dict.Add("1100","c")
	Call dict.Add("1101","d")
	Call dict.Add("1110","e")
	Call dict.Add("1111","f")

	TmpStr = String( (4-(Len(binStr) Mod 4)) Mod 4, "0" ) & binStr
	RezStr = ""

	For i=0 To Len(TmpStr)/4 - 1

		x = Mid(TmpStr, i*4 + 1, 4)

		If dict.Exists(x) Then

			RezStr = RezStr & dict.Item(x)

		Else

			RezStr = RezStr & "x"

		End If	

		'Echo i & "  " &  x & "  " & dict.Item(x)

	Next

	BinStrToHexStr = RezStr

End Function

Пример:

binStr = "1110001011100100"

hexStr = BinStrToHexStr(binStr)'двоичную строку в hex

WScript.Echo "BinStr: " & Chr(34) & binStr & Chr(34)
WScript.Echo "HexStr: " & Chr(34) & hexStr & Chr(34)