Insertion d'un caractère dans une chaine string

Signaler
Messages postés
27
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
10 octobre 2006
-
 ben -
Vous seriez gentils si vous m'indiquiez l'instruction qui permet d'insérer un caractère dans une chaîne de caractère pour une position déterminée à l'avance.

Merci

3 réponses

Messages postés
98
Date d'inscription
vendredi 4 janvier 2002
Statut
Membre
Dernière intervention
7 mars 2006
5
Tu peux faire une fonction comme celle-ci:

Public Function InsertInString(InsertOntoStr As String, InsertStr As String, AtPosition As Integer) As String
InsertInString = Left(InsertOntoStr, AtPosition) + InsertStr + Right(InsertOntoStr, Len(InsertOntoStr) - AtPosition)
End Function

Peux être y a t'il un autre moyen mais cela fonctionne ;-)

Borntoclimb

---No pasa nada...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Aucune Fonction doit le faire mais voici comment faire :

TonTexte = "ITLIA"
TaPosition = 3
TonCaractere = "A"
Relultat = Mid(TonTexte, 1, TaPosition - 1) & TonCaractere & Mid(TonTexte, TaPosition, Len(TonTexte))

Resultat="ITALIA"

It@li@
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
23
Il n'existe pas de fonction toute faite pour cela en VB, il faut coder cela toi-même, mais ce n'est pas bien compliquer. Pour inserer un caractère en ième position d'une strign, il faut faire cela :
Dim MaChaine As String, Insert as String, i as Long
Machaine = "BonjourOsta"
Insert = " "
i = 8
Machaine = left$(MaChaine,i-1) & Insert & Mid$(MaChaine,i)


Christophe R.

Christophe R.
Bonjour et merci pour le petit code !
Franchement ces partages de code nous permettent de gagner énormément de temps.

Bien à toi