Discussion :

[Saiylar]

Bonjour,

J'aurais besoin d'aide pour un programme que je développe

Mon problème : Je n'arrive pas à afficher de cyrillique dans une textbox. La phrase en cyrillique ayant été extraite d'un fichier .txt encodé en Unicode.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Mon code
Private Sub Command1_Click()
 
Dim f
Dim Ligne As String
f = FreeFile()
Open "C:\Documents and Settings\Administrator\Desktop\Russe.txt" For Binary As #f
Input #f, Ligne
Text1 = Ligne
Close #f
 
End Sub

Un peu plus de détails pour ceux que ca intéresse ...

Je suis sous XP. Le programme que je développe doit fonctionner sous XP et Seven ...

Le changement de langue du programme était géré par un fichier .txt encodé en ANSI jusqu'à ce que je sois bloqué par l'insertion du cyrillique. Maintenant je pense me tourner vers de l'Unicode ou du UTF-8.

Format du fichier :
Langue 1;Mot1;Mot2;Mot3 ...
Langue 2; ....

Ce n'est surement pas la meilleur façon mais c'est la seule à laquelle j'ai pensé sur le coup (et qui soit à ma portée ^^")

Principe :
- L'utilisateur choisi sa langue dans le programme et valide son choix
- J'ouvre mon fichier .txt et je trouve la ligne qui correspond à la langue choisie (1 ligne par langue avec des ";" entre chaque mot/phrase)
- Je split la ligne récupérée grâce à ses séparateurs (";") pour obtenir un tableau dans lequel je viens piocher mes mots/phrases.
- Je ferme le fichier .txt et rafraichi toute les zones de texte du programme.

Fonctionne très bien pour l'anglais et le français ... pose des problèmes pour l'insertion du Russe et de son alphabet cyrillique.

Avec le code ci-dessus, j'affiche "ÿþ4@02AB2C9B5!" dans la textbox au lieu de "Здравствуйте!", même en ayant mis la police de la textbox en cyrillique.

Donc si quelqu'un peut m'aider ... parce que la, je mouline ... surtout que je me demande si je ne prends pas le problème à l'envers (par exemple, une variable String peut-elle gérer du cyrillique ?)

Merci,

Saiylar

[ProgElecT]

Salut
En VB6, je ne connais qu'un seul composant qui puisse afficher des caractères de code ascii supérieur à 255, un MSHFlexGrid (Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB).
Sur un Form 1 MSHFlexGrid et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
 
Public Sub Demo()
Dim T As Integer
Dim ValDec As Long
Dim LeMot As String
Dim Result As String
Dim ChaqueCaractere() As String
 
' le mot en russe codé unicode
'        042D 0414 0440 0430 0432 0441 0442 0432 0443 0439 0442 0435 0021
LeMot = "042D 0414 0440 0430 0432 0441 0442 0432 0443 0439 0442 0435 0021"
 
 
ChaqueCaractere = Split(LeMot, " ")
For T = 1 To UBound(ChaqueCaractere)
    ValDec = CDbl("&H" & ChaqueCaractere(T))
    If ValDec > 255 Then
        Result = Result & ChrW(ValDec)
        Else
        Result = Result & Chr(ValDec)
    End If
Next
MSHFlexGrid1.TextMatrix(0, 0) = Result
 
 
'un mot que tu pourras traduire à l'occasion
LeMot = "000D 000A 0420 0435 0448 0435 043D 0438 0435 0020 003F"
 
Result = ""
ChaqueCaractere = Split(LeMot, " ")
For T = 1 To UBound(ChaqueCaractere)
    ValDec = CDbl("&H" & ChaqueCaractere(T))
    If ValDec > 255 Then
        Result = Result & ChrW(ValDec)
        Else
        Result = Result & Chr(ValDec)
    End If
Next
MSHFlexGrid1.TextMatrix(0, 0) = MSHFlexGrid1.TextMatrix(0, 0) & Result
 
End Sub
 
Private Sub Form_Load()
Me.Height = 2250: Me.Width = 5385
 
MSHFlexGrid1.Move 60, 60, 5000, 1550
MSHFlexGrid1.Cols = 1
MSHFlexGrid1.FixedCols = 0
MSHFlexGrid1.Rows = 1
MSHFlexGrid1.FixedRows = 0
MSHFlexGrid1.GridLines = flexGridNone
MSHFlexGrid1.Font.Name = "MS sans serif"
MSHFlexGrid1.Font = "MS sans serif"
MSHFlexGrid1.Font.Size = 28
MSHFlexGrid1.ColWidth(0) = 5000
MSHFlexGrid1.RowHeight(0) = 1500
MSHFlexGrid1.WordWrap = True
Demo
End Sub

Je te confirme qu'une variable de type string ne peut pas contenir de caractères code ascii supérieur à 255, ils sont remplacés par 63 soit le point interrogation.


Motif de l’édit

Je te confirme qu'une variable de type string ne peut pas contenir de caractères code ascii supérieur à 255, ils sont remplacés par 63 soit le point interrogation.

Contradictoire, car le code proposé utilise une variable string .
En fait si on utilise Debug.Print ou un copier/coller d'un mot contenant des caractères de code ascii supérieur à 255 d'un conteneur qui lui les accepte, le conteneur cible ne les supportant pas va afficher des ????.

[l_autodidacte]

En fait si on utilise Debug.Print ou un copier/coller d'un mot contenant des caractères de code ascii supérieur à 255 d'un conteneur qui lui les accepte, le conteneur cible ne les supportant pas va afficher des ????.

Tout à fait.

Avec quelques manipulations, on peut y arriver mais seulement en écriture directe ou un copier/coller à partir d'un autre programme. Cela consiste à suivre les étapes suivantes :
1 - Panneau de configuration
2 - Options régionales et linguistiques
3 - onglet Langues
4 - bouton Détails...
5 - bouton Ajouter...
6 - Choisir Russe pour Langue d'entrée et Configuration Clavier/IME
7 - OK ; Appliquer et Appliquer (pour les différentes boites)

Par la suite Ouvrir VB6 et placer un contrôle TextBox sur Form1.

Dans la fenêtre de propriétés du TextBox, choisir Font puis la police Arial et dans le menu

déroulant Script, choisir Cyrillique.

Activer la barre des langues pour qu'elle soit visible dans la barre des tâches

Lancer l'exécution de projet1 et basculer vers Russe(Alt+Maj si configuré de la sorte)

Taper n'importe quel mot : Les caractères sont en russe.