Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Modification d'un champ dans une requête

Modification d'un champ dans une requête

16 réponses
Avatar
Annie
Bonjour.. voici ma question:

J'ai un champs dans ma requ=EAte qui contient beaucoup=20
d'information :

00201=B0=0684657 0050 00102=B0=03ID=B0=03IN Div. Dept Serv.ACTIVITY=B0
OUT=B0=04ID IN

J'aimerais avoir ces informations s=E9par=E9es.

No employe: 00201
No Compagnie: 84657
Service: 0050

Comment est-ce que je peux s=E9parer toutes ces=20
informations?

Merci, Annie.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Annie.
Vous êtes supers!!!!

Annie.


-----Message d'origine-----
A partir de demain, tu prends les questions paires et
moi les impaires ! ! !

! ! !

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"hm15" a écrit dans le
message de

news:
Hello Raymond,

on s'est croisé (je croyais que tu dormais ;-)
Je pense qu'Annie ne peut pas louper sa réponse cette
fois !!



Annette
-------------------------------------------------------
-------------------


-



.




Avatar
Raymond
Bonsoir.

ce sont des délimiteurs ou simplement des caractères parasites ? Sont-ils
toujours les mêmes ou jamais les mêmes ? y-a-til toujours le même nombre de
caractères ?

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Annie" a écrit dans le message de
news:2d8f101c394c3$75d89e50$
Bon finallement, ce n'est pas toute à fait cela: Voici,

Comme dans l'exemple ci-bas, j'ai plusieur délimiteur:

° ° * ³

et d'autres..

comment puis-je obtenir les informations qui sont entre
ces délimiteurs?
Avatar
Anor
Bonjour

Annie a confié :
| Bon finallement, ce n'est pas toute à fait cela: Voici,
|
| Comme dans l'exemple ci-bas, j'ai plusieur délimiteur:
|
| ° ° * ³
|
| et d'autres..
|
| comment puis-je obtenir les informations qui sont entre
| ces délimiteurs?
|
| Merci encore la "gang" je ne sais pas ce que je ferais
| sans vous...!!!

Si les données sont toujours au même endroit,
il suffit de déterminer la position des caractères à extraire avec la fonction MID

Dans le cas contraire, c'est plus compliqué.
Je me suis amusé à faire une petite fonction, mais attention, c'est plutôt tordu.
On notera dans la première ligne d'extraction l'initialisation de la variable statique IntDepart
à 0
grace à la présence du paramètre VarDepart : ici j'ai mis True, mais on aurait pû mettre
n'importe quoi d'autre : False, "99","zz","coincoin","init", "RAZ", etc....

puisque ce qui compte, c'est la présence ou l'absence de ce paramètre dans les extracts
suivantes :

Option Compare Database
Option Explicit


Function ExtractDelim(strLine As String, _
strDelimDebut As String, _
strDelimFin As String, _
Optional VarDepart As Variant) As String
Static IntDepart As Integer
Dim IntLongueur As Integer

If Not IsMissing(VarDepart) Then
IntDepart = 1
End If


IntDepart = InStr(IntDepart, strLine, strDelimDebut) + Len(strDelimDebut)
IntLongueur = InStr(IntDepart, strLine, strDelimFin) - IntDepart
ExtractDelim = Mid(strLine, IntDepart, IntLongueur)
End Function

Sub test()
Dim strTest As String
strTest = "°00197°8457 0003 00105°ID°IN Div. Dept Serv.ACTIVITY°OUT°ID IN°"

Debug.Print ExtractDelim(strTest, "°", "°", True)
Debug.Print ExtractDelim(strTest, "°", " ")
Debug.Print ExtractDelim(strTest, " ", " ")
Debug.Print ExtractDelim(strTest, " ", "°")
Debug.Print ExtractDelim(strTest, "°", "°")
Debug.Print ExtractDelim(strTest, "°", " ")
Debug.Print ExtractDelim(strTest, " ", " ")
Debug.Print ExtractDelim(strTest, " ", " ")
Debug.Print ExtractDelim(strTest, " ", ".")
Debug.Print ExtractDelim(strTest, ".", "°")
Debug.Print ExtractDelim(strTest, "°", "°")
Debug.Print ExtractDelim(strTest, "°", " ")
Debug.Print ExtractDelim(strTest, " ", "°")
End Sub


Voilà, j'espère avoir réussi l'examen de passage suite à ce "défi" ;-))


--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
Avatar
Raymond
Bonjour.

J'ai ré-installé mesnews pour voir. Il est plus complet que OE surtout en
stats qui n'existent pas sur OE, mais il est moins confortable pour les
opérateurs habitués au design office. Dans les messages postés ce mois-ci il
n'y en a que 10 sur 2563 qui sont partis par mesnews (dont toi). ce lecteur
est vraiment très peu utilisé.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"lolo" a écrit dans le message de
news:
Il se trouve que "hm15" a formulé :
. Utilise un
lecteur de news digne de ce nom comme
MesNews plutot :-)

http://mesnews.no-ip.com/lien-exe.php?quoi¬cueil


--
lolo
There are 10 types of people in the world... those who understand
binary and those who don't.




Avatar
lolo
C'est un logiciel récent, donc c'est normal qu'il soit peu diffusé à
l'heure actuelle
c'est un logiciel qui est en pleine évolution (je l'utilise depuis 1
mois environ et j'ai connu 3 versions de mémoire), mais je crois que le
rythme va ralentir car l'auteur est pris par son boulot en ce moment
ce que j'apprécie dans MesNews, c'est le quotage en couleurs et leur
limitation au nombre voulu, ce sont la présence des X-Faces(peu
utilisés dans le monde windows malheureusement) qui égayent un peu le
triste usenet, les smileys, les différents modes de synchronisation des
forums, les alertes sonores sur mes posts, les signatures en partie
aléatoires (avec les citations), je n'utilise pas les plugs ins par
contre
C'est bien simple, je n'ai plus voulu avoir affaire à un autre logiciel
après quelques jours d'utilisation :-)
ps: ne pas hésiter à poser des questions sur le forum de MesNews si tu
n'arrives pas à faire quelque chose, la solution n'est jamais loin


--
lolo
« Il n'est pas d'individu plus fatalement malavisé que celui qui
consume la plus grande partie de sa vie à la gagner. »
Henry D. THOREAU : La vie sans principes.
Avatar
Raymond
Je vais essayer de marcher en parallèle pendant quelques jours.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"lolo" a écrit dans le message de
news:
C'est un logiciel récent, donc c'est normal qu'il soit peu diffusé à
l'heure actuelle
c'est un logiciel qui est en pleine évolution (je l'utilise depuis 1
mois environ et j'ai connu 3 versions de mémoire), mais je crois que le
rythme va ralentir car l'auteur est pris par son boulot en ce moment
ce que j'apprécie dans MesNews, c'est le quotage en couleurs et leur
limitation au nombre voulu, ce sont la présence des X-Faces(peu
utilisés dans le monde windows malheureusement) qui égayent un peu le
triste usenet, les smileys, les différents modes de synchronisation des
forums, les alertes sonores sur mes posts, les signatures en partie
aléatoires (avec les citations), je n'utilise pas les plugs ins par
contre
C'est bien simple, je n'ai plus voulu avoir affaire à un autre logiciel
après quelques jours d'utilisation :-)
ps: ne pas hésiter à poser des questions sur le forum de MesNews si tu
n'arrives pas à faire quelque chose, la solution n'est jamais loin


--
lolo
« Il n'est pas d'individu plus fatalement malavisé que celui qui
consume la plus grande partie de sa vie à la gagner. »
Henry D. THOREAU : La vie sans principes.



1 2