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

Функция StrToUTF8.

Функция StrToUTF8 преобразует текстовую строку в байтовую, в кодировке UTF-8.

Примечание: помимо значения System.Text.UTF8Encoding, для применения соответствующей кодировки, можно также использовать:
System.Text.ASCIIEncoding,
System.Text.UnicodeEncoding,
System.Text.UTF7Encoding.

Function StrToUTF8(str)

    Const encoding = "UTF8"'|ASCII|UTF7|Unicode

    Set utf8 = CreateObject("System.Text." & encoding & "Encoding") 

    StrToUTF8 = utf8.GetBytes_4(str)

End Function

Пример:

text = "я помню чудное мгновенье.."

fName = "utf8_Sample.txt"

blob = StrToUTF8(text)'получить блоб

WScript.Echo "Text: " & Chr(34) & text & Chr(34) 
WScript.Echo "String length: " & Len(text) & " symbols"
WScript.Echo "Blob length: " & LenB(blob) & " bytes"
WScript.Echo "Writing text into file " & Chr(34) & fName & Chr(34)

Call writeBinaryFile(fName, blob)
WScript.Echo "The End"