Bonsoir,

j'ai dans une textbox un libellé (coordonnees) suivi de valeurs, mais parfois il peut ne pas y avoir de valeurs ou bien encore ne pas y avoir le libelle (coordonnees) voici les cas possible :


Coordonnees : 870698 2486016

Coordonnees :

(ou bien pas de libellé)


pour ce faire j'ai fait mon code, mais il ne fonctionne pas dans le cas ou coordonnes n'apparait pas je n'ai pas "non renseigné" qui s'affecte à ma variable coo_lambert
tout comme si je n'ai pas de valeurs après coordonnees je n'ai pas inconnue qui s'affecte !
seul dans le cas ou j'ai le libelle coordonnees et les valeurs derriére ca fonctionne !!!!

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
 
    Dim coo_lambert As String
    Dim words() As String
 
Dim debut_coog As Integer = TextBox1.Text.IndexOf("Coordonnees :")
        If debut_coog = 0 Then
            coo_lambert = "non renseigné" 'ici coordonnnes n'a pas été detecté
        Else
            debut_coog = debut_coog + 13
            Dim fin_coog As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_coog)
            If fin_coog = 0 Then
                coo_lambert = "inconnue" 'ici la fin de ligne n'est pas détecté
            Else
                Dim longeur_coog As Integer = fin_coog - debut_coog
                coo_lambert = TextBox1.Text.Substring(debut_coog, longeur_coog) 'ici j'ai trouvé les valeurs de coordonées
                Label1.Text = coo_lambert 'affiche les coordonnées lambert en entier
                words = coo_lambert.Split(New String() {}, StringSplitOptions.RemoveEmptyEntries) 'coupes les lambert en 2 (X;Y)
                TextBox2.Text = words(0) 'affiche la premiére coordonnée
                TextBox3.Text = words(1) 'affiche la seconde coordonnée 
                Label2.Text = debut_coog
                'ici instruction de conversion 
                'realisation de la carte
            End If
        End If
je ne comprend pas !!