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

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

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.