Windows API longueur de String (VBA.Len vs. VBA.LenB)

Bonjour,

A force de creuser le sujet, je me suis rendu-compte qu'il était préférable de récupérer la longueur d'une String (peut-être que c'est à différencier d'un buffer ?) via VBA.LenB. Hors, le code suivant plante en 64 bits.

Le bout de code suivant permet de lire le contenu d'une console MS-DOS.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'...   Dim lpCharacter As String: lpCharacter = VBA.Space$(8192) 'je pourrais augmenter la taille, mais ça me suffit   'a priori, je devrais écrire nLength:=VBA.LenB(lpCharacter) au lieu de nLength:=VBA.LenB(lpCharacter) pour assurer une compatibilité mixte 32 vs. 64 bits, mais ça plante en 64 bits API.ReadConsoleOutputCharacter hConsoleOutput:=hConsoleOutput, _ lpCharacter:=lpCharacter, _ nLength:=VBA.Len(lpCharacter), _ dwReadXY:=0&, _ lpNumberOfCharsRead:=lpNumberOfCharsRead 'dwReadXY est remplacé par dwReadCoord dans la déclaration officielle   pStr = VBA.left$(lpCharacter, lpNumberOfCharsRead)   '...

---

Pouvez-vous s'il vous plaît m'en dire davantage concernant ce type de subtilité ?

Merci ;)

En utilisant la fonction PointToLongLong, je me suis rendu comte que lenB(ll) = 2, alors que VBA.LenB(ll) = 8.

Je sais qu'utiliser VBA.LenB pour une structure personnalisée conduit à l'erreur suivante (notamment pour initialiser cbSize dans la plupart des structures de l'API Windows) :

Pièce jointe 518307

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'copies a API.POINT into a LongLong. For an API requiring a ByVal API.POINT parameter, this LongLong can be passed in instead #If Win64 Then Function PointToLongLong(ByRef pt As API.POINT) As LongLong   Dim ll As LongLong   Dim cbLongLong As LongPtr: cbLongLong = LenB(ll) 'VBA.LenB(ll) is wrong here   'makes sure the contents will fit If LenB(pt) = cbLongLong Then API.CopyMemory Destination:=ll, Source:=pt, length:=cbLongLong   PointToLongLong = ll   End Function #End If

---

Pouvez-vous m'en dire davantage à ce sujet ?

Attention : VBA.lenB n'est pas la même fonction que lenB

Dans la bibliothèque VBA, lenB est une méthode la classe String qui permet de connaître la taille occupée en octets par une chaîne de caractère.
Si on lui donne un numérique, il est d'abord transformé en String.
Si on lui donne une structure, la conversion en String ne peut se faire d(où l'erreur je pense.

LenB tout court est une instruction du langage.
C'est celle-ci qui permet de connaître la taille d'une variable en octet, quelque soit son type.

Code:

---

1 2 3 4

Dim aa As Long aa = 12345 VBA.LenB (aa) => 10 LenB(aa) => 4

---

12345 est converti par la première fonction en "12345", qui nécessite 10bytes (car unicode)
Alors que la taille réelle du Long est bien 4.

Code:

---

1 2 3 4

Dim aa As String aa = "12345" VBA.LenB (aa) => 10 LenB(aa) => 10

---

Ici pour du String les deux sont identiques.

Merci pour ces précisions, ne s'agirait-il pas plutôt de la classe Strings (elle-même de la librairie VBA) ? Car, j'ai bien un VBA.Strings.LenB(...) qui est identique à VBA.LenB(...). Est-ce que du coup, LenB est une instruction "ancéstrale" (BASIC) au même titre que Open, Write, Close par exemple ? :weird:

Merci encore !

Oui c'est ça, bibliothèque VBA, classe Strings (vu son nom, pas étonnant que c'est prévu pour des String).

LenB tout court doit être une fonction du coeur de vba, on ne trouve qu'un lenB dans l'explorateur d'objets (celui de la bibliothèque vba).

Personnellement je n'avais jamais utilisé vba.lenb. :aie:

Je viens de faire une nouvelle découverte :lol: :lol: :lol: ... et tout s'explique, mais quand même !!

Si j'écris LenB(Expression:="Blabla"), ça ne compile pas, alors que VBA.LenB(Expression:="Blabla") ou VBA.Strings.LenB(Expression:="Blabla") passe très bien :weird:

Pièce jointe 519435

En fait, dans un soucis de rigueur, j'ai pris l'habitude de toujours nommé les noms des arguments, même s'ils sont flagrants, mais je me rends compte que pour certains, ça ne passe pas, comme CallByName. Dois-je en conclure que toutes les instructions VBA n'acceptent pas les arguments nommés ? Je vais voir de plus près ce qu'est au juste une instruction VBA :ptdr: .