Discussion :

[gastoncs]

Bonsoir, j'ai une chaine qui peu se présenter sous deux facons :

124 RUE DE LA PRAIRIE (REMELANGE)

ou

25 RUE DE PARIS

et je souhaite avec une fonction retirer ce qui se trouve entre parenthèse d’après un tableau de string qui contient ce que je dois enlever entre panthése, dans ma chaîne, mais je n'ai pas tous le temps des parenthèse.

alors voici ma fonction :

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
Dim parenthese_ville() As String = {"ST NIC. FORET", _
    "REMELANGE", "KONACKER", "MARSPICH", "OURY NORD", "HT. PONT", "OURY SUD", "EBANGE", "OURY", "VOLKRANGE", "OLYMPE 2", "CITE BOSMENT", _
    "EDANGE", "MORLANGE", "BUDANGE", "MINE VICTOR", "BURE", "METRICH"}
 
Function traitement_adresse(ByVal Texte As String) As String
        Dim resultat As String = ""
        For i As Integer = 0 To parenthese_ville.Length - 1
            If Texte.Contains("(" & parenthese_ville(i) & ")") Then
                resultat = Texte.Replace("(" & parenthese_ville(i) & ")", "")
            ElseIf Texte Then
                resultat = Texte
            End If
        Next
        Return resultat
    End Function

Le problème avec cette fonction c'est quelle me retourne toujours l'adresse au complet meme avec les parenthése et le lieu que j'ai dans mon tableau !

je ne comprend pas ou j'ai fait une erreur ????

[Mario Rousson]

As-tu essayé en mode pas à pas, d'après moi tu passe toujours dans le else

[gastoncs]

en faite je trouve la valeur entre parenthèse, donc je lui affecte "" (rien) mais après je repasse dans le elseif et la je lui reafecte tout, mais comment arranger mon code pour que cela ne se produise pas ?

[Mario Rousson]

j'essayerais plustôt

for each PV as string in parenthese_ville
If Texte.Contains("(" & PV & ")") Then


next


je crois

[Mario Rousson]

else et non elseif

[gastoncs]

J'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
For i As Integer = 0 To parenthese_ville.Length - 1
            If Texte.Contains("(" & parenthese_ville(i) & ")") Then
                resultat = Texte.Replace("(" & parenthese_ville(i) & ")", "")
            Else
                resultat = Texte
            End If
        Next

mais toujours le même resultat

[Mario Rousson]

Code :

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

1
2
3
4
5
6
7
8
For i As Integer = 0 To parenthese_ville.Length - 1
            If Texte.Contains("(" & parenthese_ville(i) & ")") Then
                resultat = Texte.Replace("(" & parenthese_ville(i) & ")", "")
                Exit for
            ElseIf Texte Then
                resultat = Texte
            End If
        Next

[gastoncs]

J'ai essayé ton code mario, et la j'ai ce message d'erreur lorsque je n'ai pas de parenthése dans l'adresse :

La conversion de la chaîne "25 RUE DE PARIS" en type 'Boolean' n'est pas valide.

???

[Mario Rousson]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function traitement_adresse(ByVal Texte As String) As String
        Dim resultat As String = String.Empty
        For i As Integer = 0 To parenthese_ville.Length - 1
            If Texte.Contains("(" & parenthese_ville(i) & ")") Then
                resultat = Texte.Replace("(" & parenthese_ville(i) & ")", "")
                Exit For
            Else
                resultat = Texte
            End If
        Next
        Return resultat
    End Function

essai ça

[gastoncs]

merci ca fonctionne j'avais oublié le

Code :

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

exit for

!
mais a quoi sert il ?

[chrismonoye]

Bonjour,
Exit for force la sortie de la boucle dès qu'une correspondance est trouvée et évite de poursuivre le test sur les valeurs restantes du tableau qui te renvoient dans le Else (d'où les soucis que tu rencontrais).
A noter que Return induit la sortie de la fonction :

Les instructions Exit Function et Return provoquent la sortie immédiate d'une procédure Function.

En les plaçant à bon escient, on allège le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Function traitement_adresse(ByVal Texte As String) As String
 
        For i As Integer = 0 To parenthese_ville.Length - 1
            If Texte.Contains("(" & parenthese_ville(i) & ")") Then
                Texte = Texte.Replace("(" & parenthese_ville(i) & ")", "")
                Return Texte
            End If
        Next
 
        Return Texte
 
    End Function