excel vba string to bits
'VBA function to convert text to a binary string representation:
Public Function TextToBinaryString$(s$)
Dim c&, i&, lo&, bin$(0 To 255), d() As Byte
Const ZEROS$ = "00000000"
For c = 0 To 255
bin(c) = ZEROS
If c And 1& Then MidB$(bin(c), 15) = "1"
If c And 2& Then MidB$(bin(c), 13) = "1"
If c And 4& Then MidB$(bin(c), 11) = "1"
If c And 8& Then MidB$(bin(c), 9) = "1"
If c And 16& Then MidB$(bin(c), 7) = "1"
If c And 32& Then MidB$(bin(c), 5) = "1"
If c And 64& Then MidB$(bin(c), 3) = "1"
If c And 128& Then MidB$(bin(c), 1) = "1"
Next
d = s
lo = 1
TextToBinaryString = Space$(LenB(s) * 8)
For i = 0 To LenB(s) - 1 Step 2
Mid$(TextToBinaryString, lo) = bin(d(i + 1))
Mid$(TextToBinaryString, lo + 8) = bin(d(i))
lo = lo + 16
Next
End Function
'------------------------------------------------------------------------------
MsgBox TextToBinaryString("Hi") '<--displays: 00000000010010000000000001101001
Are there any code examples left?
New code examples in category VBA
-
VBA 2022-03-27 20:55:02 excel vba check if all substrings in list are in string
-
VBA 2022-03-27 20:40:39 excel vba set cell value to empty
-
VBA 2022-03-27 17:05:52 vba simple quote
-
VBA 2022-03-27 14:30:19 textbox find and replace vb
-
VBA 2022-03-27 09:10:21 nested if else in vb.net
-
VBA 2022-03-25 02:00:15 vba verticalalignment
-
VBA 2022-03-24 12:20:06 Excel web scraping
-
VBA 2022-03-24 10:11:00 excel vba BitToLong
-
VBA 2022-03-21 18:00:05 excel vba save file txt