Binaryworld - How to convert all accent char to normal char (Only for win2k)? ... [ VB -> String ]

This example will show you how to convert all accent characters to normal character.

Step-By-Step Example

- Create a standard exe project
- Add the following code in form1

Click here to copy the following block

Private Declare Function FoldString _
Lib "kernel32" Alias "FoldStringA" ( _
ByVal dwMapFlags As Long, _
ByVal lpSrcStr As String, _
ByVal cchSrc As Long, _
ByVal lpDestStr As String, _
ByVal cchDest As Long) As Long

Private Const MAP_COMPOSITE = &H40
Private Const MAP_EXPAND_LIGATURES = &H2000
Private Const MAP_FOLDCZONE = &H10
Private Const MAP_FOLDDIGITS = &H80
Private Const MAP_PRECOMPOSED = &H20

Public Function SplitAccents(ByVal str As String) As String
Dim sNew As String
Dim nLen As Long
sNew = Space$(Len(str) * 2)
nLen = FoldString(MAP_COMPOSITE, str, Len(str), sNew, Len(sNew))
SplitAccents = Left$(sNew, nLen)
End Function

Private Sub Form_Load()
MsgBox "Input : éàôë"
MsgBox "Output : " & SplitAccents("éàôë")
End Sub