begin process at 2012 02 12 05:01:49
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Tutoriaux

 > RETOUR D'UN MOT PRÉCIS A L'INTÉRIEUR D'UNE CHAINE

RETOUR D'UN MOT PRÉCIS A L'INTÉRIEUR D'UNE CHAINE


 Information sur la source

Note :
5,5 / 10 - par 2 personnes
5,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Tutoriaux Niveau :Initié Date de création :23/02/2004 Vu :3 639
Auteur : SpOrTiF

Ecrire un message privé
Site perso
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Le code ci-joint est très simple, il permet de retourner un mot a l'intérieur d'une chaine.. et retourne 0 si il ne l'a pas trouvé... il permet de retourner un mot parmit une chaine qui contient plus de 200 mots. Si le nombre de mots excède, il retournera le numero du mot que vous voulez ainsi, vous aurez que a modifier la la valeur du tableau et du compteur.

Principe: valeur = getMot(chaine,nombre)

Exemple: chaine = "code tres simple et facile"

temp = getmot(chaine,2) va retourner tres.

Si il y a un bug, écrivez moi, merci

PaT

Source

  • Function getMot(chaine As String, mot As Integer)
  • 'Declation des variables
  • Dim mots(200) As String
  • Dim ok As Boolean
  • Dim compteur As Integer
  • 'initialisation des variables
  • ok = False
  • compteur = 0
  • 'debut de la programmation
  • If InStr(chaine, " ") > 0 Then
  • While (ok = False)
  • compteur = compteur + 1
  • If InStr(chaine, " ") > 0 Then
  • If compteur < 200 Then 'Si compteur de mots inférieur a 200..
  • mots(compteur) = Left(chaine, InStr(chaine, " ") - 1)
  • chaine = Right(chaine, Len(chaine) - InStr(chaine, " "))
  • While (Left(chaine, 1) = " ")
  • chaine = Right(chaine, Len(chaine) - 1)
  • Wend
  • Else 'Sinon + de 200, fermeture de la boucle..
  • ok = True
  • End If
  • Else
  • While (Right(chaine, 1) = " ")
  • chaine = Left(chaine, Len(chaine) - 1)
  • Wend
  • mots(compteur) = chaine
  • ok = True
  • End If
  • Wend
  • End If
  • If mot <= compteur Then
  • getMot = mots(mot)
  • Else
  • getMot = 0
  • End If
  • End Function
Function getMot(chaine As String, mot As Integer)

    'Declation des variables
    Dim mots(200) As String
    Dim ok As Boolean
    Dim compteur As Integer
    
    'initialisation des variables
    ok = False
    compteur = 0
    'debut de la programmation
    If InStr(chaine, " ") > 0 Then
        While (ok = False)
            compteur = compteur + 1
            If InStr(chaine, " ") > 0 Then
                If compteur < 200 Then 'Si compteur de mots inférieur a 200..
                    mots(compteur) = Left(chaine, InStr(chaine, " ") - 1)
                    chaine = Right(chaine, Len(chaine) - InStr(chaine, " "))
                    While (Left(chaine, 1) = " ")
                        chaine = Right(chaine, Len(chaine) - 1)
                    Wend
                Else 'Sinon + de 200, fermeture de la boucle..
                    ok = True
                End If
            Else
                While (Right(chaine, 1) = " ")
                    chaine = Left(chaine, Len(chaine) - 1)
                Wend
                mots(compteur) = chaine
                ok = True
            End If
        Wend
    End If
    
    If mot <= compteur Then
        getMot = mots(mot)
    Else
        getMot = 0
    End If
End Function



 Sources du même auteur

Source avec Zip Source avec une capture APPLICATION APPORTANT DE LA SÉCURITÉ POUR MIRC, PROTECTION, ...
SUPPRESION D'UNE VARIABLE DANS UNE SECTION D'UN FICHIER .INI
Toutes les sources de SpOrTiF

 Sources de la même categorie

Source avec Zip DLL PERSONNALISÉ AVEC ÉVÈNEMENTS ET PROPRIÉTÉS EN VB6. par Number7
Source avec Zip Source .NET (Dotnet) EXEMPLE DU TUTORAIL "CLASSES MÉTIER" par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DES LISTES : RANGEMENT (LIST.SORT) ET FILTRAGE (LIST... par kbalist
Source avec Zip EXEMPLE SUR LES MENUS POUR AIDER LES DÉBUTANTS COMME MOI ;-) par viragoloco
LES OPÉRATIONS DE LA LISTE CHAINÉE par smaili
Toutes les sources de la catégorie Tutoriaux

Commentaires et avis

Commentaire de ld40 le 23/02/2004 20:29:39

tu veux dire ...

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)

Commentaire de PROGRAMMIX le 23/02/2004 22:36:22

&gt;&gt; Id40
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.

Commentaire de pcpunch le 24/02/2004 02:03:45

Comme le dit Ld40 pourquoi faire une fonction si compliquer pour si peu ?????


Public Function GetMot(Chaine As String, mot As Integer)
Dim TabMot() As String
TabMot = Split(Chaine, " ")
If mot - 1 &gt; UBound(TabMot) Or mot = 0 Then GetMot = "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function


GetMot("code tres simple et facile", 3)---&gt;renvoie simple!!!


Commentaire de SpOrTiF le 24/02/2004 04:20:05

Je connais malheureusement pas tous les codes ou les fonctions de Visual Basic.. je connais pas la fonction Split.. Mais disons que ma fonction a été analysé afin de déquortiqué une chaine qui pourrait avoir plusieurs espaces entre les mots. j'essais de bien faire, bientot, ma probablement mettre le code de mon bot IRC qui est pas mal je trouve.

Merci pour les commentaires

Commentaire de SpOrTiF le 24/02/2004 04:20:15

Je connais malheureusement pas tous les codes ou les fonctions de Visual Basic.. je connais pas la fonction Split.. Mais disons que ma fonction a été analysé afin de déquortiqué une chaine qui pourrait avoir plusieurs espaces entre les mots. j'essais de bien faire, bientot, ma probablement mettre le code de mon bot IRC qui est pas mal je trouve.

Merci pour les commentaires

Commentaire de ld40 le 24/02/2004 08:16:30

nous avons vu au premier coup d'oeil que c'est un code de débutant
;-)

je t'ai donné une solution plus simple pour t'aider à progresser.

Ne te laisse pas abattre, on est tous passé par là. ;-)

Commentaire de pcpunch le 24/02/2004 10:53:42

Oui c'est simplement histoire de te montrer!!! matte le code pour comprendre!!!

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 &gt; UBound(TabMot) Or mot = 0 Then GetMot = "Erreur": Exit Function
GetMot = TabMot(mot - 1)
End Function

Commentaire de pcpunch le 24/02/2004 11:01:04

Le mm code commentée :

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 &gt; 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

++

Commentaire de SpOrTiF le 24/02/2004 13:56:22

Disons que j'suis étudiant pour devenir programmeur analyste, j'étudie a un cegep a québec pis j'ai appris java,cobol,c,vb..

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

Commentaire de larsen44 le 21/02/2005 00:28:47

Salut à tous je suis moi aussi un débutant en programmation et j'ai réalisé par l'intermédiaire de mes cours un Pendu en php et j'essaye de faire de mm en vb donc je travaille avec les chaines et voila que je galere pour remplacer les etoiles par les lettres trouvées...utilisé Right , Left , Middle , enfin je bricole on va dire et je suis tombé sur ce post tres interessant.
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

Commentaire de ld40 le 21/02/2005 19:02:18

Tabmot n'est pas un string mais un variant. c'est à dire ici, un tableau dont les indices varient de 0 à ubound(Tabmot)-1

si tu veux remplacer des étoiles par du texte, utilise replace()

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)