Insertion d'un caractère dans une chaine string

cs_osta Messages postés 27 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 10 octobre 2006 - 23 juin 2004 à 10:57
 ben - 20 mars 2014 à 12:23
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

borntoclimb Messages postés 98 Date d'inscription vendredi 4 janvier 2002 Statut Membre Dernière intervention 7 mars 2006 4
23 juin 2004 à 11:13
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...
2
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 9
23 juin 2004 à 11:14
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@
2
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 29
23 juin 2004 à 11:10
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.
1
Bonjour et merci pour le petit code !
Franchement ces partages de code nous permettent de gagner énormément de temps.

Bien à toi
0