home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / AAA_SNMP_O1997295282006.psc / Conversion_Module.bas < prev    next >
BASIC Source File  |  2006-02-26  |  2KB  |  57 lines
  1. Attribute VB_Name = "Conversion_Module"
  2. 'Author: Anne-Lise Pasch
  3. 'E-mail: annelise@slayers.co.uk
  4. 'String Conversion Module
  5. 'http://www.freevbcode.com/ShowCode.Asp?ID=2921
  6.  
  7. Option Explicit
  8.  
  9. Public Function BinaryToDouble(ByVal strData As String) As Double
  10.     Dim dblOutput As Double
  11.     Dim lngIterator As Long
  12.     Do Until Len(strData) = 0
  13.         dblOutput = dblOutput + IIf(Right$(strData, 1) = "1", (2 ^ lngIterator), 0)
  14.         strData = Left$(strData, Len(strData) - 1)
  15.         lngIterator = lngIterator + 1
  16.     Loop
  17.     BinaryToDouble = dblOutput
  18. End Function
  19. Public Function ByteToString(ByRef bytData() As Byte, ByVal lngDataLength As Long) As String
  20.     Dim lngIterator As Long
  21.     For lngIterator = LBound(bytData) To (LBound(bytData) + lngDataLength)
  22.         ByteToString = ByteToString & Chr$(bytData(lngIterator))
  23.     Next lngIterator
  24. End Function
  25. Public Function Capitalise(ByVal strData As String) As String
  26.     Capitalise = UCase(Left$(strData, 1)) + LCase(Right$(strData, Len(strData) - 1))
  27. End Function
  28. Public Function DoubleToBinary(ByVal dblData As Double) As String
  29.     Dim strOutput As String
  30.     Dim lngIterator As Long
  31.     Do Until (2 ^ lngIterator) > dblData
  32.         strOutput = IIf(((2 ^ lngIterator) And dblData) > 0, "1", "0") + strOutput
  33.         lngIterator = lngIterator + 1
  34.     Loop
  35.     DoubleToBinary = strOutput
  36. End Function
  37. Public Function HexToString(ByVal strData As String) As String
  38.     Dim strOutput As String
  39.     Do Until Len(strData) < 2
  40.         strOutput = strOutput + Chr$(CLng("&H" + Left$(strData, 2)))
  41.         strData = Right$(strData, Len(strData) - 2)
  42.     Loop
  43.     HexToString = strOutput
  44. End Function
  45. Public Function NoNulls(ByVal varData As Variant, Optional ByVal varDefault As Variant = "") As Variant
  46.     NoNulls = IIf(TypeName(varData) <> "Null", varData, varDefault)
  47. End Function
  48. Public Function StringToHex(ByVal strData As String) As String
  49.     Dim strOutput As String
  50.     Do Until Len(strData) = 0
  51.         strOutput = strOutput + Right$(String$(2, "0") + Hex$(Asc(Left$(strData, 1))), 2)
  52.         strData = Right$(strData, Len(strData) - 1)
  53.     Loop
  54.     StringToHex = strOutput
  55. End Function
  56.  
  57.