Discussion :

[gastoncs]

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 !!

[chrismonoye]

Bonjour,

Code :

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

1
2
3
4
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

MSDN dit :

Si la méthode IndexOf ne trouve pas la sous-chaîne, elle retourne -1.

Et si tu rentres dans cette boucle, que devient coo_lambert?

[gastoncs]

J'ai mis un point d'arret sur coo_lambert dans le cas ou je n'ai pas 'coordonnee' écrit dans ma textbox
et coo_lambert = nothing
tandis que debut_coog est bien égal à -1 donc j'ai modifier mon code pour affecter la condition a -1 mais la toujours rien dans coo_lambert qui reste à nothing !!!!

[rv26t]

Bonjour,

Et si tu utilisais une autre méthode pour vérifier l'intégrité des données ?

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 sData() As String
        Dim sCoordonnees() As String
        If TextBox1.Text.Contains(":") Then 'teste uniquement les ":" de "Coordonnnees :" suffisant pour déterminer la présence
            sData = TextBox1.Text.Split(":")
            If sData(1) <> "" Then
                Label1.Text = sData(1) 'affiche les coordonnées lambert en entier
                sCoordonnees = sData(1).Split(New String() {}, StringSplitOptions.RemoveEmptyEntries)
                TextBox2.Text = sCoordonnees(0) 'affiche la premiére coordonnée
                TextBox3.Text = sCoordonnees(1) 'affiche la seconde coordonnée 
            Else
                Label1.Text = "inconnue" 'pas de valeur derrière les :
            End If
        Else
            Label1.Text = "non renseigné" ' "Coordonnnes :" n'a pas été detecté
        End If

A+, Hervé.