Discussion :

[bestall666]

Bonsoir tout le monde !!

J'ai dans un logiciel de vidéothèque une table dans le titre est stocké de la façon suivante

titrefilm (article)

Exemple

12 TRAVAUX D'ASTÉRIX (LES)

Comment faire pour récupérer le titre sans l'article dans une requete ??

Merci d'avance

Bestall666

[keita]

essai ceci:

Code :

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

Droite("MaChaine";Len(MaChaine)-5)

dans une colonne de ta requete qui doit comporter titrefilm (article) comme col deja.
MaChaine c'est titrefilm (article)
j'espere que ça marchera
@+
Edit01: ça serait bien mieux par le code; car cet ex ne marche qu'avec un article de long=3

[bestall666]

essai ceci:

Code :

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

Droite("MaChaine";Len(MaChaine)-5)

dans une colonne de ta requete qui doit comporter titrefilm (article) comme col deja.
MaChaine c'est titrefilm (article)
j'espere que ça marchera
@+

Tout d'abord merci de ta réponse

J'ai effectivement pensé à la fonction

Code :

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

Droite

Mais comment faire pour les titres qui n'ont pas d'article !!!

@+

Bestall666

[keita]

Entre temps j'avais editer mon 1er post; je disais que ça serait bien mieux avec le code.
@+

[cafeine]

Hello,

bon dans ton cas, le top c'est quand meme les regexp ... meme si ça peut paraître compliqué ça reste plus élégant d'une kyrielle de Instr() Left() ou autres aléatoires ..

Seule contrainte, ajouter la référence Microsoft VBScript Regular Expressions (dans mon cas la 5.5)

Code :

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

1
2
3
4
5
6
7
8
9
10
Function SupprParentheses(ByVal strExp As String, ByVal strPatt As String) As String
 
Dim reg As New VBScript_RegExp_55.RegExp
 
reg.Pattern = strPatt
SupprParentheses = reg.Replace(strExp, "$1")
 
Set reg = Nothing
 
End Function

et ensuite ... il faut un peu avoir tâté les regexp ... mais vite fait ça donne ça :

Code :

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

supprparentheses("douze travaux d'astérix (les)", "(.*)(\(.*\))$")

Dans ton cas, il faudra toujours utiliser le pattern suivant : "(.*)(\(.*\))$"

explications du pattern
(.*)(\(.*\))$
- le pattern délimite deux zones avec les parenthèses capturantes ()()
- chacune sera renvoyée par une variable $1 et $2 ...
- le pattern indique que la premiere partie $1 sera précèdera le signe parenthèse, on met un antislash car la parenthèse est un caractère réservé.
- .* indique que nous capturons toute chaine vide ou non ...
- le $ final indique la fin de la chaîne, donc la capture ne portera que sur une parenthèse en fin de chaîne ...

[Maxence HUBICHE]

Super Cafeine !


Voilà l'objet de ton prochain tuto : Microsoft VBScript Regular Expressions


Sinon, pour 'fignoller', ne penses-tu pas que si la fonctino faisait un petit trim sur le retour du regex, dans le cas où la chaine et la parenthèse ouvrante sont séparés d'un espace ... l'espace vire

[say]

je votes pour!!!

un tuto sur les regexp !!!

[Kloun]

Pareil, pour.
Je connais pas, mais ça à l'air utile et puissant, et les problèmes de traitements de chaînes, c'est assez courant.

[bestall666]

Hello Tous

Trop fort ce forum : j'apprends un nouveau truc !!

Jamais entendu parlé des reg patern !!!!!

Ca marche sous Access 2000 ?

J'avais effectivemùent oublié de préciser
Je teste des que possible et je vous tiens au courant

Quant au tuto, je suis à 500 % pour !!!

Merci encore

@+

Bestall

PS : C 'est normal que je ne puisse pas mettre de signature dans mon profil?