Discussion :

[Mouss340]

Bonjour,

J'ai récupè plusieur fichiers avec l'extension mhtm et j'aimerais récupérer certaines données redondantes dans ces fichiers mais voila le fichier n'apparait pas correctement. Par exemple les é sont remplacés par =E8. J'utilise pour ouvrir le fichier

Code :

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

1
2
3
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("C:\monfichier.mhtm")
Set oTxt = oFl.OpenAsTextStream(ForReading)

Merci à ceux qui peuvent m'aider.

MEROUAN

[OhMonBato]

Et dans le fichier original, si tu l'ouvres sous un éditeur de texte, les "é" apparraissent comment ?

[Mouss340]

Sous notepad les é apparaissent =E8 aussi.
C'est uniquement lorsque j'affiche le code source à partir de IE que les caractères apparaissent normalement.

[Mouss340]

En fait j'ai une série de pages web enregistré au format mht au lieu de txt.
Chaque fois que j'ouvre un des fichiers, le texte apparait avec ces problèmes de caractères (voir ci dessus). En allant voir d'autre forum, il semblerait que c'est un problème de conversion UTF8-ISO, n'y aurait il pas un convertisseur qui permet de modifier automatiquement les caractères dans une chaine?

[ucfoutu]

Bonsoir,

Je suis un peu (beaucoup) gauche dans ce domaine.

Je crains que tu ne puisses, avec VB6, éviter de travailler un peu ainsi :

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
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
 
Public Function UTF8ToA(ByVal wText As String) As String
    Dim vNeeded As Long
    Dim vSize   As Long
    vSize = Len(wText)
    vNeeded = MultiByteToWideChar(CP_UTF8, 0, wText, vSize, 0, 0)
    UTF8ToA = String(vNeeded, 0)
    MultiByteToWideChar CP_UTF8, 0, wText, vSize, StrPtr(UTF8ToA), vNeeded
End Function
 
 
Private Sub Command1_Click()
    a1 = "génération..."
    a2 = UTF8ToA(Replace(a1, "Ã", "é"))
    a2 = UTF8ToA(Replace(a2, "©", ""))
    ' et ainsi de suite... pour chaque caractère "particulier"....
    MsgBox a2
End Sub

Rien d'autre à t'offrir personnellement comme suggestion, hélàs ...