Discussion :

[gastoncs]

Bonsoir,

je suis face a un problème, dont je ne trouve pas la solution, alors voici j'ai une chaîne de caractère dans une textbox qui se présente sous cette forme :

Date d'enregistrement le 09/05/2016

Commune : BORDEAUX

Adresse du propriétaire : etc....

et donc moi je souhaite récupérer la chaîne situé derrière commune :
Donc pour se faire j'utilise ce morceaux de code qui fonctionne correctement :

Code :

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

1
2
3
4
 Dim debut_ville As Integer = TextBox2.Text.IndexOf("Commune : ") + 10 'entier qui repére le nom commune et ajoute 10 
                Dim fin_ville As Integer = TextBox2.Text.IndexOf(ControlChars.NewLine, debut_ville) 'entier qui repére la fin de la ligne
                Dim longeur_ville As Integer = fin_ville - debut_ville 'soustrait la fin du début de la valeur de commune
                commune_op = TextBox2.Text.Substring(debut_ville, longeur_ville)

et donc ma variable commune_op prend bien la valeur BORDEAUX mais avec le saut de ligne situé en dessous.
Donc j'ai essayé en soustrayant 1 a l'entier fin_ville comme ci :

Code :

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

Dim fin_ville As Integer = TextBox2.Text.IndexOf(ControlChars.NewLine, debut_ville) -1

Mais la j'obtient dans commune_op = BORDEAU donc sans le caractère de fin, mais par contre j'ai pu le saut de ligne !!!

Donc voila je ne sais pas comment supprimer ce saut de ligne !!! une idée ?

[clementmarcotte]

Bonjour,

oups !!!!!!!!!!!!!!!!!!!, j'ai lu trop vite. Il semble que ta ville ne termine ne termine pas ta chaîne. J'ai ajouté quelque chose à la fin.

Si ta ville termine toujours ton entrée, tu peux probablement faire un peu plus court (Non testé):

Code :

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

1
2
3
4
5
6
7
'Au besoin, ajuster pour +3
Dim debut_ville As Integer = TextBox2.Text.lastIndexOf(": ")+3
'À vérifier su tu as besoin du -1 ou d'un +1
commune_op = TextBox2.Text.Substring(debut_ville, texbox2.text.length-debut_ville)
if commune_op.contains(controlchars.newline) then
    commune_op = commune_op.substring(commune_op.length-1)
end if

Tu peux mettre un espion sur commune_op et exécuter au pas-à-pas.

Pour "reculer" dans l'exécution de ton programme ajoute le bouton "Définir l'instruction suivante" dans ta barre d'outils.

Si tu veux arrêter en chemin, sans mettre de point d'arrêt, ajoute le bouton "Exécuter j'usqu'au curseur dans ta barre d'outils". Ensuite, tu places ton curseur où tu veux arrêter et tu cliques sur le bouton.

Après relecture de la question (Toujours pas testé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim LeTableau as string = textbox2.text.split(controlchars.newline)
for each UnTexte as string in LeTableau
   if UnTexte.contains("Commune") then
       'Au besoin, ajuster pour +3
       Dim debut_ville As Integer = UnTexte.IndexOf(": ")+3
       'À vérifier si jamais tu as besoin du -1 ou d'un +1
      commune_op = UnTexte.Substring(debut_ville, UnTexte.length-debut_ville)
      if commune_op.contains(controlchars.newline) then
         commune_op = commune_op.substring(commune_op.length-1)
      end if
     'Puisque la ville est trouvée, inutile de continuer la boucle
     exit for
   end if
next

[gastoncs]

ok merci clement, j'ai testé ca fonctionne bien. merci