• Home
 · 
• String Manipulation
 · 
• Get the binary inverse of a string

Get the binary inverse of a string

This code is the equivalence of the bitwise complement C opertator (~), except this only works on strings. I got tired of not having this capability, so I wrote it =)

Inputs
any string

Returns
the bitwise inverse of the string

Side Effects
works ONLY on strings

Rate Get the binary inverse of a string

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function BinaryInverse(ByVal szData As String)
  Dim szRet As String
  szRet = Space$(Len(szData))
  For i = 1 To Len(szData)
    Mid(szRet, i, 1) = Chr$(255 - Asc(Mid(szData, i, 1)))
  Next i
  BinaryInverse = szRet
  
End Function