Accueil > > > LISTER LES PAGES DE CODE SUPPORTÉES PAR WINDOWS
LISTER LES PAGES DE CODE SUPPORTÉES PAR WINDOWS
Information sur la source
Description
Les Pages de Codes (Code Page en anglais) sont les manières d'encoder des caractères dans des fichiers binaires. ANSI, Unicode (UTF), EBCDIC sont des pages de codes. Mais ils peuvent se décliner aussi par version et par alphabet (accentué, cyrillique, chinois, ...). Pour la lecture, import et la transcodage des données, Windows supporte environs 152 pages de codes. Référence : http://msdn2.microsoft.com/en-us/library/ms776446( VS.85).aspx Mais toutes les pages de codes ne sont pas forcément installées ou supportées par votre configuration. Pour connaitre quelles pages de codes sont installées et/ou supportées par votre système, il existe l'API EnumSystemCodePages. Le code Visual Basic suivant vous permet de retrouver ces pages de codes en exploitant l'API. Exécutez la fonction f_CodePage_Init() et cela remplie la variable globale g_CodePageLst() avec les pages de code supportées par la version de Windows installée. La variable g_CodePageNbr retourne le nombre de pages de code listées.
Source
- Option Explicit
-
- ' Call f_CodePage_Init() to feed the global varibales g_CodePageLst() and g_CodePageNbr
- ' with the Code Pages supported by the current Windows installation.
- ' 2007-12-27, Skrol29
-
- Private Const MAX_LEADBYTES = 12
- Private Const MAX_DEFAULTCHAR = 2
- Private Const MAX_PATH = 260
-
- Private Type CPINFOEX
- MaxCharSize As Long ' max length (Byte) of a char
- DefaultChar(0 To MAX_DEFAULTCHAR - 1) As Byte ' default character
- LeadByte(0 To MAX_LEADBYTES - 1) As Byte ' lead byte ranges
- UnicodeDefaultChar As Byte
- CodePage As Long
- CodePageName(0 To MAX_PATH - 1) As Byte
- End Type
-
- Private Declare Function api_EnumSystemCodePages Lib "kernel32.dll" Alias "EnumSystemCodePagesA" (ByVal lpCodePageEnumProc As Long, ByVal dwFlags As Long) As Long
- Private Declare Sub api_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
- Private Declare Function api_GetCPInfoEx Lib "kernel32" Alias "GetCPInfoExA" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpCPInfoEX As CPINFOEX) As Long
-
- ' EnumSystemCodePages
- Const CP_INSTALLED = &H1
- Const CP_SUPPORTED = &H2
-
- Public Type tCodePage
- Id As Long
- Name As String
- End Type
- Public g_CodePageLst() As tCodePage
- Public g_CodePageNbr As Long
-
- Public Sub f_CodePage_Init()
-
- If g_CodePageNbr > 0 Then Exit Sub
-
- ' Call the CallBack as much time as there are CodePage
- api_EnumSystemCodePages AddressOf f_CodePage_CallBack, CP_INSTALLED
-
-
- End Sub
-
- Public Function f_CodePage_CallBack(CP_Pointer As Long) As Long
- ' Returns TRUE to continue enumeration or FALSE otherwise.
-
- Dim Buffer As String
- Dim Id As Long
- Dim x As String
- Dim CodePage As tCodePage
-
- Buffer = Space$(255)
- Call api_CopyMemory(ByVal Buffer, CP_Pointer, Len(Buffer))
- Buffer = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
-
- CodePage.Id = Val(Buffer)
-
- If CodePage.Id > 0 Then
- ' Save the CodePage is the list
- CodePage.Name = f_CodePage_Name(CodePage.Id)
- ReDim Preserve g_CodePageLst(0 To g_CodePageNbr)
- g_CodePageLst(g_CodePageNbr) = CodePage
- g_CodePageNbr = g_CodePageNbr + 1
- End If
-
- f_CodePage_CallBack = 1
-
- End Function
-
- Public Function f_CodePage_Name(Id As Long) As String
-
- Dim CpInfo As CPINFOEX
- Dim x As String
- Dim i As Integer
- Dim ok As Boolean
-
- Call api_GetCPInfoEx(Id, 0, CpInfo)
-
- With CpInfo
-
- ' Retrieve the full name
- i = LBound(.CodePageName)
- ok = True
- Do While ok And (i <= UBound(.CodePageName))
- If .CodePageName(i) = 0 Then
- ok = False
- Else
- x = x & Chr$(.CodePageName(i))
- i = i + 1
- End If
- Loop
-
- ' Take of the number. Names can be formated like "1234 (name)"
- i = InStr(x, "(")
- If (.CodePage > 0) And (i > 0) And (Right(x, 1) = ")") Then
- If Val(Left$(x, i - 1)) = .CodePage Then
- x = Mid$(x, i + 1)
- x = Left$(x, Len(x) - 1)
- End If
- End If
-
- ' If no name => display the id
- If x = vbNullString Then
- x = "{" & .CodePage & "}"
- End If
-
- End With
-
- f_CodePage_Name = x
-
- End Function
Option Explicit
' Call f_CodePage_Init() to feed the global varibales g_CodePageLst() and g_CodePageNbr
' with the Code Pages supported by the current Windows installation.
' 2007-12-27, Skrol29
Private Const MAX_LEADBYTES = 12
Private Const MAX_DEFAULTCHAR = 2
Private Const MAX_PATH = 260
Private Type CPINFOEX
MaxCharSize As Long ' max length (Byte) of a char
DefaultChar(0 To MAX_DEFAULTCHAR - 1) As Byte ' default character
LeadByte(0 To MAX_LEADBYTES - 1) As Byte ' lead byte ranges
UnicodeDefaultChar As Byte
CodePage As Long
CodePageName(0 To MAX_PATH - 1) As Byte
End Type
Private Declare Function api_EnumSystemCodePages Lib "kernel32.dll" Alias "EnumSystemCodePagesA" (ByVal lpCodePageEnumProc As Long, ByVal dwFlags As Long) As Long
Private Declare Sub api_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function api_GetCPInfoEx Lib "kernel32" Alias "GetCPInfoExA" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpCPInfoEX As CPINFOEX) As Long
' EnumSystemCodePages
Const CP_INSTALLED = &H1
Const CP_SUPPORTED = &H2
Public Type tCodePage
Id As Long
Name As String
End Type
Public g_CodePageLst() As tCodePage
Public g_CodePageNbr As Long
Public Sub f_CodePage_Init()
If g_CodePageNbr > 0 Then Exit Sub
' Call the CallBack as much time as there are CodePage
api_EnumSystemCodePages AddressOf f_CodePage_CallBack, CP_INSTALLED
End Sub
Public Function f_CodePage_CallBack(CP_Pointer As Long) As Long
' Returns TRUE to continue enumeration or FALSE otherwise.
Dim Buffer As String
Dim Id As Long
Dim x As String
Dim CodePage As tCodePage
Buffer = Space$(255)
Call api_CopyMemory(ByVal Buffer, CP_Pointer, Len(Buffer))
Buffer = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
CodePage.Id = Val(Buffer)
If CodePage.Id > 0 Then
' Save the CodePage is the list
CodePage.Name = f_CodePage_Name(CodePage.Id)
ReDim Preserve g_CodePageLst(0 To g_CodePageNbr)
g_CodePageLst(g_CodePageNbr) = CodePage
g_CodePageNbr = g_CodePageNbr + 1
End If
f_CodePage_CallBack = 1
End Function
Public Function f_CodePage_Name(Id As Long) As String
Dim CpInfo As CPINFOEX
Dim x As String
Dim i As Integer
Dim ok As Boolean
Call api_GetCPInfoEx(Id, 0, CpInfo)
With CpInfo
' Retrieve the full name
i = LBound(.CodePageName)
ok = True
Do While ok And (i <= UBound(.CodePageName))
If .CodePageName(i) = 0 Then
ok = False
Else
x = x & Chr$(.CodePageName(i))
i = i + 1
End If
Loop
' Take of the number. Names can be formated like "1234 (name)"
i = InStr(x, "(")
If (.CodePage > 0) And (i > 0) And (Right(x, 1) = ")") Then
If Val(Left$(x, i - 1)) = .CodePage Then
x = Mid$(x, i + 1)
x = Left$(x, Len(x) - 1)
End If
End If
' If no name => display the id
If x = vbNullString Then
x = "{" & .CodePage & "}"
End If
End With
f_CodePage_Name = x
End Function
Historique
- 31 décembre 2007 12:39:38 :
- Plus d'explication sur les Codes Pages
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
GetEnvironmentVariable [ par Boldor ]
Bonjour,Je voudrai recuperer la valeur des variables d'environnement a partir d'un programme VB.Comment utiliser la fonction GetEnvironmentVariable ?Y
les API windows [ par Mskine ]
Où je peux trouver des informations,definitions, conseils, des fonctions APIMerci d'avance
API [ par CyrilB ]
Je voudrais pouvoir fermer une fenêtre MS-DOS même si celle-ci est en cours d'execution.Il y a une fonction API qui fait ça mais je ne sais plus laque
Proprietes des fichiers ss NT 4.00 \ Utilisation des fonctions API [ par Xavier ]
En fouillant dans l'aide des API, j'ai trouve quelques fonctions pouvant resoudre mon probleme.Qui peut me dire comment faire appel aux fonctions :Get
API pour icônes [ par Xaviou ]
Salut,Je suis à la recherche d'une API pour afficher la boite de dialogue de changement d'icône (boite que l'on peut obtenir, lorsque l'on regarde les
API SHGetFileInfo [ par Xaviou ]
Salut,quelqu'un saurait-il comment utiliser l'API SHGetFileInfo ? Pour ma part, c'est le bide complet.J'attends vos réponses avec impatience.@+Xaviou
Menu avec icone [ par Xaviou ]
Salutje recherche l'API pour intégrer des incones dans mes menus. J'ai trouvé une API (ModifyMenu) qui permet de remplacer le caption d'un menu par un
Fonctions API [ par Yvan ]
Une petite question : les fonctions API fonctionnent-elles de la même façonsur Win 95, Win 98 et Win NT ?Si je prends comme exemple la fonction GetVo
Lecteurs disponibles [ par Yvan ]
Salut,Je cherche le moyen de connaître les lettres des lecteurs qui se trouvent sur un ordinateur. Ce qui doit se faire avec les API selon moi. Et s
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|