Discussion :

[Edition 0ne]

Bonjour,

je suis entrain de développer une petite application et j ai un problème avec les accents et les ":"

Code :

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

1
2
3
4
Microsoft Windows [version 6.0.6001]
Copyright (c) 2006 Microsoft Corporation. Tous droits r‚serv‚s.
 
C:\\Program Files\\Microsoft Visual Studio\\VB98>

Je pipe le cmd et envoie mes instruction , j'arrive bien a récupérer les info renvoyer mais je n'arrive pas a faire afficher les "é" dans une textbox
même en mettant les info de retour dans un string et en envoyant directement le string dans le corp de ma requete ( info de retour envoyer par winsock sur server web distant ) et bien c est pareil , pas moyen d affiché les accesnt ni ":" ,ca me le transforme en "ÿ:"

J ai utilisé la commande :

Debug.Print StrConv(bufferCMD, vbUnicode)

j ai lu que l encodage natif de windows est AINSI , si je le transforme en Unicode ca marche pas non plus, toujours pareil

La seule façon de faire affiché mes accents dans un textbox est de choisir la police "Terminal" mais dans ma requête , j'ai toujours pas les accents.

Merci d avance

[Edition 0ne]

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
Function Convert(ByVal Texte As String) As String
    Dim ASCI As String
    Dim ANSI As String
    Dim Src As String
    Dim Dest As String
 
    Dim I As Integer
    Dim Pos As Long
    Text = Index.bufferCMD
    ASCI = Chr$(132) & Chr$(148) & Chr$(129) & Chr$(225) & Chr$(142) & Chr$(153) & Chr$(154) & Chr$(128) & Chr$(130) & Chr$(131) & Chr$(133) & Chr$(134) & Chr$(135) & Chr$(136) & Chr$(137) & Chr$(138) & Chr$(139) & Chr$(140) & Chr$(143) & Chr$(144) & Chr$(147) & Chr$(150) & Chr$(151) & Chr$(20) & Chr$(145) & Chr$(146) & Chr$(155) & Chr$(156) & Chr$(166) & Chr$(167) & Chr$(171) & Chr$(172) & Chr$(237) & Chr$(241) & Chr$(246) & Chr$(253) & Chr$(21) & Chr$(157)
    ANSI = Chr$(228) & Chr$(246) & Chr$(252) & Chr$(223) & Chr$(196) & Chr$(214) & Chr$(220) & Chr$(199) & Chr$(233) & Chr$(226) & Chr$(224) & Chr$(229) & Chr$(231) & Chr$(234) & Chr$(235) & Chr$(232) & Chr$(239) & Chr$(238) & Chr$(197) & Chr$(201) & Chr$(244) & Chr$(251) & Chr$(249) & Chr$(182) & Chr$(230) & Chr$(198) & Chr$(162) & Chr$(163) & Chr$(170) & Chr$(186) & Chr$(189) & Chr$(188) & Chr$(216) & Chr$(177) & Chr$(247) & Chr$(178) & Chr$(167) & Chr$(165)
 
        Src = ASCI
        Dest = ANSI
 
 
    For I = 1 To Len(Src)
        Do
            Pos = InStr(Texte, Mid$(Src, I, 1))
            If Pos = 0 Then Exit Do
            Mid$(Texte, Pos, 1) = Mid$(Dest, I, 1)
        Loop
    Next I
 
    Index.buffer = Texte
 
End Function

ca marche nikel