Re à tous!
 
Voilà une autre petite question, je cherche la syntaxe exact pour changer une chaine de caractère inconnue qui va de 0 à 125 (exemple que tout ce qui est compris entre 0 et 125 devienent automatique 127).
dans le même type que :
 
strNewText = Replace(strText, "10", "127" )
strNewText = Replace(strText, "11", "127" )
strNewText = Replace(strText, "12", "127" )
strNewText = Replace(strText, "13", "127" )
 
etc...
 
Pouvez vous m'aider svp?

méthode simple mais peut rapide:

 
il y a certainement moyen de faire plus rapide avec des expresions régulières mais si cette méthode est assez rapide pour toi, ce n'est pas forcement la peine de se casser la tête

Ok merci ca fonctionne mais ca donne:
 
pour 9 par exemple ca ecrit 127127127127127
moi je veux que pour 9 (tjs exemple) ca donne 127 tout court
 
?

Oups, j'ai fait une erreur, essaye ça, ça devrait mieux marcher:

Pas la peine de passer en MP, on peut continuer ici
 
pour en revenir à la question, j'utilise la chaine  "¤¤¤¤¤¤¤¤¤¤¤¤" comme constante parce que je suis à peu près sûr de ne pas la rencontrer dans la chaine que je parcours. Je commence donc pa remplacer tous les nombres à remplacer par ma constante et ensuite je remplace toutes les occurence de ma constante par 127

bon je résume, je suis newbie puissance 20.  
 
 
 
 
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:123.txt", ForReading)
 
strText = objFile.ReadAll
objFile.Close
dim i  
dim strNewText  
 
strNewText = strText  
for i = 125 to 0 step - 1  
    strNewText = Replace(strNewText, Cstr(i), "127" )  
 
 
 
Set objFile = objFSO.OpenTextFile("C:\123.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
 
Next
 
 
Question: je place ton code comment? et ou?

tu remplace le code que j'ai donné en premier par celui que j'ai donné par la suite