Supprimer des ligne dans RichTextBox [Résolu]

cs_plano 19 Messages postés jeudi 15 mai 2008Date d'inscription 6 février 2012 Dernière intervention - 27 janv. 2009 à 18:48 - Dernière réponse : cs_plano 19 Messages postés jeudi 15 mai 2008Date d'inscription 6 février 2012 Dernière intervention
- 27 janv. 2009 à 20:17
Bonjour à tous et à toute !
Voilà mon souci , Dans un richtextbox j'ai ces ligne d'afficher :
G01 X49.157 Y105.35

G01 X49.618 Y103.564

G01 X49.903 Y101.777

G01 X50.0 Y100.0

G00 Z10

G00 X50.0 Y100.0

G01 Z0

G01 X50.0 Y50.0

G00 Z10
Si on regarde les trois ligne en rouge , je voudrai faire en sorte que si la troisième ligne moins "G00 " est égale à la première ligne moins "G01"
alors supprimer la deuxième et la troisième ligne!

Voilà ce que je souhaiterai faire!
Est ce que quelqu'un peut m'aider s'il vous plait?
Merci d'avance.
Plano.
Afficher la suite 

2 réponses

Répondre au sujet
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 27 janv. 2009 à 19:53
+3
Utile
Salut
Et qu'as-tu fait, testé, lancé ?

Le plus simple serait de rentrer toutes ces chaines dans un tableau afin de travailler avec des éléments du tableau, car la manipulation de RTB n'est pas simple et obligerait à mémoriser les emplacements curseur de début et de longueur des chaines ...
Facile à faire avec Split :
   Dim monTexte As String = "123" & vbCrLf & "456" & vbCrLf & "789"
   Dim monTableau As String() = Split(monTexte, vbCrLf)
   MsgBox(monTableau(1))

Ensuite, tu n'as plus qu'à lister (boucle For-Next) chaque élément de ton tableau et tester son contenu par rapport à l'élément "ligne - 2", ce n'est qu'un jeu de manipulation de chaine.
Si tu dois supprimer un élément du tableau, il te faudra décaler les éléments du tableau de la position n+1 vers n (encore une boucle For-Next)

Une fois que tu auras épuré ton tableau, utilise Join (l'inverse de Split) pour reconstituer ton texte

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Jack
cs_plano 19 Messages postés jeudi 15 mai 2008Date d'inscription 6 février 2012 Dernière intervention - 27 janv. 2009 à 20:17
0
Utile
Merci Jack pour TES réponses , puisque tu m'à aussi répondu dans une autre section (super réactif le Jack!!!!:)
Aux vues de ma petite tête , je vais y arriver , il est vrai que je m'évertuai a travailler directement sur le rixtextbox , alors qu'avec les tableau ce sera plus facile.
Pour info , mon appli sert à convertir les fichiers DXF en code machine(ISO) pour une fraiseuse numérique de ma fabrication , donc ceci  fonctionne , et il ne me restait plus que ce point à éclaicir!
Merci énormement et bravo pour ta réactivité!
Plano!
Commenter la réponse de cs_plano

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.