Discussion :

[Scriptman]

Bonsoir

J'aimerais avoir de l'aide pour extraire une chaine de caractere
J'aimerais récupérer dans une variable code , le code utilisateur sur une imprimante
<TD>headers=code>1500</TD></TD>
Je souhaiterai récupérer la valeur 1500 située entre > et <

Je voudrais recupérer l'extrait de ma chaine de caractere a près le caractere de départ ">" et le caractere de fin "<"


Merci d'avance

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim DebutOu , FinOu
Dim BaliseDebut, BaliseFin
Dim RechercherDans, textRecupe
 
RechercherDans = "<TD>headers=code>1500</TD></TD>"
BaliseDebut = "code>"
BaliseFin = "</TD>"
 
DebutOu = 1
DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
DebutOu = DebutOu + Len(BaliseDebut)
FinOu = DebutOu
FinOu = InStr(FinOu, RechercherDans, BaliseFin)
MsgBox Mid(RechercherDans, DebutOu, FinOu - DebutOu)

en mettant ce que tu veux dans BaliseDebut et BaliseFin, tu peux adapter pour d'autres cas, mais un seul caractére à rechercher ne me semble pas suffisant car dans ton cas il y à 2 > avant la donnée que tu desire recuperer, s'est pourquoi j'ai mis code> et non pas seulement >.

[soron59]

Bonjour,

Merci ton code , par contre je souhaite savoir si il est possible de faire ça il sont n'as a plusieur fois les méme chaine de caractère et non qu'il s'arret des la premiers réponse

Merci pour ta réponse

[ProgElecT]

Salut
Pour récupérer plusieurs extraits, il te faut faire une boucle.

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
23
24
Dim DebutOu, FinOu
Dim BaliseDebut, BaliseFin
Dim RechercherDans, textRecupe
 
RechercherDans = "<TD>headers=code>1500</TD></TD>" _
        & vbCrLf & "<TD>Autre=code>4567</TD></TD>" _
        & vbCrLf & "<TD>Encore=code>Dernier</TD></TD>"
 
BaliseDebut = "code>"
BaliseFin = "</TD>"
DebutOu = 1
 
Do
    DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut)
    If DebutOu = 0 Then Exit Do
 
    DebutOu = DebutOu + Len(BaliseDebut)
    FinOu = DebutOu
    FinOu = InStr(FinOu, RechercherDans, BaliseFin)
    MsgBox Mid(RechercherDans, DebutOu, FinOu - DebutOu)
    DebutOu = FinOu + Len(BaliseFin) ' pour passer à la suite
Loop
 
MsgBox "Fin de la recupération "