VBA - tableau d'octets concaténer

Question

Je me réfère à cette question: PBKDF2 Excel UDF and how to concatenate INT(i)

OP n'a pas fourni le code pour son « ConcatenateArrayInPlace » -Function, qui est contenu dans sa solution auto-trouvé à sa question initiale. J'essaie de créer la fonction moi-même. Cependant, je n'arrive nulle part.

Est-ce que quelqu'un sait comment la fonction susmentionnée pourrait fonctionner?

Best,

Jasper

Answer 1

Je pense avoir trouvé une solution.

J'ai changé le PBKDF2-Code comme suit:

outputBytes = ConcatenateArrayInPlace(outputBytes, tempBytes) 

(au lieu de ConcatenateArrayInPlace outputBytes, tempBytes)

I inséré la fonction suivante:

Function ConcatenateArrayInPlace(ab1() As Byte, ab2() As Byte) 
Dim ab3() As Byte 
Dim i As Long 

ab3 = ab1 
ReDim Preserve ab3(UBound(ab1) + UBound(ab2)) 
For i = 0 To UBound(ab2) 
    ab3(i + UBound(ab1)) = ab2(i) 
Next 

ConcatenateArrayInPlace = ab3 

End Function 

Maintenant, il fonctionne.

Best,

Jasper

Answer 2

Je crois que ce qui suit reproduirait le code manquant:

Sub ConcatenateArrayInPlace(ByRef ab1() As Byte, ByRef ab2() As Byte) 
    Dim origUBound As Long 
    Dim i As Long 
    origUBound = UBound(ab1) 
    ReDim Preserve ab1(LBound(ab1) To origUBound + 1 + UBound(ab2) - LBound(ab2)) 
    For i = LBound(ab2) To UBound(ab2) 
     ab1(origUBound + 1 + i - LBound(ab2)) = ab2(i) 
    Next 
End Sub 

Il mettra à jour le tableau spécifié comme premier paramètre en annexant le tableau spécifié comme deuxième paramètre.