Caractère DOS vers ANSI
Résolu
grosbidou21
Messages postés
74
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
5 février 2010
-
5 juil. 2005 à 12:30
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 - 6 juil. 2005 à 15:53
CTAC Messages postés 133 Date d'inscription mardi 24 décembre 2002 Statut Membre Dernière intervention 8 juin 2012 - 6 juil. 2005 à 15:53
1 réponse
CTAC
Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
5
6 juil. 2005 à 15:53
6 juil. 2005 à 15:53
Bonjour.
Le fichier C:\Test.txt comportant décembre mais qui s'affiche dans le bloc-note d,cembre :
Private Declare Function OemToChar& _
Lib "user32" Alias "OemToCharA" _
(ByVal lpszSrc$, ByVal lpszDst$)
Sub Convert()
Dim n%, Str$
n = FreeFile
Open "C:\Test.txt" For Input As #n
Str = Input(LOF(n), #n)
Close #n
MsgBox Str, vbCritical, "Avant"
OemToChar Str, Str
MsgBox Str, vbInformation, "Aprés"
End Sub
ctac
Le fichier C:\Test.txt comportant décembre mais qui s'affiche dans le bloc-note d,cembre :
Private Declare Function OemToChar& _
Lib "user32" Alias "OemToCharA" _
(ByVal lpszSrc$, ByVal lpszDst$)
Sub Convert()
Dim n%, Str$
n = FreeFile
Open "C:\Test.txt" For Input As #n
Str = Input(LOF(n), #n)
Close #n
MsgBox Str, vbCritical, "Avant"
OemToChar Str, Str
MsgBox Str, vbInformation, "Aprés"
End Sub
ctac
