Discussion :

[slam666]

Bonjour,

J'ai un petit problème et j'espère que quelqu'un pourra m'aider.

J'ai un programme qui lit la mémoire d'un autre process pour aller chercher une liste de nom. Le problème que j'ai est avec les accents français.

Si la string ne contient pas d'accent je la lit sans problème, mais s'il y a un accent dans le string j'ai deux caractères bizarre à la place de l'accent.

Ex:
Voir le petit fichier gif.

J'ai essayer de faire un StrConv(..., vbFromUnicode) mais cela ne fonctionne pas, ma string est rempli de ?

Merci pour votre aide.

Voici ma fonction pour lire une string.

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
Public Function ReadString(lStartAddress As Long, lEndAddress As Long) As String
Dim lBytesRead As Long
Dim sData As String
Dim lLength As Long
Dim lLastErr As Long
 
    On Error GoTo ReadString_Error
 
    lLength = lEndAddress - lStartAddress
    If lLength > 20000 Or lLength < 1 Then Exit Function
 
    sData = Space(lLength)
 
    If g_lhProcess <> 0 Then
        If ReadProcessMemory(g_lhProcess, lStartAddress, ByVal sData, lLength, lBytesRead) Then
            ReadString = sData
 
        Else
            lLastErr = Err.LastDllError
            Err.Raise lLastErr, , ApiErrorText(lLastErr)
        End If
    End If
 
    On Error GoTo 0
    Exit Function
ReadString_Error:
    RaiseError Err, "Function modUtil.ReadString"
End Function

[ProgElecT]

Je ne me souvient pas si il n'y a pas une solution plus simple, mais déjà le principe du code suivant pourrait te rendre service.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
Dim LaPhrase As String
LaPhrase = "Entra" & Chr(195) & Chr(174) & "neuse" & " Anna Wiston" & vbCrLf & "une autre phrase sans unicode"
Label1 = LaPhrase
LaPhrase = Replace(LaPhrase, Chr(195) & Chr(174), "î")
Label2 = LaPhrase
End Sub

[slam666]

Le problème est que je ne sais pas quelle string va être retournée, l'example que j'ai donné est une possibilitée parmis des milliers.

Je ne me souvient pas si il n'y a pas une solution plus simple, mais déjà le principe du code suivant pourrait te rendre service.

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
Dim LaPhrase As String
LaPhrase = "Entra" & Chr(195) & Chr(174) & "neuse" & " Anna Wiston" & vbCrLf & "une autre phrase sans unicode"
Label1 = LaPhrase
LaPhrase = Replace(LaPhrase, Chr(195) & Chr(174), "î")
Label2 = LaPhrase
End Sub

[ucfoutu]

Bonsoir,

ce dont te parle Progelect (que je salue) est le remplacement de 2 caractères par un seul, en fonction d'une table de correspondance, c'est tout.
A toi de recenser tes caractères incongrus et d'établir cette concordance !
Le principe est assez simple. Exemple :

Code :

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

1
2
3
4
5
6
7
mesmachins = Array("v" & "o", "e" & "x", "l" & "e")
 mesmachinstrans = Array("k", "z", "u")
 toto = "et voila un exemple"
 For i = 0 To UBound(mesmachins)
   toto = Replace(toto, mesmachins(i), mesmachinstrans(i))
 Next
 MsgBox toto

Ici, j'ai utilisé directement des caractères, pour que tu comprennes mieux le mécanisme utilisé.
Rien ne t'empêche d'établir tes arrays en codes ascii et d'utiliser ensuite chr(code_ascii)
C'est simple ...

[slam666]

Bonjour,

Je comprend ce que vous dites, mais je pense qu'il y a un moyen de convertir ces caractères sans être oubliger de faire de correspondance.

J'ai fais un autre test et dans mon programme si j'écrit la string dans un fichier elle est ok, mais si je l'affiche elle n'affiche pas les accent mais plutôt deux caractères bizarre. Donc je pense que c'est juste une conversion qui ne ce fait pas bien. Le seul problème est de savoir quoi