Dissection d'un texte en plusieurs petites parties
cs_Supo
Messages postés
17
Date d'inscription
samedi 13 octobre 2001
Statut
Membre
Dernière intervention
21 février 2003
-
10 janv. 2002 à 17:51
cs_jeannot45 Messages postés 112 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 décembre 2004 - 11 janv. 2002 à 08:31
cs_jeannot45 Messages postés 112 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 27 décembre 2004 - 11 janv. 2002 à 08:31
A voir également:
- Dissection d'un texte en plusieurs petites parties
- Souligner texte illustrator - Forum Graphisme/design
- Html texte défilant en boucle - Forum Javascript / DHTML
- Texte defilant en boucle - Forum Flash
- Vba convertir nombre en texte - Forum Visual Basic
- Conversion nombre en texte ✓ - Forum VBA Office (Excel, Word ...)
2 réponses
Makabey
Messages postés
152
Date d'inscription
mercredi 27 juin 2001
Statut
Membre
Dernière intervention
11 juillet 2002
1
10 janv. 2002 à 22:49
10 janv. 2002 à 22:49
Si tu utilise VB6, tu peux peut-être y arriver avec Split
cs_jeannot45
Messages postés
112
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 décembre 2004
11 janv. 2002 à 08:31
11 janv. 2002 à 08:31
Bonjour,
Tu peux y parvenir par l'intermediaire d'une boucle et de lafonction Mid
ci dessous exemple de procedure
Sub eclatetexte()
' Déclaration de variables
Dim MonTexte As String
Dim LongueurTxt As Integer
' Déclaration d'un tableau dynamique
Dim Tableau()
' Saisie du texte
MonTexte = InputBox("Saisir un texte")
' Recherche de la longueur du texte saisi
LongueurTxt = Len(MonTexte)
' Redimensionnement du tableau dynamique
ReDim Tableau(LongueurTxt)
' Boucle et récupération de chaque lettre dans le tableau
For i = 1 To LongueurTxt
Tableau(i) = Mid(MonTexte, i, 1)
Next
End Sub
A+
Jean
Tu peux y parvenir par l'intermediaire d'une boucle et de lafonction Mid
ci dessous exemple de procedure
Sub eclatetexte()
' Déclaration de variables
Dim MonTexte As String
Dim LongueurTxt As Integer
' Déclaration d'un tableau dynamique
Dim Tableau()
' Saisie du texte
MonTexte = InputBox("Saisir un texte")
' Recherche de la longueur du texte saisi
LongueurTxt = Len(MonTexte)
' Redimensionnement du tableau dynamique
ReDim Tableau(LongueurTxt)
' Boucle et récupération de chaque lettre dans le tableau
For i = 1 To LongueurTxt
Tableau(i) = Mid(MonTexte, i, 1)
Next
End Sub
A+
Jean
