Conversion UNICODE ANSI

Le
Jean Saint Jalmes
Bonjour,

Sous VB6.0, je veux convertir une chane 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 mthode ?

Merci d'avance.
Jean
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
PR-VB6
Le #14756381
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" 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
Le #14756371
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


.



Zoury
Le #14756251
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" 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
Publicité
Poster une réponse
Anonyme