1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Function prepare(ByVal sIn As String) As String
Dim i As Integer
Dim sIntermédiaire As New StringBuilder()
Dim sOut As New StringBuilder()
Dim sRemplacerQuoi() As Char = {"&", "ä", "à", "â", "é", "è", "ê", "ë", "î", "ï", "ô", "œ", "ö", "ü", "ù", "û", "ÿ", "Ä", "À", "Â", "ñ", "É", "È", "Ê", "Ë", "Î", "Ï", "Ô", "Œ", "Ö", "Ü", "Ù", "Û", "ç", "Ç", "Ÿ", "æ", "Æ"}
Dim sRemplacerPar() As Char = {"e", "a", "a", "a", "e", "e", "e", "e", "i", "i", "o", "o", "o", "u", "u", "u", "y", "A", "A", "A", "n", "E", "E", "E", "E", "I", "I", "O", "O", "O", "U", "U", "U", "c", "C", "Y", "a", "a"}
' mise en majuscule et suppression des espaces de début et fin
sIn = sIn.Trim.ToUpper
sIntermédiaire.Append(sIn)
For i = 0 To (sRemplacerQuoi.Length - 1)
sIntermédiaire.Replace(sRemplacerQuoi(i), sRemplacerPar(i))
Next i
For i = 0 To (Len(sIntermédiaire.ToString) - 1)
' caractère accepté de 0 à 9 et de A à Z
If (sIntermédiaire.Chars(i) >= Chr(48)) And (sIntermédiaire.Chars(i) <= Chr(57)) _
Or (sIntermédiaire.Chars(i) >= Chr(65)) And (sIntermédiaire.Chars(i) <= Chr(90)) Then
sOut.Append(sIntermédiaire.Chars(i))
End If
Next i
prepare = sOut.ToString
End Function |
