MyTetra Share
Делитесь знаниями!
Преобразование байтового массива
16.03.2019
23:43
Текстовые метки: байтовый массив,vba
Раздел: !Закладки - VBA - Разобрать

Преобразование байтового массива в строку

Код (vb.net):

Function ByteArrayToString(varByteArray)
    Dim rs: Set rs = CreateObject("ADODB.Recordset")
    rs.Fields.Append "temp", 201, LenB(varByteArray) 'adLongVarChar
    rs.Open: rs.AddNew: rs("temp").AppendChunk varByteArray: rs.Update
    ByteArrayToString = rs("temp"): rs.Close: Set rs = Nothing
End Function


Преобразование строки в байтовый массив

Код (vb.net):

Function StringToByteArray(sText)
    Dim BS: Set BS = CreateObject("ADODB.Stream")
    BS.Type = 1 'adTypeBinary
    BS.Open
    Dim TS: Set TS = CreateObject("ADODB.Stream")
    With TS
        .Type = 2: .Open: .Charset = "windows-1251": .WriteText sText: .Position = 0: .CopyTo BS: .Close
    End With
    BS.Position = 0: StringToByteArray = BS.Read()
    BS.Close: Set BS = Nothing: Set TS = Nothing
End Function


Получить номер версии операционной системы

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования