Discussion :

[benmacker]

bonjour,

j'ai un champ contenant des caractères alpha-numériques
je voudrais en extraire la chaîne de caractères alpha commençant à gauche jusqu'à ce que on rencontre un caractère numérique.
ex à partir de "Poudre de perlinpinpin 250 gr" n'en retirer que "Poudre de perlinpinpin"
j'ai bien fait des essais avec INstr mais je n'arrive pas à la bonne syntaxe

merci d'avance pour votre aide

[Jean-Philippe André]

salut,
idée à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub piou()
Dim tmp As String
Dim i As Integer
Dim tmpi As Integer
tmp = "Poudre de perlinpinpin 250 gr"
For i = 0 To 9
    tmpi = InStr(1, tmp, CStr(i))
    tmp = Left(tmp, IIf(tmpi = 0, Len(tmp), tmpi - 1))
Next i
Debug.Print Trim(tmp)
End Sub

[Tofalu]

salut,
idée à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub piou()
Dim tmp As String
Dim i As Integer
Dim tmpi As Integer
tmp = "Poudre de perlinpinpin 250 gr"
For i = 0 To 9
    tmpi = InStr(1, tmp, CStr(i))
    tmp = Left(tmp, IIf(tmpi = 0, Len(tmp), tmpi - 1))
Next i
Debug.Print Trim(tmp)
End Sub

Elle est sympa cette idée

[benmacker]

merci pour votre aide;
c'est vrai que ça fonctionne bien comme cela mais je m'attendais plutôt à une réponse du genre

Code :

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

Gauche([libellé];DansChaîne(1;[libellé];"9")-1)

ou j'aurais pû remplacer le "9" par "une valeur comprise entre 0 et 9"
mais je ne sais pas si cette fonction (InStr ou DansChaine) accepte ce genre de paramètre ... si quelqu'un pouvait m'éclairer !

[Jean-Philippe André]

salut,
ben tu adaptes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function piou(strinput As String) As String
Dim tmp As String
Dim i As Integer
Dim tmpi As Integer
tmp = strinput
For i = 0 To 9
    tmpi = InStr(1, tmp, CStr(i))
    tmp = Left(tmp, IIf(tmpi = 0, Len(tmp), tmpi - 1))
Next i
piou =  Trim(tmp)
End Function

ce qui dionnera dans ta requete

Code SQL :

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

SELECT PIOU(monchamptexte) FROM MaTable;

[Tofalu]

mais je ne sais pas si cette fonction (InStr ou DansChaine) accepte ce genre de paramètre ... si quelqu'un pouvait m'éclairer !

La fonction InStr cherche une valeur et non un domaine de valeur. La solution de jpcheck semble la meilleure et avec des performances exceptionnelles

[LE VIEUX]

salut tout le monde,
Si je peux me permettre car il y a 2 super expert sur ce post qui risquent de me mettre à la retraite si je me plante et pour le peu d’intérêt que cela représente !!! :
En fait en précisant ton problème
citation :

ou j'aurais pû remplacer le "9" par "une valeur comprise entre 0 et 9"

Si tu as effectivement le renseignement du 1er chiffre dans un contrôle existant, car si tu dois le saisir je ne vois pas l’intérêt, ce que tu gagneras dans le calcul de la requête qui est infinitésimal, tu le perdras largement dans la saisie avec en plus le risque d’erreur.

Mais soit pour info dans peut être un autre contexte au cas où ça existe:
Si le 1er chiffre est dans un champ texte :

Code :

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

Extract1: Gauche([Libellé];DansChaîne([Libellé];[TonChampN°]Texte)-1)

Si le 1ere chiffre est dans un champ numérique :

Code :

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

Extract2: Gauche([Libellé];DansChaîne([Libellé];CChaîne([TonChampN°]Numérique))-1)

mais je confirme et apprécie la solution jpcheck sympa,efficace .

[benmacker]

ok, merci à tous pour ces infos
je vais me débrouiller avec ça

a+