PARSER DE TEXTE - TRÈS UTILE POUR L'INTERPRÉTATION DE FICHIER TEXTE

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

Télécharger le zip