Discussion :

[Miska59]

Bonjour,
je créer un programme pour telecharger des fonds d’écran sur ce site mais j'ai un petit problème pour recupere le nom du fichier dans alt.
voici le code source de l'image :

<img src="https://img.hebus.com/hebus_2020/03/22/tn/b1584898509_25175.jpg" alt=" Bateaux Image sans titre N°477597" title="" class="tn" width="240" height="176">

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Loadparge(URL As String)
        Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
        Dim response As System.Net.HttpWebResponse = CType(request.GetResponse, Net.HttpWebResponse)
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim resourcecode As String = sr.ReadToEnd
        Dim i As New System.Text.RegularExpressions.Regex("http.*(jpg)", RegexOptions.IgnoreCase)
        Dim matches As MatchCollection = i.Matches(resourcecode)
        For Each itemcode As Match In matches
            RichTextBox1.Text = itemcode.Groups(0).Value & " " & itemcode.Groups(2).Value
        Next
    End Sub

Pouvez-vous m'aider a recuperer le lien de l'image avec le nom de l'image ?
exemple : https://img.hebus.com/hebus_2020/03/...8509_25175.jpg Bateaux Image sans titre N°477597
merci,

[Miska59]

Bonjour,

j'ai trouver la solution a mon problème avec de nombre essayer j'ai résolu mon problème :


mon 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
16
17
18
Dim list() As String = {"*_*", "...", ":", "!!!!!", ".2", "\", "/", "*", "?", "<", ">", "|"}
For Each itemcode As Match In matches
            imgList.Images.Add(ChargeImage(itemcode.Groups(1).Value))
            Dim valeur As String = itemcode.Groups(4).Value
            If valeur.IndexOf("Image sans titre") <> -1 Then
                valeur = valeur.Substring(0, valeur.LastIndexOf("Image sans titre"))
            Else
                For a = 0 To list.Length - 1
                    valeur = valeur.Replace(list(a), "")
                Next
            End If
            Dim lvi As New ListViewItem()
            lvi.ImageIndex = index
            index += 1
            lvi.SubItems.Add(valeur)
            lvi.SubItems.Add(itemcode.Groups(1).Value)
            ListView1.Items.Add(lvi)
        Next

j'arrive pas a enlever les caractère dans listview1....SubItems(1).Text ( voir image par une flèche rouge)
pouvez-vous me dire comment faire au chargement de la page , on vois plus les caractère car je peux pas enregistrer avec des caractère spéciaux.
Merci de votre aide.