Brohoof
Brohoof
Programming language:VBA
2021-03-18 13:22:59
0
Q:

excel vba text to binary string

narcia
narcia
Code: VBA
2021-02-17 04:43:20 
'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
2
π times e
π times e
Code: VBA
2021-08-14 18:25:43 
'VBA function to convert number to binary string:

Function DecToBin$(ByVal n&)
    Do
        DecToBin = n Mod 2 & DecToBin
        n = n \ 2
    Loop While n
End Function

'-------------------------------------------------------------------  
'NB: Excel has the built-in worksheet function, DEC2BIN(), but it
'can only handle 10-bit numbers or less. The above function can
'convert all positive 32-bit numbers: 
  
MsgBox DecToBin(9512489)    '<--displays: 100100010010011000101001
3

Tags

Related

New to Communities?

Join the community