RETOUR D'UN MOT PRÉCIS A L'INTÉRIEUR D'UNE CHAINE
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
23 févr. 2004 à 20:29
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 - 21 févr. 2005 à 19:02
ld40 Messages postés 336 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 22 février 2019 - 21 févr. 2005 à 19:02
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/20704-retour-d-un-mot-precis-a-l-interieur-d-une-chaine
https://codes-sources.commentcamarche.net/source/20704-retour-d-un-mot-precis-a-l-interieur-d-une-chaine
21 févr. 2005 à 19:02
si tu veux remplacer des étoiles par du texte, utilise replace()
21 févr. 2005 à 00:28
Apres j'ai un question a poser aux personnes qui ont écris les fonction pour que je comprenne bien l'idée:
Pkoi utiliser Split qui selon Msdn Renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes.
Alors que lors de la déclaration vous identifiez le tableau comme un tableau de caracteres : Dim TabMot() As String
Donc ya quelque chose que je n'ai pas pigé avec Split si vous pouvez m'éclairer ce serai sympa
Merci
24 févr. 2004 à 13:56
Malgré que VB c'est quand meme bien, je me débrouille, mais quand je connais pas la fonction pour me simplifier la vie, j'code moi meme. j'avoue que ek un split() cela peut aider grandement.
Comme présentement là, je finalise un super bot fonctionne en VB ek des modules et des classes.. y'é vraiment nice, sauf que je dois le perfectionner pour mieux contrer le flood.
PaT
24 févr. 2004 à 11:01
Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String 'Declaration du tableau
TabMot = Split(Chaine, " ") 'remplie le tableau : délimiteur " "
For i = 0 To UBound(TabMot) 'parcourt du tableau
'Si l'entrée du tableau est " " alors on ajoute 1 a mot
If TabMot(i) vbNullString Then mot mot + 1
Next i
'Gestion d'erreur
If mot - 1 > UBound(TabMot) Or mot 0 Then GetMot "Erreur": Exit Function
'Renvoie le mot-1 car le premier enregistrement du tableau est 0
GetMot = TabMot(mot - 1)
End Function
++
24 févr. 2004 à 10:53
Pour gérer plusieurs espace :
Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String
TabMot = Split(Chaine, " ")
For i = 0 To UBound(TabMot)
If Trim(TabMot(i)) vbNullString Then mot mot + 1
Next i
If mot - 1 > UBound(TabMot) Or mot 0 Then GetMot "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function
24 févr. 2004 à 08:16
;-)
je t'ai donné une solution plus simple pour t'aider à progresser.
Ne te laisse pas abattre, on est tous passé par là. ;-)
24 févr. 2004 à 04:20
Merci pour les commentaires
24 févr. 2004 à 04:20
Merci pour les commentaires
24 févr. 2004 à 02:03
Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String
TabMot = Split(Chaine, " ")
If mot - 1 > UBound(TabMot) Or mot 0 Then GetMot "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function
GetMot("code tres simple et facile", 3)--->renvoie simple!!!
23 févr. 2004 à 22:36
Puisque Split renvoie un tableau de chaine, tu peux déclarer getMot de la manière suivante : getMot() As String.
Personnellement, je n'aime pas trop les Variant.
Mais cela reste bien sûr une affaire de goût.
23 févr. 2004 à 20:29
Dim chaine As String
Dim getMot As Variant
Dim indice As Double
chaine = "code tres simple et facile"
getMot = Split(chaine)
indice = 2
MsgBox "Mot n°" + Trim(Str(indice)) + " = " + getMot(indice - 1)