12 FONCTIONS DE TEXTE ! SUPER UTILE

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
60
Date d'inscription
mardi 4 septembre 2001
Statut
Membre
Dernière intervention
19 janvier 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5165-12-fonctions-de-texte-super-utile

Messages postés
60
Date d'inscription
mardi 4 septembre 2001
Statut
Membre
Dernière intervention
19 janvier 2009

c'est juste une démo des fonctions vb, c tout, pour les very débutants
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

merci 6Po et KaViDee (à vrai dire j'ai pas compris grand chose, mais bon, c'est tjrs ça...)
Messages postés
105
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
22 janvier 2009

Pour vbsupernul,

Dim chaine As String
chaine = "abc"

chaine = lcase(chaine) 'Tous en minuscule --- CF. plus bas !
For i = 1 To Len(chaine)
'asc donne la valeur ASCII d'un char
'si tu fais ALT + no (avec les chiffres de droites) ca te donne le dit char
'donc asc("a") = 97 donc si on fait un "a à z" - 97 on va trouve des valeurs entre 0 et 25
'attention ! A 65 et a 97 donc il faut tout mettre en majuscule ou en minuscule
MsgBox Asc(Mid(chaine, i, 1)) - 97
Next i
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008

Pour te donner un exemple concret, tu met un CommandButton(Command1) et une ListBox(List1) et tu met ce code :

Private Sub Command1_Click()
Dim Texte
Texte = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To Len(Texte)
List1.AddItem (Mid(Texte, i, 1)) & " - " & i - 1
Next i
End Sub

Et puis après t'es pas obligé de mettre des ListBox, c juste pour l'exemple !
Voila, j'espère que c'est ça que tu voulais :-)
@+
Afficher les 11 commentaires