Ecraser ou changer un texte
chicodoubrazil
Messages postés
12
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
17 novembre 2004
-
5 mars 2003 à 14:56
cs_Draconagi Messages postés 34 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 9 octobre 2006 - 20 avril 2004 à 16:42
cs_Draconagi Messages postés 34 Date d'inscription vendredi 9 avril 2004 Statut Membre Dernière intervention 9 octobre 2006 - 20 avril 2004 à 16:42
A voir également:
- Ecraser ou changer un texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Texte à compléter ✓ - Forum VBA Office (Excel, Word ...)
- Texte au kilomètre - Forum Visual Basic
- Justifier texte photoshop - Forum Graphisme/design
- Html texte défilant en boucle ✓ - Forum Javascript / DHTML
1 réponse
cs_Draconagi
Messages postés
34
Date d'inscription
vendredi 9 avril 2004
Statut
Membre
Dernière intervention
9 octobre 2006
1
20 avril 2004 à 16:42
20 avril 2004 à 16:42
essaye ça
Public function search(byval mot as string, byval espace as string) as string
Dim Start as integer, r as integer
if left(mot, len(espace))<> espace then mot = mot & espace
start = 1
search=""
while r<>0 & r>= len(mot)
start = r + len(espace)
doevents
search = mid(mot, start, r - start)
wend
end function
je sais pas si ça peut t'aider mais tu peu toujours essayer.
Je débute mais j'aime comprendre et savoir
Public function search(byval mot as string, byval espace as string) as string
Dim Start as integer, r as integer
if left(mot, len(espace))<> espace then mot = mot & espace
start = 1
search=""
while r<>0 & r>= len(mot)
start = r + len(espace)
doevents
search = mid(mot, start, r - start)
wend
end function
je sais pas si ça peut t'aider mais tu peu toujours essayer.
Je débute mais j'aime comprendre et savoir