Suppression de tous les caractères entre deux caractères spéciaux

**totor92290** · 25/08/2016, 14h50

Bonjour à Tous,

J'ai cherché sur le forum une réponse à ma réponse... mais point de réponse!

J'ai un formulaire ou les utilisateurs viennent copier/coller des information de toutes formes (addresses, noms, email...)
De ce fait les champs sont en "rich text".

Ce formulaire est liée à une table.
Lorsque j'éssaye d'extraire cette table tout un tas de caractères spéciaux viennent s'ajouter correspondant aux types de caractères:
<div>
<div><font face="Courier New" size=2 color=black>
<div><font color="#ED1C24"><strong><u>
</div>
...
j'en ai déduit que tout ce qui est décrit entre "<" et ">" concerne le format.

Sur le forum j'ai trouvé ce code

Code :

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

1
2
3
4
5
6
7
Function eextract(ch)
If IsNull(ch) Then Exit Function
chl = Len(ch) 'mettre une limite necessaire a Mid
ch1 = Mid(ch, InStr(ch, ">") + 1, chl) 'on enlève ce qui prècède le 1er r
eextract = Left(ch1, InStr(ch1, "<") - 1) 'on enlève ce qui suit le 2eme
 
End Function

Avec un champ dans ma requete qui appel ces lignes

MonExt: eextract([TXXX_RoutingInstruction]![Broker Agent])

Cela fonctione il m'extrait uniquement les datas qui se trouve entre ">" et "<" sauf que...si il y a plusieurs fois le signe ">" et "<" dans le champ de depart, le champ à destination est vide.

Comment faire pour supprimer tout les caracteres se trouvant entre tous les "<" et ">" d'un meme champ?

D'avance un grand Merci

**Jean-Philippe André** · 25/08/2016, 14h54

Salut,

tu peux decouper en amont ta chaine en sous chaines en fonction de motif textuel.

Tu peux egalement tester la presence d'un autre signe < apres le >, pour voir si tu dois continuer le processus sur le reste de ta chaine...

**totor92290** · 25/08/2016, 15h20

Merci Jp

Pour le coup je n'ai rien compris... et je m'en excuse.

Mon objectif est d'avoir dans le champ destinataire de ma requete toutes les datas mais sans les caractères entre les "<" et ">"

Désolé

**Jean-Philippe André** · 25/08/2016, 15h28

hum, Un exemple concret si on part de

Code :

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

"a<bcd>e<fgh>i"

en sortie tu voudras donc

Code :

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

"bcdfgh"

ou

Code :

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

"aei"

?

**totor92290** · 26/08/2016, 10h00

Bonjour JP,
Pour
"a<bcd>e<fgh>i"

Il me faudrait

"aei"

Merci de ton support

**Jean-Philippe André** · 26/08/2016, 10h54

Salut,

dis moi si ce code te conviendrait ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function eextract(ByVal ch As String) As String
Dim deb As Integer
Dim fin As Integer
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Do Until fin = 0
ch = Left(ch, deb - 1) & Mid(ch, fin + 1)
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Loop
eextract = ch
End Function

**totor92290** · 26/08/2016, 12h02

Merci beaucoup JP

Ca fonctione.... sauf si le champ est vide il me remonte "#Error"

J'ai ajouté

Code :

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

If IsNull(ch) Then Exit Function

au code

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
Public Function eextract(ByVal ch As String) As String
Dim deb As Integer
Dim fin As Integer
 
If IsNull(ch) Then Exit Function
 
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Do Until fin = 0
ch = Left(ch, deb - 1) & Mid(ch, fin + 1)
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Loop
eextract = ch
End Function

mais celà ne fonctione pas

Qu'est ce qui coince?

Merci

**Jean-Philippe André** · 26/08/2016, 12h19

Vire le As String du type ch de la declaration

**el_slapper** · 26/08/2016, 12h31

Envoyé par jpcheck

Vire le As String du type ch de la declaration

ou alors mets eextract = "" juste avant le exit function. Comme ça, on reste en chaines de caractères.

C'est au choix, suivant la tête du reste de l'application.

**totor92290** · 26/08/2016, 14h37

A tous les deux,

Pour la modif du code

Code :

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

Public Function eextract(ByVal ch As String) As String

en

Code :

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

Public Function eextract(ByVal ch As String)

Idem : #Error

Pour la modif du code

Code :

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

If IsNull(ch) Then Exit Function

en

Code :

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

If eextract = "" Then Exit Function

et en

Code :

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

If (ch) = "" Then Exit Function

Idem: #Error

Vue d'ensemble

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
18
19
20
21
22
'Public Function eextract(ByVal ch As String) As String
Public Function eextract(ByVal ch As String)
 
 
Dim deb As Integer
Dim fin As Integer
 
'If IsNull(ch) Then Exit Function
 
'If eextract = "" Then Exit Function
 
If (ch) = "" Then Exit Function
 
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Do Until fin = 0
ch = Left(ch, deb - 1) & Mid(ch, fin + 1)
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Loop
eextract = ch
End Function

Merci d'avance pour votre aide

**Jean-Philippe André** · 26/08/2016, 14h42

Le As String dans la parenthese

Code :

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

Public Function eextract(ByVal ch) As String

**totor92290** · 26/08/2016, 15h09

Extra !!!!!!!!!!!!!!!

Ca fonctionne UN GRAND GRAND MERCI

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
Public Function eextract(ByVal ch) As String
 
 
Dim deb As Integer
Dim fin As Integer
 
If IsNull(ch) Then Exit Function
 
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Do Until fin = 0
ch = Left(ch, deb - 1) & Mid(ch, fin + 1)
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Loop
eextract = ch
End Function

**Jean-Philippe André** · 26/08/2016, 15h19

Pour info,
le type String ne peut pas prendre la valeur Null, seul le type Variant le peut, d'ou la suppression du typage de ch = ch As Variant

**totor92290** · 26/08/2016, 22h32

Jp
Je ré-ouvre

Je pensais que tout était ok
J'ai ajouté un bouton derriere lequel je fait tourner une requite ajout.

j'ai donc mon module:

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
Option Compare Database
Public Function eextract(ByVal ch) As String
 
Dim deb As Integer
Dim fin As Integer
 
If IsNull(ch) Then Exit Function
 
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Do Until fin = 0
ch = Left(ch, deb - 1) & Mid(ch, fin + 1)
deb = InStr(1, ch, "<")
fin = InStr(deb + 1, ch, ">")
Loop
eextract = ch
End Function

ensuite le code de ma requete (le code sql - je comprend pas j'utilise le wizard!)

Code :

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

1
2
3
INSERT INTO TXXX_RoutingInstructionForExtract ( [Broker Agent] )
SELECT eextract([TXXX_RoutingInstruction]![Broker Agent]) AS [Broker AgentClean]
FROM TXXX_RoutingInstruction;

et là patatra

ereur : run time error code '5' invalide procedure call or argument
et quand je fais degug la ligne suivante est surlignée en jaune

Code :

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

ch = Left(ch, deb - 1) & Mid(ch, fin + 1)

kézako?
Si tu peux jeter un oeil?

Merci

**Jean-Philippe André** · 27/08/2016, 11h49

Peut etre le cas où tu as un > sans < avant

en changeant la boucle

Code :

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

Do Until fin = 0 Or deb = 0

**totor92290** · 30/08/2016, 19h06

IMPEC!!

Encore merci

Suppression de tous les caractères entre deux caractères spéciaux

IHM

Discussions similaires

Partager

Partager