Aus einer Funktion erhalte ich die Daten in einer Array-Variablen im Fomat Byte zur Verfügung gestellt.
Wie kann ich ohne Loop diese Array-Daten in einen gewöhnlichen String umwandeln?
Gruß Joschi
Sub tt()
Dim bBytes(9) As Byte
Dim i As Integer
Dim strText As String
For i = 0 To 9
bBytes(i) = 65 + i
Next
'
strText = StrConv(bBytes, vbUnicode)
'
MsgBox strText
End Sub
Sub T_Byte()
Dim By(3) As Byte
'By = StrConv("ABC", vbFromUnicode)
By(0) = 65
By(1) = 66
By(2) = 67
Debug.Print WorksheetFunction.TextJoin(" ", True, By)
Debug.Print StrConv(By, vbUnicode)
End Sub
for b = 0 to ubound(ByteData)
out = out & chr(ByteData(b))
next b
msgbox out