We help IT Professionals succeed at work.
Get Started

String to Bynary (Fast Conversion)

lson_98
lson_98 asked
on
305 Views
Last Modified: 2013-11-27
Is there anyone that knows a fast String to Binary conversion with VBA?
Here an example of slow conversion and a fast conversion o Binary to String
Thanks
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

Open in new window

Comment
Watch Question
CERTIFIED EXPERT
Top Expert 2016
Commented:
This problem has been solved!
Unlock 1 Answer and 1 Comment.
See Answer
Why Experts Exchange?

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.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE