Discussion :

[binouzzz19]

Bonjour à tous,

Je bloque sur un petit dév qui semble tout bête mais qui me bloque depuis quelques heures...

J'ai une string dans lequel j'ai des mots-clés à rechercher pour récupérer ce qu'il y a derrière.
Je m'explique :

La chaine "chaineEntiere" suivante :

Code :

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

1
2
 
Dim chaineEntiere As String = "j'ai l'image suivante : <br /><img src='cid:banniere.jpg' /> et je veux récupérer le banniere.jpg. J'ai une deuxième image : <br /><img src='cid:footer.gif' /> et je veux récupérer le footer.gif."

Le but est d'embarquer ces images grâce à l'objet EmbeddedImage.
Pour cela je veux récupérer le nom de mes images dans ma "chaineEntiere".
C'est à dire pour chaque chaine "cid:" trouvée dans ma string, récupérer le nom de mon image avec l'extension derrière.

Avez-vous une idée ? J'ai pensé utilisé InStr mais je ne vois pas comment je peux faire pour en récupérer plusieurs.

Merci d'avance de votre aide.
Cordialement.

[Erwaan]

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
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim chaineEntiere As String = "j'ai l'image suivante : <br /><img src='cid:banniere.jpg' /> et je veux récupérer le banniere.jpg. J'ai une deuxième image : <br /><img src='cid:footer.gif' /> et je veux récupérer le footer.gif."
        Dim i As Integer
        For i= 1 To 2
            MessageBox.Show(Extraction(chaineEntiere, "cid:", "cid:", "' />"))
'On récupère que ce qu'il y a aprés cid: pour ne retomber sur le même résultat
            chaineEntiere = chaineEntiere.Substring(InStr(chaineEntiere, "cid:") + 1)
        Next
    End Sub
    Private Function Extraction(ByVal code As String, ByVal sRecherche1 As String, ByVal sRecherche2 As String, ByVal sRecherche3 As String) As String
 
        Dim a,b,c As Integer
'On regarde où se situe cid:
        a = code.IndexOf(sRecherche1)
'Puis, on lui ajoute sa longueur
        b = code.IndexOf(sRecherche2, a) + Len(sRecherche2)
'On recherche ' />, qui est aprés ce que tu veut extraire
        c = code.IndexOf(sRecherche3, b)
'On retourne le tout
        Return code.Substring(b, c - b)
 
    End Function
End Class

Voilà ce que je te propose

[binouzzz19]

Merci, c'est exactement comme cela que j'ai fini par procéder.

Merci quand même !

Bonne journée