Replace un mot au debut du TextBoxRésolu

Question

Bonjour,
J'ai besoin de votre aide
Je ne trouve pas la solution pour remplacer le premier mot trouver est non pas tous le TextBox.
Dans mon exemple je cherche a remplacer le mot GPS, mais que le premier.
Text1.Text = Replace(Text1.Text, "GPS", "GPS1")

Informatique;Moniteur;Moniteur 19'' et moins;
DVD;DVD Séries TV;Séries TV Comédie;
Informatique;Composant;Carte graphique;
GPS;GPS;GPS pour la route;
GPS;Accessoires GPS;Chargeur voiture;
DVD;DVD Séries TV;Séries TV Policier, Thriller;
DVD;DVD Séries TV;Séries TV Médicales;

cs_ShayW · Accepted Answer

Bonsoir
Essayes ça
mais tout d'abord comment as tu introduis le text
dans le textbox? 
important il faut inserer le vbcrlf à la fin de
chaque ligne 

 Me.Text1.Text = "Informatique;Moniteur;Moniteur 19'' et moins;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & ":DVD;DVD Séries TV;Séries TV Comédie;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & "Informatique;Composant;Carte graphique;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & "GPS;GPS;GPS pour la route;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & "GPS;Accessoires GPS;Chargeur voiture;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & "DVD;DVD Séries TV;Séries TV Policier, Thriller;" & vbCrLf
Me.Text1.Text = Me.Text1.Text & "DVD;DVD Séries TV;Séries TV Médicales;" & vbCrLf

  

 Private Sub replacefirstocurrence(thetext As String, what As String, withwhat As String)
 Dim pos As Integer
 Dim start As Integer
 Dim newstr As String
 Dim endofstring As Boolean
 Dim mystrings() As String
 mystrings() = Split(thetext, vbCrLf)
 For iter = LBound(mystrings) To UBound(mystrings)
  pos = InStr(1, mystrings(iter), what)
   newstr = ""
  If pos = 1 Then
     newstr = withwhat & Mid(mystrings(iter), Len(withwhat))
     mystrings(iter) = newstr & vbCrLf
  Else
     mystrings(iter) = mystrings(iter) & vbCrLf
  End If
 Next iter
 Me.Text1.Text = ""
 For iter = LBound(mystrings) To UBound(mystrings)
   Me.Text1.Text = Me.Text1.Text & mystrings(iter)
 Next iter
End Sub

Usage de la sub

replacefirstocurrence Me.Text1.Text, "GPS", "GPS1"


Bonne prog

cs_didine13 · Answer

Je croyais avoir cliqué sur aperçu.
Désoler juste pour dire Merci d&#8217;avance

cs_ShayW · Answer

Bonsoir
C'est quoi seulement le 1er 
si &ccedil;a c'est ton textbox.text
Informatique;Moniteur;Moniteur 19'' et moins;
DVD;DVD Séries TV;Séries TV Comédie;
Informatique;Composant;Carte graphique;
GPS;GPS;GPS pour la route;
GPS;Accessoires GPS;Chargeur voiture;
DVD;DVD Séries TV;Séries TV Policier, Thriller;
DVD;DVD Séries TV;Séries TV Médicales;

ce qui est marqu&eacute; en rouge ?

raffika · Answer

Salut, cherches InStr dans l'aide,
cette fonction te donnes l'emplacement
du premier caratère d'un texte dans un autre.
Et Mid permet de découper un texte pour le remplacer
par un autre suivant sa postion dans le texte et sa longueur...
J'espére ne pas être trop confus...
Bonne prog.

cs_didine13 · Answer

Oui exactement ce en rouge

cs_ShayW · Answer

je corrige
Si &ccedil;a c'est ton textbox.txt
Cest quoi le 1er GPS
Informatique;Moniteur;Moniteur 19'' et moins;
DVD;DVD Séries TV;Séries TV Comédie;
Informatique;Composant;Carte graphique;
GPS;GPS;GPS pour la route;
GPS;Accessoires GPS;Chargeur voiture;
DVD;DVD Séries TV;Séries TV Policier, Thriller;
DVD;DVD Séries TV;Séries TV Médicales;

ce qui est colori&eacute; en rouge?

cs_didine13 · Answer

Oui Textbox.Text qui contient

Informatique;Moniteur;Moniteur 19'' et moins;
DVD;DVD Séries TV;Séries TV Comédie;
Informatique;Composant;Carte graphique;
GPS;GPS;GPS pour la route;
GPS;Accessoires GPS;Chargeur voiture;
DVD;DVD Séries TV;Séries TV Policier, Thriller;
DVD;DVD Séries TV;Séries TV Médicales; 

ce qui est colorier en rouge?

cs_didine13 · Answer

Bonjour,

désoler pour le retard, je vient de tester le code est c'est exactement ce que je voulais.

Merci beaucoup

Replace un mot au debut du TextBox

8 réponses

Votre réponse

Discussions similaires