Discussion :

[Cyphen]

Voila... J'ai un problème simple (a priori) dont je n'arrive pas à trouver la réponse.

J'ai une zone de texte qui prend la valeur d'une variable (changeante suivant une selection).

La variable est une chaine de caractère de cette forme : XX-yy (ZZZ)

J'aimerai que lors de la copie, la partie entre ( ) soit retirée de la chaine de caractères.

Merci d'avance.

[temar]

Salut,

En 5 secondes et 3 clics, j'ai trouvé ça dans la Faq :

http://access.developpez.com/faq/?pa...erChaineCaract

A+

[Cyphen]

Au temps pour moi... Mais en tout cas ca résoud pas mon problème. Pas besoi n d'être sec d'ailleurs. J'ai toujours pour mes questions cherché dans la FAQ avant de poster.

Voici mon code:

Code :

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

1
2
3
If Key_NivClik = 3 Then
     Me.PNTxt = Me.xTree.SelectedItem
   End If

Si le curseur est au niveau 3 de mon arborescence, il retourne sur mon champ PNTxt l'objet selectionné. Je n'arrive pas à voir comment je pourrais insérer un contrôle là dedans.

Sachant comme je l'ai dit que la forme peut être:

X-YY (ZZZZZ)

Sachant que X peut être soit composé d'un, deux ou trois caractères.
YY sera toujours deux chiffres.

Et le nombres de caractères entre () peut varier.

Comment puis-je définir une variable de type String, lui donner la valeur de cette objet selectionné et ensuite retirer la partie entre (). A partir des fonctions de la FAQ je ne vois pas...

D'ou ma question.

[Ericka]

Salut Cyphen,

Je suis également débutante et j'ai rencontré le même problème que toi!

Code :

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

La variable est une chaine de caractère de cette forme : XX-yy (ZZZ)

D'après ce que tu écris, ta parenthèse fermante se trouve toujours en fin de chaîne!
Ce que j'ai fait, c'est que j'ai utilisé la fonction InStr qui me donne la position de la parenthèse ouvrante dans la chaîne, puis avec la fonction left, je n'ai conservé que les caractères se trouvant à gauche de cette parenthèse ouvrante!

Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
rst.MoveFirst
While Not rst.EOF
  rst.Edit
  
  If Not IsNull(rst.Fields(OldFld)) Then
         Position = InStr(rst.Fields(OldFld), "(")
Else: Position = 0
  End If
  
  If Position <> 0 Then
     rst.Fields(NewFld) = Left(rst.Fields(OldFld), Position - 1)
     Else: rst.Fields(NewFld) = rst.Fields(OldFld)
  End If
  
  rst.Update
  rst.MoveNext
Wend

Il y a peut être plus simple mais ça fonctionne!
En espérant avoir pu t'aider!!!

Céline

[pc75]

Bonjour,

Utilise les fonctions suivantes :

Instr(MaChaine, "(") te donnera la 1ère position de la parenthèse dans MaChaine en partant du début

InstrRev(MaChaine, "°") te donnera la 1ère position de la parenthèse dans MaChaine en partant de la fin

Mid(MaChaine, pos1, pos2) te donnera la partie de MaChaine comprise entre Pos1 et Pos2

PS : Il y a surement des +1 ou -1 à utiliser pour les positions

[Cyphen]

Voila ce que j'ai essayé de faire


Sachant que MyText a pour valeur le nom de l'objet selectionné dans l'arborescence.

Code :

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

1
2
3
4
5
6
7
8
 Dim Pos As Integer
   Dim Pos1 As Integer
   Dim MyStr As String
 
   MyStr = Me.MyText.Value
   Pos = Len(MyStr)
   Pos1 = InStr(MyStr, "(")
   Me.PNTxt = Left(MyText, Pos - Pos1)

PNTxt est mon champ final.

Pourtant, la valeur d'un champ n'est pas simplement un String ? Je comprend pas ce qui ne marche pas... J'avoue que de faire de l'ACCESS depuis 7h ce matin y est peut être pour quelque chose aussi :/

[Ericka]

Si tu as une chaîne du type : "abcdefg-hi(treyut)"
D'après ton code

Code :

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

1
2
3
Pos = Len(MyStr)
   Pos1 = InStr(MyStr, "(")
   Me.PNTxt = Left(MyText, Pos - Pos1)

Il me semble que pos = 18 et pos1 = 11

Code :

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

D'où left(MyText, pos - pos1)=left(MyText, 7)

Ce qui te rendera en résultat : "abcdefg"

Essaie plutôt

Code :

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

left(MyText, pos1 - 1)

[Cyphen]

Bien... Mes problème était manifestement des problèmes de positionnement de fonction et de mauvais choix de Pos.

Voila le résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Display according to selected node
 
    Dim MyStr As String
    Dim Pos As Integer
 
   If Key_NivClik = 3 Then
     Me.MyText = Me.ocxTree.SelectedItem
        If IsNull(MyStr) Then
    Exit Sub
   Else
    MyStr = Me.MyText.Value
    Pos = InStr(MyStr, "(")
    Me.PNTxt = Left(MyStr, Pos - 2)
   End If
   End If

Merci encore...