Uncode
cs_lemrabott
Messages postés
27
Date d'inscription
vendredi 6 mai 2005
Statut
Membre
Dernière intervention
27 mars 2006
-
26 juil. 2005 à 18:11
PCPT Messages postés 13278 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 26 juil. 2005 à 20:47
PCPT Messages postés 13278 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 26 juil. 2005 à 20:47
A voir également:
- Uncode forum
- "/Forum/ref.php?url=" - Forum PHP
- Probleme sur codeIgniter - Forum PHP
- Symfony - Forum PHP
- Codeigniter ✓ - Forum PHP
- Forum pmu tuyau - Forum PHP
1 réponse
PCPT
Messages postés
13278
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
48
26 juil. 2005 à 20:47
26 juil. 2005 à 20:47
seul le TxtBox des Forms2.0 Components permet l'affichage de l'Unicode.
'écrit l'unicode en fichier texte
Dim a(0 To 5) As Byte
a(0) = &HFF
a(1) = &HFE
a(2) = &H39
a(3) = &H4E
a(4) = &H44
a(5) = &H0
Open App.Path & "\unicode.txt" For Binary As #1
Put #1, , a
Close #1
'relis le fichier texte et l'affiche
Dim txtline As String
Open App.Path & "\unicode.txt" For Binary As #1
txtline = InputB(2, #1) ' always FF FE, skip them
txtline = InputB(4, #1)
Close #1
TextBox1.Text = txtline
voilà, tu as la base, avec un exemple unicode chinois (provenant de MSDN)
@+
PCPT
'écrit l'unicode en fichier texte
Dim a(0 To 5) As Byte
a(0) = &HFF
a(1) = &HFE
a(2) = &H39
a(3) = &H4E
a(4) = &H44
a(5) = &H0
Open App.Path & "\unicode.txt" For Binary As #1
Put #1, , a
Close #1
'relis le fichier texte et l'affiche
Dim txtline As String
Open App.Path & "\unicode.txt" For Binary As #1
txtline = InputB(2, #1) ' always FF FE, skip them
txtline = InputB(4, #1)
Close #1
TextBox1.Text = txtline
voilà, tu as la base, avec un exemple unicode chinois (provenant de MSDN)
@+
PCPT
