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
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.