Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Conversion UNICODE ANSI

Conversion UNICODE ANSI

3 réponses
Avatar
Jean Saint Jalmes
Bonjour,

Sous VB6.0, je veux convertir une cha=EEne Unicode en un=20
tableau de Byte.

Private Texte as String
Private Buffer() as Byte

private sub Form_Load()

dim Ptr as long

Texte =3D "Bonjour..."
redim buffer(len(texte))
for Ptr =3D 1 to len(Texte)
buffer(ptr) =3D midb$(texte,ptr,1)
Next Ptr
end sub

Il y a surement une meilleure m=E9thode ?

Merci d'avance.
Jean
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
PR-VB6
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" a écrit dans le
message de news: 766401c430fd$5fc28820$
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
Avatar
Oui merci, cela convient.

-----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"


a écrit dans le
message de news: 766401c430fd$5fc28820$
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


.



Avatar
Zoury
Salut Jean! :O)

'***
Dim by() As Byte
by = "Hello"
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Jean Saint Jalmes" wrote in message
news:766401c430fd$5fc28820$
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