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

Télécharger le projet
Commenter

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\
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.