Lire texte char a char
cs_radada
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
-
23 oct. 2003 à 18:58
cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 - 23 oct. 2003 à 23:55
cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 - 23 oct. 2003 à 23:55
2 réponses
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
5
23 oct. 2003 à 19:07
23 oct. 2003 à 19:07
Oui voila !!!
J'ai poster une src avec qq exemple de fonction sur les variables de type string !!!
http://www.vbfrance.com/code.aspx?ID=7639
'Fonction qui donne la position(integer)
'd'un texte dans une variable
' EX : text1 ="vivevbfrance vbfrance.com"
' Position(text1,"vbfance") renvoie 5
' Position(text1,"vbfance",6) renvoie 14
Public Function Position(variable As String, Texte As String, Optional ApartirDe As Integer = 1)
Dim i As Integer
Dim debut As Integer
For i = ApartirDe To Len(variable)
If Mid(variable, i, Len(Texte)) = Texte Then Exit For
Next i
Position = i
End Function
c'est pas vraiment ta question mais tu peu comprendre comment lire caractére par caractére!!
Ex:
Dim Variable as string
Dim Caractere as string
Variable="Mon texte blablabla..."
'Boucle for next du debut a la fin de la variable
For i=1 to len(variable)
'Lecture du caractére
Caractere= mid(variable,i,1)
next i ' retour de boucle
Voila a chaque passage dans la boucle le caractére est stocké dans la variable, a toi ensuite de modifier le code pour arriver à tes fin...
J'ai poster une src avec qq exemple de fonction sur les variables de type string !!!
http://www.vbfrance.com/code.aspx?ID=7639
'Fonction qui donne la position(integer)
'd'un texte dans une variable
' EX : text1 ="vivevbfrance vbfrance.com"
' Position(text1,"vbfance") renvoie 5
' Position(text1,"vbfance",6) renvoie 14
Public Function Position(variable As String, Texte As String, Optional ApartirDe As Integer = 1)
Dim i As Integer
Dim debut As Integer
For i = ApartirDe To Len(variable)
If Mid(variable, i, Len(Texte)) = Texte Then Exit For
Next i
Position = i
End Function
c'est pas vraiment ta question mais tu peu comprendre comment lire caractére par caractére!!
Ex:
Dim Variable as string
Dim Caractere as string
Variable="Mon texte blablabla..."
'Boucle for next du debut a la fin de la variable
For i=1 to len(variable)
'Lecture du caractére
Caractere= mid(variable,i,1)
next i ' retour de boucle
Voila a chaque passage dans la boucle le caractére est stocké dans la variable, a toi ensuite de modifier le code pour arriver à tes fin...
cs_radada
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
1
23 oct. 2003 à 23:55
23 oct. 2003 à 23:55
yes!! Merci beaucoup : ). Et c pas trop lourd comme traitement pour des textes de quelques dizaines, voire centaines de caractères???