Discussion :

[prady92]

Bonjour,

je voudrais savoir comment utiliser la fonction Replace sur une tableau de caractères et non un string (ici la fonction native Replace ne fonctionne pas car sRemplacerQuoi et sRemplacerPar sont des tableaux à 1 dimension et non des string)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim sIn as String
Dim sOut asString
 
Dim sRemplacerQuoi() As String = {"ä", "à", "â", "é", "è", "ê", "ë", "î", "ï", "ô", "œ", "ö", "ü", "ù", "û", "ÿ", "Ä", "À", "Â", "ñ", "É", "È", "Ê", "Ë", "Î", "Ï", "Ô", "Œ", "Ö", "Ü", "Ù", "Û", "ç", "Ç", "Ÿ", "æ", "Æ"}
 
        Dim sRemplacerPar() As String = {"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"}
 
sOut = Replace(sOut, sRemplacerQuoi, sRemplacerPar)

comme exemple j'ai utilisé les caractères accentués car c'est plus parlant mais c'est uniquement pour l'exemple.

La fonction str_replace de php sachant le faire.

bien sûr on peut faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim tailleSin As Integer
Dim i As Integer
 
tailleSin = Len(sIn)
 
        For i = 0 To (tailleSin - 1)
            car = sIn.Chars(i)
            Select Case car.ToString
                Case "Â", "Ä", "À"
                    car = Chr(Asc("A"))
                Case "Ç"
                    car = Chr(Asc("S"))
                Case "È", "É", "Ê", "Ë", "Œ"
                    car = Chr(Asc("E"))
                Case "Î", "Ï"
                    car = Chr(Asc("I"))
                Case "Ô", "Ö"
                    car = Chr(Asc("O"))
                Case "Ù", "Û", "Ü"
                    car = Chr(Asc("U"))
            End Select
            sOut = sOut + car
        Next i
 
 sIn = sOut

mais ce n'est pas ce que je cherche.

D'avance merci

[Pol63]

fait une boucle sur les tableaux

et un replace par element

un stringbuilder sera plus rapide qu'un string

sinon les regex doivent pouvoir faire ca en 2 lignes

[prady92]

Merci pour la rapidité de réponse,

comment faire via les regex, car cela dépasse mes compétences.

Cordialement

[Pol63]

les regex dépassent mes connaissances ... mais on peut faire des tas de choses complexe avec une ligne illisible ...

demande à google y a meme des soft qui aident à écrire la ligne en fonction de ce qu'on veut faire

[Sehnsucht]

Sinon sans partir sur les regex (qui serait la meilleure solution quand on sait s'en servir, ce qui n'est pas mon cas ) il y a moyen de transformer ce pas beau Select Case, en quelque chose de mieux:

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private Function Replace(ByVal chaine As String, ByVal quoi() As Char, ByVal par() As Char) As String
        Dim sb As New System.Text.StringBuilder()
        Dim index As Integer
 
        For Each c As Char In chaine
            index = Array.IndexOf(Of Char)(quoi, c)
            If index <> -1 Then
                sb.Append(par(index))
            Else
                sb.Append(c)
            End If
        Next
 
        Return sb.ToString()
    End Function

N.B. Dans mon test j'ai changé le type de sRemplacerQuoi et sRemplacerPar en Char() parce que c'est effectivement ce qu'ils sont plutôt que des String()

En espérant avoir été utile!

[prady92]

Merci à Sehnsucht,

voilà ce que j'avais réalisé de mon côté, s'il y a des corrections ou améliorations constructives n'hésitez pas, c'est comme cela qu'on progresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[prady92]

Petite précision :
comme je laisse toujours le paramètre : Option Strict On
j'ai du remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
        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"}

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    Public sRemplacerQuoi() As Char = {Chr(Asc("&")), Chr(Asc("ä")), Chr(Asc("à")), Chr(Asc("â")), Chr(Asc("é")), Chr(Asc("è")), Chr(Asc("ê")), Chr(Asc("ë")), Chr(Asc("î")), Chr(Asc("ï")), Chr(Asc("ô")), Chr(Asc("œ")), Chr(Asc("ö")), Chr(Asc("ü")), Chr(Asc("ù")), Chr(Asc("û")), Chr(Asc("ÿ")), Chr(Asc("Ä")), Chr(Asc("À")), Chr(Asc("Â")), Chr(Asc("ñ")), Chr(Asc("É")), Chr(Asc("È")), Chr(Asc("Ê")), Chr(Asc("Ë")), Chr(Asc("Î")), Chr(Asc("Ï")), Chr(Asc("Ô")), Chr(Asc("Œ")), Chr(Asc("Ö")), Chr(Asc("Ü")), Chr(Asc("Ù")), Chr(Asc("Û")), Chr(Asc("ç")), Chr(Asc("Ç")), Chr(Asc("Ÿ")), Chr(Asc("æ")), Chr(Asc("Æ"))}
    Public sRemplacerPar() As Char = {Chr(Asc("e")), Chr(Asc("a")), Chr(Asc("a")), Chr(Asc("a")), Chr(Asc("e")), Chr(Asc("e")), Chr(Asc("e")), Chr(Asc("e")), Chr(Asc("i")), Chr(Asc("i")), Chr(Asc("o")), Chr(Asc("o")), Chr(Asc("o")), Chr(Asc("u")), Chr(Asc("u")), Chr(Asc("u")), Chr(Asc("y")), Chr(Asc("A")), Chr(Asc("A")), Chr(Asc("A")), Chr(Asc("n")), Chr(Asc("E")), Chr(Asc("E")), Chr(Asc("E")), Chr(Asc("E")), Chr(Asc("I")), Chr(Asc("I")), Chr(Asc("O")), Chr(Asc("O")), Chr(Asc("O")), Chr(Asc("U")), Chr(Asc("U")), Chr(Asc("U")), Chr(Asc("c")), Chr(Asc("C")), Chr(Asc("Y")), Chr(Asc("a")), Chr(Asc("a"))}

y a t-il une autre manière.

Cdt

[cougarg]

Bonjour,

Pour avoir un caractère, tu rajoute tout simplement un c après ta chaine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"a"c

[prady92]

Merci cougarg