Function String_To_Binary(S As String) As Variant 'It takes Long time to Converts the string into a Bynary array() if the string is long... 'Standard conversion... Dim I As Long, V As Variant ReDim V(0 To Len(S) - 1) As Byte For I = 1 To Len(S) V(I - 1) = AscB(Mid(S, I, 1)) Next I String_To_Binary = V End Function Function BinaryToString(ByteArray As Variant) As String '--- Fast Converts the binary content to text Dim X As New ADODB.Recordset, L As Long BinaryToString = "" If IsNull(ByteArray) Then Exit Function L = LenB(ByteArray) If L > 0 Then X.Fields.Append "mBinary", adLongVarChar, L X.Open X.AddNew 'Use the AppendChunk method to append a Byte Array as a string! X("mBinary").AppendChunk ByteArray X.Update BinaryToString = X("mBinary") End If X.Close End Function
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE