remplacer un caractère ?
remplacer un caractère ? - VB/VBA/VBS - Programmation
Marsh Posté le 03-04-2017 à 15:03:49
Bonjour
Essayez cela:
Sub SupprDansChaine()
Chaine = " string(23)" & "Parc Olympique Lyonnais"
Deb = InStr(Chaine, "string" ) 'recherche premier caractère à supprimer
Fin = InStr(Chaine, " )" ) 'recherche dernier caractère mot à supprimer
Chaine1 = Left(Chaine, Deb - 1)
Chaine2 = Mid(Chaine, Fin + 1, Len(Chaine) - Fin)
Chaine = Chaine1 + Chaine2
MsgBox Chaine
End Sub
Bon courage
Marsh Posté le 03-04-2017 à 18:08:53
Oki merci a vous mais je pensais qu'il existait plus simple mdrr
Marsh Posté le 03-04-2017 à 18:35:46
Et oui via Split, Replace et LTrim c'est bien plus simple et en deux lignes de code …
Marsh Posté le 03-04-2017 à 19:29:02
Salut Marc, @ogst : à titre documentaire : http://silkyroad.developpez.com/VB [...] aracteres/
---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Sujets relatifs:
- [Résolu]Excel 2010 - remplacer chaine de caractère dans un fichier
- [C] Remplacer un char dans une chaine de caractère
- remplacer un caractère dans une chaine
- enlever ou remplacer le caractere \
- Comment remplacer un caractère dans une très longue liste
- Ecire et remplacer caractère dans un fichier txt
- Remplacer la nième occurence d'une chaine de caractère par ...
- XSL : remplacer une chaine de caractère
- Remplacer une chaine de caractère par une autre dans du texte
- Remplacer un caractère par un autre?
Marsh Posté le 02-04-2017 à 20:28:25
Hello tous le monde voici la String sur laquelle j'aimerai travailler : << string(23) "Parc Olympique Lyonnais" >>
J'aimerais faire un programme en VB permettant de supprimer le "String(23)"
Le problème étant que le numéro 23 n'est pas tous le temps 23 , il peut s'agir de n'importe quel chiffre entre 0 et 100...
Merci d'avance