Conversion d'1 chaine de caractère au format windows vers le format dos et vise-versa

Soyez le premier à donner votre avis sur cette source.

Vue 7 706 fois - Téléchargée 370 fois

Description

Utilisation d'API pour convertir une
chaine de caractère du format Windows vers le format MSDos et vise-versa

Source / Exemple :


Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Function Win2Dos(src As Variant) As Variant
  Dim tDos As String
  Dim tWin As String
  Dim ret As Long
  tWin = "" & src & Chr(0)
  tDos = String(Len(tWin) + 1024, 0)
  ret = CharToOem(tWin, tDos)
  ret = InStr(1, tDos, Chr(0))
  If ret > 0 Then Win2Dos = Left(tDos, ret - 1) Else Win2Dos = ""
End Function
Function Dos2Win(src As Variant) As Variant
  Dim tDos As String
  Dim tWin As String
  Dim ret As Long
  tDos = "" & src & Chr(0)
  tWin = String(Len(tDos) + 1024, 0)
  ret = OemToChar(tDos, tWin)
  ret = InStr(1, tWin, Chr(0))
  If ret > 0 Then Dos2Win = Left(tWin, ret - 1) Else Dos2Win = ""
End Function
Private Sub Command1_Click()
Text2.Text = Win2Dos(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = Dos2Win(Text2.Text)
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

ca fonctionne et vite !!
Exellent ! !
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
2 -
Tres bon code rapide et efficace. 10/10

question :

avec ce code,
on convertit du code page IBM850 (MS-DOS) vers WINDOWS (pour nous en france Windows-1252);
par contre pour d'autres pays cela convertit-il dans le code page windows du pays ?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.