FONCTION POUR SÉPARER ET SÉLECTIONNER LES MOTS VOULUS DANS UNE PHRASE

Commentaire de stevebelgium le 11/05/2003 23:47:18

Yo , hexor !

Pas mal ton code mais j'ai fais la meme chose avec la function instr (Instring). Mais quand meme un bon effort.
J'ai ajouter ca aussi :
=> Optional lngEnd As Long = 0 'comme ca on est pas obliger de mettre le parametre

Sorry pour les fautes  d'orthographe . (Je suis encore en train d'apprendre la langue française).

Public Function Mot(str As String, lngStart As Long, Optional lngEnd As Long = 0)

    Dim temp_start, temp_end As Long
    Dim x As Integer
    
    temp_start = 1
    For x = 1 To lngStart - 1
        temp_start = InStr(temp_start + 1, str, " ")
    Next x
    
    temp_end = 1
    For x = 1 To lngEnd
        temp_end = InStr(temp_end + 1, str, " ") + 1
    Next x

    If temp_end - temp_start > 0 Then
        Mot = Mid(str, temp_start, temp_end - temp_start)
    Else
        Mot = Mid(str, temp_start)
    End If
    
End Function

Commentaire de stevebelgium le 12/05/2003 09:02:53

Yo , warny !

Cool ta fonction ! Encore plus facile :-) !

Commentaire de HeXoR le 12/05/2003 10:49:46

Je vais tout de même mettre mon zip (qd j'aurai le temps) permettant de tester la fonction pour ceux qui n'ont pas le courage de le faire eux même :)

Commentaire de Warny le 12/05/2003 11:22:13

Warny -> stevebelgium
Ca ne marche pas, la fonction Split renvoi un Array() qui est incompatible avec les tableaux standards du vb.
Si je l'ai ecrit comme ça, c'est pas j'avais envie !

Commentaire de Warny le 12/05/2003 11:35:57

aurais-tu installé un sp au dela du 4 ?

Commentaire de dpouliot le 13/05/2003 19:49:17

Un Bugue. Si le texte débute par un blanc (chr(32)) les mots extraits sont décalés. Faire un ltrim avant tout tratiement.

Commentaire de Renfield le 13/05/2003 22:33:06 administrateur CS

voici ma version de cette fonction qui suscite tant de polémiques

' Projet > References > Microsoft VbScript Regular Expressions 5.5

Public Function MidMots(Str As String, lngStart As Long, Optional lngEnd As Long = 0, Optional SeparChar As String = " ") As String
    ' Start : mot par lequel on commence (min = 1 )
    ' End : Nombre de mots a recuperer
    ' Separchar : caractere de separation a utiliser en sortie
    
    Dim REG As New RegExp ' objets necessaires au parsing
    Dim Matches As MatchCollection
    
    REG.Global = True ' effectuer des recherches multiples
    'expresion reguliere , non parfaite et certainement perfectionnable , liste les caracteres de separation
    REG.Pattern = "[^ ,.;%:!?+-=/\([)]}{|&<>* ""']+"
    
    'decoupe les mots
    Set Matches = REG.Execute(Str)
    If Matches.Count = 0 Then Exit Function 'sort si aucun mot trouvé
  
   'on coupe tout , pour et on les recolle comme il faut
    For a = lngStart - 1 To IIf(lngEnd = 0, Matches.Count - 1, lngEnd - 1)
        MidMots = IIf(MidMots <> vbNullString, MidMots & SeparChar, vbNullString) & Matches.Item(a)
    Next a
End Function