Parser de texte - très utile pour l'interprétation de fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 10 706 fois - Téléchargée 634 fois

Description

Ce code permet de décomposer une chaine de caractère (string) en mots sur base de séparateurs. Dans l'exemple illustrant son utilisation, les séparateurs sont l'espace (" ") et le tiret ("-"). Le nombre de caractères séparateurs n'est pas limité.

Source / Exemple :


Option Explicit

Private Sub main()
  Dim oPW As New CBEEParseWord
  Dim i As Integer
  Dim strTmp As String
  
  ' définition de la liste des séparateurs admis - si non spécifié, l'espace est pris par défaut
  oPW.Separator = " -"
  
  ' la chaine à décomposer en mot
  oPW.Text = "ceci est-un texte"
  
  ' exploitation du parsing dans une boucle for/next
  For i = 1 To oPW.Count
    Debug.Print "for/next   : " & oPW.GetAt(i - 1)
  Next
  
  ' exploitation du parsing dans une boucle while/wend
  strTmp = oPW.GetNext
  While strTmp > ""
    Debug.Print "while/wend : " & strTmp
    strTmp = oPW.GetNext
  Wend
  
End Sub

Conclusion :


J'utilise cette classe dans mes applications depuis plusieurs années et elle est très utiles notament pour décomposer des fichiers textes ou des suites d'information délimitées pas un séparateur:

Par exemple:

ListeRépertoire=c:\temp\;c:\windows\;c:\mon répertoire\

En introduisant comme séparateurs: "=;"

on obtiendra la liste:

ListeRépertoire
c:\temp\
c:\windows\
c:\mon répertoire\

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_pit1
Messages postés
32
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
17 janvier 2007
-
Un split ferait aussi l'affaire, mais on ne peut définir qu'un caractère en tant que séparateur.
larou_69
Messages postés
4
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
7 juin 2009
-
Merci pour cette source, elle est trés utile mais le probléme que je comprend mal le code et j'ai un probléme d'affichage, ça n'affiche rien , méme j'ai modifié le contenu de oPW.Text et de oPW.Separator, mais rien ne s'affiche. que doit je faire pour afficher la liste des mots contenus dans un texte, merci .

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.