extraire 'String' aprés libelle

Bonsoir,
je souhaite extraire deux nombres situé derrière un libellé qui se présente sous cette forme :

Coordonnees : 875243 2481718

j'ai donc fait ceci en me basant sur les contraintes suivantes :
Le libellé "Coordonnees :" est toujours le même
Le nombres de caractéres de "Coordonnees : " est de 18

voici mon code :

Code:

---

1 2 3 4 5

'coordonnée gps Dim debut_coog As Integer = TextBox1.Text.IndexOf("Coordonnees : ") + 18 Dim fin_coog As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_coog) Dim longeur_coog As Integer = fin_coog - debut_coog coo_lambert = TextBox1.Text.Substring(debut_coog, longeur_coog)

---

le soucis, c'est que mon programme à reçu ce matin les coordonnées sous cette forme :

Coordonnees : 87427129 248510992

du coup moins de 18 caractère entre le début de Coordonnées et le premier chiffre !
auriez une piste, pour résoudre mon problème ?

On peut utiliser les fonctions :

• String.Replace() pour remplacer "Coordonnees :" par ""
• String.Trim() pour enlever les blancs de début et de fin.

Bonjour.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Cas 1 : "Coordonnees : 875243 2481718" 'Cas 2 : "Coordonnees : 87427129 248510992" 'Exemple d'appel de la fonction Dim nombres() As String = RecupererValeurs("Coordonnees : 875243 2481718")   Private Function RecupererValeurs(ByVal chaine As String) As String() 'Les valeurs commencent toujours après le terme "Coordonnées : " . 'On supprime donc cette portion de texte chaine = chaine.Substring("Coordonnees : ".Length - 1) 'Il ne reste plus qu'à récupérer les 2 valeurs qui sont séparées par un espace Dim valeurs() As String = chaine.Trim.Split(" ") Return valeurs End Function

---

et comment puis je faire pour affecter séparément les 2 valeurs a 2 variables, j'ai essayé ce code ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim chaine As String chaine.Substring("Coordonnees : ".Length - 1) Dim valeurs() As String = chaine.Trim.Split(" ")   'ma variable chaine contient 87427129 248510992   Dim sep() As String 'tableau pour les coordonnées sep = Split(chaine, " ") 'affecte à un tableau la 1er et 2eme chaine entre 4 espaces malheureusement dans mon exemple ci dessus j'ai 3 espaces :( coo_lambert_x = CDbl(sep(0)) 'affecte a la var la coordonnée x en LT2E converti en Double coo_lambert_y = CDbl(sep(1)) 'affecte a la var la coordonnée y en LT2E converti en Double

---

Une solution envisageable : convertir tous les "doubles espaces" en "simple espace" avant d'extraire les valeurs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim chaine As String = "Coordonnees : 87427129 248510992" Dim coo_lambert_x As Double Dim coo_lambert_y As Double 'On remplace TOUS les doubles espaces par un espace SIMPLE Do chaine = chaine.Replace(" ", " ") Loop Until chaine.Contains(" ") = False 'On supprime le terme "Coordonnees : " chaine = chaine.Substring("Coordonnees : ".Length - 1) 'On récupère les 2 valeurs qui sont désormais séparées par un SEUL espace Dim valeurs() As String = chaine.Trim.Split(" ") 'On affecte ces valeurs aux variables coo_lambert_x = Double.Parse(valeurs(0)) coo_lambert_y = Double.Parse(valeurs(1))

---

Malheureusement j'ai d'autre donnée a extraire parmi celle ci, n'existerait il pas une autre solution en sachant que l'espace entre les 2 valeurs numérique peu varié ?

Coordonnees : 87427129 248510992
Coordonnees : 875075 2487061

Utilise la fonction Split() avec ":",
puis un deuxième split() avec " " comme séparateur et comme paramètre StringSplitOptions.RemoveEmptyEntries.

Bonjour,
Si la ou les chaines recherchées ont toujours le même modèle, mais que leur position dans le texte est aléatoire, une regex peut être une voie.
Ici des chaines de chiffres, soit \d+ (un ou plusieurs chiffres) encadrée par \b (extrémités de "mots", ici l'espace) :

Code:

---

1 2 3 4 5 6

Dim modele As String = "\b\d+\b" Dim r As New Regex(modele) Dim mcXY As MatchCollection = r.Matches(tbxRecepCoord.Text)   Dim x As String = mcXY.Item(0).Value Dim y As String = mcXY.Item(1).Value

---

chrismonoye -> le probléme c'est que la longuer des champs numériques peut varier de 4 à 9 pour chacun, oui seul leur position et le nombre d'espace entre les deux valeurs numériques varient.

je vais m'interesser au regex, merci chris.

Graffito, si je fait un deuxième split() avec " " ca ne fonctionnera pas car parfois j'ai " " (3 espaces) ou 2.

j'ai deja essayé et ca m'avait donné ca pour un tableau de valeurs()
valeurs(0) => 87427129
valeurs(1) => " "
valeurs(2) => " "
valeurs(3) => 248510992

C'est bon j'ai trouvé, merci à tous pour votre aide,
j'ai fait ceci, peut être que ça pourra aider quelqu'un un jour :

sur msdn j'ai trouvé : "StringSplitOptions.RemoveEmptyEntries"

et ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim coo_lambert As String Dim words() As String Dim debut_coog As Integer = TextBox1.Text.IndexOf("Coordonnees :") + 13 Dim fin_coog As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_coog) Dim longeur_coog As Integer = fin_coog - debut_coog coo_lambert = TextBox1.Text.Substring(debut_coog, longeur_coog) Label1.Text = coo_lambert words = coo_lambert.Split(New String() {}, StringSplitOptions.RemoveEmptyEntries) Label2.Text = words(0) Label3.Text = words(1)

---

Citation:

---

gastoncs :
sur msdn j'ai trouvé : "StringSplitOptions.RemoveEmptyEntries"

---

et si tu avais bien lu ma réponse, tu n'aurais pas eu à chercher :aie:

Citation:

---

Graffito :
Utilise la fonction Split() avec ":",
puis un deuxième split() avec " " comme séparateur et comme paramètre StringSplitOptions.RemoveEmptyEntries

---

.

Ah oui désolé, ca m'apprendra à lire à la va vite :mouarf:
merçi quand meme pour ton aide

Bonsoir,

Ce qui donne en suivant les indications de Graffito :

Code:

---

1 2 3

Dim words() As String = (TextBox1.Text.Split(":")(1)).Split(New String() {}, StringSplitOptions.RemoveEmptyEntries) Label2.Text = words(0) Label3.Text = words(1)

---

A+, hervé.