Wie konvertieren einen einfachen string zu Byte-Array in VBA?

Muss ich konvertieren einen einfachen string in ein Byte-array mit Hilfe von excel-VBA. Dann ist dieses byte-array wird als der Wunsch, den Körper.

Wie kann ich das tun?

Dank.

InformationsquelleAutor Ubalo | 2009-06-15
  1. 8

    Wenn Sie nur ANSI-Zeichen können Sie verwenden Sie die StrConv () - Funktion wie hier.

    • Beide Antworten funktioniert gut, aber dieser erfordert weniger Codierung und Zeit.
    InformationsquelleAutor Matthew Jones
  2. 22

    Matthäus beantwortet, wie Sie zum konvertieren in ANSI, aber wenn Sie wollten, dass die resultierenden byte-array zu vertrete immer noch die ursprünglichen Unicode-Zeichenfolge, würden Sie weisen einfach direkt:

    Public Sub Main()
   Dim b() As Byte
   Dim s As String
   s = "Whatever"
   b = s  'Assign Unicode string to bytes.'
   s = b  'Works in reverse, too!'
   Debug.Print s
End Sub

    Das ist alles dort ist zu ihm. Sie am Ende mit einem 16-element-Byte-array, das jedes aufeinanderfolgende paar Beschreibung ein Unicode-Zeichen.

    • BTW, um Ihre Kommentare richtig im VB-code-Beispiele, fügen Sie ein anderes Apostroph ' am Ende jeder Zeile code
    • Gibt es eine Anleitung zu, die, irgendwo? Ich fand die Eingabe der code, der zu einer außerordentlich mühsam.
    InformationsquelleAutor Karl E. Peterson
  3. -1
    ' a bit of an example
' had some strings down column  G
' nothing in columns "F" or "H"  so that current works
'  Think about it.. there are many many columns
' so leave blank columns on each side of setsof dats
' then currentregion works ... IFF no blank rows in the data
'
' problem to solve  some text  was  Fred3  John2 Blue3
' others were  Bert 3  Green 2 ... which was the require format
'  the ASC char 1 ..255 are the odd or even
'  numbered bytes if array is 1 based or 0 based
'
Private Sub CommandButton1_Click()
    Dim RV$, Ra As Range, Ri&, AL%, WSA() As Byte
    Dim Ci%, WS$, LV As Byte

    Set Ra = Range("g8").CurrentRegion
    For Ri = 1 To Ra.Rows.Count
        WSA = CStr(Ra(Ri, 1).value)
        AL = UBound(WSA)
        LV = WSA(AL - 1)  ' last char byte value
        If LV > 47 And LV < 58 Then    ' 0 to 9
            If WSA(AL - 3) <> 32 Then    ' no space " "
                ReDim Preserve WSA(AL + 2)    ' allow 1 more char
                WSA(AL - 3) = 32    ' put in space
                WSA(AL - 1) = LV    ' return char
                WS = WSA    ' back to a string
                Ra(Ri, 1) = WS  ' back to the cell
            End If
        End If
    Next Ri
End Sub

' of course  the normal VBAcommands  Instr len Mid replace  &
' would do the job ... but my brain is lazy and needed some exercise
    InformationsquelleAutor Harry S
Schreibe einen Kommentar