Chaine de caracteres : remplacer "chr" en "xchose"Résolu

Question

Salut,

Ya t'il une solution pour ce probl&#232;me :

J'ai une chaine de caracteres, j'arrive a changer

la valeure "1" en "2" mais pas "1" en "xchose" :

'''''''''''''''''''''''''''''''''

Private Sub Command1_Click()

'

Text1.text = "1x1x1x1x1x1x1x1x1x1x"

'

On Error Resume Next

Dim a As String

a = Text1.Text

For i = 0 To Len(a)

n1 = (InStr(a, "1"))

If n1 i Then a Left(a, n1 - 1) & "2" & Right(a, Len(a) - n1) 'ici avec "xxxx" a la place de "2" ca ne marche pas...

Next i

'

Text1.Text = a

End Sub

'''''''''''''''''''''''''''''''''

Ce code fonctionne qu'avec une decimale, j'ai essay&#233;

de changer beaucoup de valeurs (Len, +1, -1, ect.)

mais sans succ&#233;s...

Quelqu'un aurait'il une id&#233;e ?

Merci
-----------------

Utilisateur anonyme · Accepted Answer

Esseye plut&#244;t &#231;a :





Dim Str as String

Dim NewStr as String
Const TxtRemplace as String = "xchose"



Str = "1x1x1x1x1x1x1x1x1x1x"

NewStr = ""

Dim i as Integer

For i = 1 to Len(Str) - 1

  If Mid(Str,i,1) = "1" Then 

    NewStr = NewStr & TxtRemplace 

  Else

    NewStr = NewStr & Mid(Str,i,1)

  End If


Next i

Str = NewStr







ChRb

cs_Jack · Answer

Salut
Simplifie toi la vie : Utilise Replace : n1 = Replace(a, "1", "9")

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_CanisLupus · Answer

Salut,

As-tu essay&#233; la fonction replace ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

ScSami · Answer

M'enfin Charles, &#224; quoi bon utiliser une boucle
lorsqu'on peut utiliser la fonction "Replace" !!!!!!! (bon, ceci dit
c'est vrai que c'est une alternative qui fonctionne aussi et qui est
meilleurs que la tienne!!!)



Non non, tu as juste besoin d'&#233;crire ceci :




Private Sub Command1_Click()


 On Error Resume Next

 Text1.Text = Replace(
Text1.Text, "1", "2")


End Sub




Mais au fait, en quel langage programmes-tu ??? Il faut toujours le dire!!!


Enjoy  



<hr size="2" width="100%">

(Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse acc&#233;pt&#233;e")

cs_CanisLupus · Answer

ScSami >> pourquoi un On Error Resume Next ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

ScSami · Answer

Pour respecter son code d'origine 


Mais c'est clair que &#231;a n'a aucun int&#233;ret s'il n'y a pas d'autres instructions apr&#232;s!!!

Donc, dans ce cas tu peux l'enlever Gmni!

gmni · Answer

En fait "replace" c'est bien mais pour un carract&#232;re seulement.

Par ex. si je replace "&" en "-&-" je ne pourai plus utiliser "&"

pour d'autres carracteres.

Replace "remplace" mais remplace tout ! alors qu'une boucle

s'occupe de chaque carractere en un temps "t".



Merci ChRb d'avoir compris mon inttention et surtout pour ton exellent code (j'ai enlev&#233; -1 dans "For..").



ScSami il me semble que mon code indique sa nature...


Sinon merci &#224; tous pour vos r&#233;ponses &#233;claires !

Bonne prog; 

Gmni 
------

cs_CanisLupus · Answer

Le code de ChRb est bon (sauf le -1) mais il fait exactement la m&#234;me chose que la fonction replace. Essaie, tu verras.
D'autre part, replace n'est pas seulement "bien pour un caract&#232;re seulement", tu peux remplacer 1 car par une chaine et inversement.
Mais bon, c'est ton choix et n'oublie pas de valider la r&#233;ponse de ChRb en cliquant sur "r&#233;ponse accept&#233;e".

@+

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Chaine de caracteres : remplacer "chr" en "xchose"

8 réponses

Discussions similaires