Discussion :

[lionski]

slt,
j'aimerai savoir comment faire pour extraire juste les termes avant une virgule dans une phrase? j'ai essayé ce code, il fonctionne mais s'il n'y a pas de virgule dans la phrase il me donne #Erreur?? le code est en SQL dans une reqûete.

famille: Gauche([DESCRIPTION (PL)];(DansChaîne(1;[DESCRIPTION (PL)];",")-1))

exemple :

Phrase1: ordinateur, portable ==> résultat du code =ordinateur
Phrase2: ordinateur ==> résultat du code = #Erreur

merci

[User]

tu peux essayer ca:

Code :

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

1
2
3
4
5
6
7
8
9
Public Function Extract_chaine(chaine As String) As String
 
   If InStr(chaine, ",") <> 0 Then
   Extract_chaine = Left(chaine, InStr(chaine, ",") - 1)
   Else
   Extract_chaine = chaine
   End If
 
End Function

ou avec Split

@+

[polianita]

Essayer ça :
SUBSTRING_INDEX(chaine, sschaine[, index])
dans sous chaine tu mets SUBSTRING_INDEX(chaine,",", 1)
bon courage

[lionski]

Essayer ça :
SUBSTRING_INDEX(chaine, sschaine[, index])
dans sous chaine tu mets SUBSTRING_INDEX(chaine,",", 1)
bon courage

STP, elle est ou sous chaine, peux-tu m'exliquer un peu parce que je dois mettre le code dans une requête ??

[lionski]

tu peux essayer ca:

Code :

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

1
2
3
4
5
6
7
8
9
Public Function Extract_chaine(chaine As String) As String
 
   If InStr(chaine, ",") <> 0 Then
   Extract_chaine = Left(chaine, InStr(chaine, ",") - 1)
   Else
   Extract_chaine = chaine
   End If
 
End Function

ou avec Split

@+

Est ce que je peux utiliser ce code dans une requête, parce que je j’ai pas de formulaire dans ma base pour l’instant c’est juste une requête ...

[User]

Oui si tu es sous Access
la fonction dans 1 module et après,
En utilisant QBE:

Code :

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

1
2
3
4
5
6
7
8
Champ2:Extract_chaine([Champ1])
 
ou en sql:
 
Select ..., Extract_chaine([Champ1]) As Champ2
From ..
 
etc..

sinon, tu peux aussi utiliser:

Code :

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

IIf(InStr([Champ1],",")=0,[Champ1],Left([Champ1],InStr([Champ1],",")-1)) AS Champ2

@+

[lionski]

Oui si tu es sous Access
la fonction dans 1 module et après,
En utilisant QBE:

Code :

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

1
2
3
4
5
6
7
8
Champ2:Extract_chaine([Champ1])
 
ou en sql:
 
Select ..., Extract_chaine([Champ1]) As Champ2
From ..
 
etc..

sinon, tu peux aussi utiliser:

Code :

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

IIf(InStr([Champ1],",")=0,[Champ1],Left([Champ1],InStr([Champ1],",")-1)) AS Champ2

@+

ca fonctionne, merci, je n'ai jamais pensé d'utiliser un module, jajaj mais on apprend toujours.