Supprimer des ligne dans RichTextBox [Résolu]

cs_plano
Messages postés
19
Date d'inscription
jeudi 15 mai 2008
Dernière intervention
6 février 2012
- 27 janv. 2009 à 18:48 - Dernière réponse : cs_plano
Messages postés
19
Date d'inscription
jeudi 15 mai 2008
Dernière intervention
6 février 2012
- 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 

Votre réponse

2 réponses

Meilleure réponse
cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
- 27 janv. 2009 à 19:53
3
Merci
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)

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de cs_Jack
cs_plano
Messages postés
19
Date d'inscription
jeudi 15 mai 2008
Dernière intervention
6 février 2012
- 27 janv. 2009 à 20:17
0
Merci
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.