title image


Smiley Re: String zu Byte
hier eine kleine Routine, die genau das macht:



'

' A utility function which converts a string into an array of

' bytes.

'

Private Function StringToArray(InString As String) As Byte()

Dim lngI As Long

Dim bytBuffer() As Byte

ReDim bytBuffer(Len(InString))

For lngI = 0 To Len(InString) - 1

bytBuffer(lngI) = Asc(Mid(InString, lngI + 1, 1))

Next lngI

StringToArray = bytBuffer

End Function

wenn man keine Ahnung hat,
einfach mal Fresse halten.
(Dieter Nuhr)

Gilt natürlich nicht für Fragen hier!



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: