Discussion :

[illight]

Bonjour,


je suis à la recherche d'un connaisseur du Regex.

Après avoir lu le super tutorial de Caféine, je n'arrive malheureusement pas à l'appliquer à mon cas.

Dans une table, j'ai des champs qui sont une chaine de caractère, mais qui ont des fois des nombres.

Par exemple, "toto 123" ou "123 totarite" ou "45897 - carotte"

Comme vous pouvez le constater :
- ces champs n'ont pas de longueur précise
- le nombre est aléatoire, tout comme la longueur du texte


Je voudrais, grâce à un regex, ne récupérer que la partie texte.
Ici, "toto", "totarite" ou "carotte".

Avec les explications de Caféine, j'ai essayé d'écrire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
reg.Pattern = "[0-9]"
MsgBox reg.Replace("123 totarite", "")

(pour faire des tests).

Malheureusement, le résultat n'est pas ce que je souhaite (il me donne "23 totarite") : il m'a juste enlevé le premier champ.

Je pensais q'un regex cherchait sur la totalité de la chaine de caractères, et remplaçait tous les caractères correspondant au Pattern, mais à priori, c'est pas le cas

Je pense qu'il faudrait que je boucle sur la chaine de caractères d'entrée, mais je ne sais pas comment m'y prendre

Quelqu'un pourrait-il m'aiguiller vers la solution ?

Je vais continuer à fouiller de mon côté

En vous remerciant par avance

[illight]

J'ai trouvé comment supprimer les chiffres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
reg.Pattern = "\d+"
MsgBox reg.Replace("123 totarite", "")

Le problème :
- il me reste l'espace
- si le lance mon programme sur ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
reg.Pattern = "\d+"
MsgBox reg.Replace("45897 - carotte", "")

Il va me donner comme résultat : "- carotte" => Il reste l'espace et le tiret.

Quelqu'un aurait une idée ?

[illight]

J'ai trouvé mais j'ai encore un souci.

Je vous montre d'abord la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Txt As String
reg.Pattern = "[a-z,A-Z]+"
Set a = reg.Execute("123 totarite")
If a.Count > 0 Then
Txt = a(0)
Else
Txt = ""
End If
MsgBox Txt

Ce que j'aie n fait oublier de dire, c'est qu'il est aussi possible d'avoir une chaine de caractère séparé par un espace. A ce moment-là, ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Txt As String
reg.Pattern = "[a-z,A-Z]+"
Set a = reg.Execute("123 la totalité")
If a.Count > 0 Then
Txt = a(0)
Else
Txt = ""
End If
MsgBox Txt

Me sort juste le mot "la". J'ai essayé de mettre "txt = a(0) & a(1)", mais ça me sort une erreur.

Une idée ?

[ClaudeLELOUP]

Bonjour,

Vois si la pièce jointe peut t'aider.

N.B. Tu peux la lire avec Word.