Discussion :

[excalybur]

Bonsoir,

Voici mon soucis: Il me faut convertir et déplacer certaines sous-chaines '=>' en 'deplace' dans la chaine 'Enonce' :

Code :

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

Enonce = "h#2 b) b3 => c3  f7 => f6 c) b3 => f2  f7 => g3"

pour obtenir ceci :

Code :

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

Enonce = "h#2 b) deplace b3 c3 deplace f7 f6 c) deplace b3 f2 deplace f7 g3"

Si j'utilise l'instruction :

Code :

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

If InStr(Enonce, " => ") Then Enonce = Replace(Enonce, " -> ", " deplace ")

j'obtiens bien sur le remplacement mais pas le déplacement des sous-chaines:

Code :

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

Enonce = "h#2 b) b3 deplace c3  f7 deplace f6 c)  b3 deplace f2  f7 deplace g3"

C'est évidement pas ce que je veut. Il me semble qu'il faille indexer chaque sous-chaine de la chaine et déplacer '=>' de 2 occurrences en négatif

Mais voila comment faire en gardant à l'esprit que la chaine peut avoir une longueur variable ?

En vous remerciant pour vos idées.

[Phil Rob]

Bonjour,

Code :

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

Enonce = Enonce.Replace("=>", "Deplace")

et pas besoin de If ..., si la chaine cherchée ne s'y trouve pas, rien ne se passe, il n'y a pas d’erreur.

Bonne journée,

[Delaney]

Bonjour,

essaie avec cela :

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 enonce As String = "h#2 b) b3 => c3  f7 => f6 c) b3 => f2  f7 => g3"
 Dim position As Integer
Dim ind As Integer = 1
 
While ind < enonce.Length
         position = InStr(ind, enonce, " =>")
         If position <> 0 Then
            enonce = enonce.Remove(position, 3) 'j'enlève 3 caractères : un espace et => pour ne garder qu'un espace
            enonce = enonce.Insert(position - 3, "deplace ") ' j'ajoute un espace après déplace
         End If
         ind += 1
End While
Label1.Text = enonce

cela fonctionne si l'agencement est toujours identique et que tu peux déplacer toujours du même nombre de caractères.

Sincèrement

[excalybur]

Bonjour

Merci pour vos réponses et astuces. Effectivement cela fonctionne très bien.

Il me reste plus qu'à configurer le cas ou le mot précédent fait plus de deux caractères ex: "bPb3 =>" à la place de "b3 =>". Ceci est simple à faire.

Merci