Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
-----Message d'origine-----Dim buffer() As ByteDim strA$Dim strB$Dim strC$strA$ = "ABC"a = Len(strA$) '=3b = LenB(strA$) '=6buffer = strA$c = LBound(buffer) '0d = UBound(buffer) 'à 5x0 = buffer(0)X1 = buffer(1)X2 = buffer(2)x3 = buffer(3)x4 = buffer(4)x5 = buffer(5)strB$ = buffere = Len(strB$) '3f = LenB(strB$) '6'transformation unicode en non unicodestrC$ = StrConv(strB$, vbFromUnicode)buffer = strC$c = LBound(buffer) '0d = UBound(buffer) '2cela convient il?PR"Jean Saint Jalmes"
message de news: 766401c430fd$5fc28820$Bonjour,Sous VB6.0, je veux convertir une chaîne Unicode en untableau de Byte.Private Texte as StringPrivate Buffer() as Byteprivate sub Form_Load()dim Ptr as longTexte = "Bonjour..."redim buffer(len(texte))for Ptr = 1 to len(Texte)buffer(ptr) = midb$(texte,ptr,1)Next Ptrend subIl y a surement une meilleure méthode ?Merci d'avance.Jean.
-----Message d'origine----- Dim buffer() As Byte Dim strA$ Dim strB$ Dim strC$ strA$ = "ABC" a = Len(strA$) '=3 b = LenB(strA$) '=6 buffer = strA$ c = LBound(buffer) '0 d = UBound(buffer) 'à 5 x0 = buffer(0) X1 = buffer(1) X2 = buffer(2) x3 = buffer(3) x4 = buffer(4) x5 = buffer(5) strB$ = buffer e = Len(strB$) '3 f = LenB(strB$) '6 'transformation unicode en non unicode strC$ = StrConv(strB$, vbFromUnicode) buffer = strC$ c = LBound(buffer) '0 d = UBound(buffer) '2 cela convient il? PR "Jean Saint Jalmes" <anonymous@discussions.microsoft.com>
message de news: 766401c430fd$5fc28820$a501280a@phx.gbl... Bonjour, Sous VB6.0, je veux convertir une chaîne Unicode en un tableau de Byte. Private Texte as String Private Buffer() as Byte private sub Form_Load() dim Ptr as long Texte = "Bonjour..." redim buffer(len(texte)) for Ptr = 1 to len(Texte) buffer(ptr) = midb$(texte,ptr,1) Next Ptr end sub Il y a surement une meilleure méthode ? Merci d'avance. Jean .