instruction instr() sur me.modifiable [Résolu]

[emulamateur]

Bonjour,

Je cherche à connaître la position de la troisième "\" dans une chaine de caractères.

Je pensais que cela fonctionnerait en faisant :

Code :

instr(me.modifiable.x,"\")+2

Mais cela me sort toujours 1 alors que cela devrait me sortir 10 (le champs contient \\serveur\program\ ...)

Il doit y avoir un pb de guillememets.

Quelqu'un pourrait-il m'aider sur cette syntaxe ?

Merci

[ClaudeLELOUP]

Bonjour,

J'ignore si une syntaxe native existe.

Voici une fonction qui devrait rencontrer ton besoin :

[emulamateur]

Merci, je vais tester.

Par contre, pour l'avoir testé dans access, la syntaxe suivante fonctionne :

Code :

instr("duduche","u")+1

Je veux simplement () remplacer mon "duduche" par un "me.modifiable12.column(1)" mais j'ai essayé avec les syntaxes suivantes du type """& x &"""", chr(34) & x & chr(34), etc ...

Cela ne fonctionne pas

[ClaudeLELOUP]

instr("duduche","u")+1

est une syntaxe correcte... mais ton résultat sera 3.

La traduction française est :

"la position occupée par u dans duduche" ----> 2 et, à ce résultat ajouter 1.


Et , si "duduche" est le contenu de me.modifiable12.column(1) alors

instr(me.modifiable12.column(1),"U") renvoie 3.

Avec la fonction que je t'ai proposée :
- si "duduche" est le contenu de me.modifiable12.column(1)
- et que tu cherches la position du deuxième "u"

PosDuXieme(me.modifiable12.column(1),"u",2) te renvoie 4.

[emulamateur]

Bonsoir (et merci)

J'ai essayé ta fonction mais elle ne fonctionne pas chez moi.

En fait, la valeur qui m'est retournée est celle juste avant la parenthèse de droite.

Ainsi, au lieu d'avoir "PosDuXieme(me.modifiable12.column(1),"u",2) te renvoie 4", cela me retourne 2 ... et pas 4...

[ClaudeLELOUP]

Oooops !

Il faut :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function PosDuXieme(Texte As String, Signe As String, Xieme As Integer) As Integer
'    ? PosDuXieme("\\serveur\program\","\",3)  ---> 10
Dim i As Integer, j As Integer, k As Integer
i = 1
 
Do
  j = InStr(i, Texte, Signe)
    If j = 0 Then
       Exit Do
    Else
       k = k + 1
       If k = Xieme Then Exit Do
    End If
  i = j + 1
Loop
PosDuXieme = j    ' !!!!  j et non k !!!!
 
End Function

Désolé pour ce contretemps.

[emulamateur]

Merci .... !!!!!

Cela fonctionne parfaitement ....

Et aucun problème pour le contretemps car, sans vous, je n'aurai pas avancé d'un iota sur ce problème !

Merci et une balise résolue !