Bonjour,
j'ai une richetextbox contenant du code html,
et j'aimerai pouvoir extraire toutes les liens url présent dans la richtextbox.
Est ce que c'est possible car je n'ai aucune idée de comment faire?
Merci d'avance
Bonjour,
j'ai une richetextbox contenant du code html,
et j'aimerai pouvoir extraire toutes les liens url présent dans la richtextbox.
Est ce que c'est possible car je n'ai aucune idée de comment faire?
Merci d'avance
l'algo se présenterait selon moi de la façon suivante :
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 **************************** Variable position Variable texte Tantque position < tailletotale(texte) RechercheEtCopie position,texte Fin Tantque **************************** Fonction RechercheEtCopie(Byref positionInitiale,Byref Texte) Variable Debut Variable Fin recherche "<a" = Debut recherche "a>" = Fin CopieOùTuVeux Texte(Debut,Fin) positionInitiale = Fin + 1 Fin Fonction
Ca m'a pas bien l'air compliqué, je crois que le rtb propose un .selText et un .Find bien pratiques.
arf je me suis masl exprimer, c'est un code html.
MAis les liens ne sont pas marqué en tant que lien, il sont juste ecrit dans le texte de la forme http://.......
le html c'est du texte.
Pour la recherche, il suffit alors de repérer les bornes "http://" et ".com" ou ".fr" ...
Je mets le tout dans un fichier texte et je recherche:
Voici le 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60 Open App.Path & "/ok.txt" For Input As #1 While Not EOF(1) Input #1, a$ ok = 0 ligneapres = a$ While InStr(ligneapres, "http://") > 0 existe = InStr(ligneapres, "http://") If existe > 0 Then ligneapres = Mid(ligneapres, existe) existe1 = InStr(ligneapres, " ") existe2 = InStr(ligneapres, "'") existe3 = InStr(ligneapres, """") existe4 = InStr(2, ligneapres, "http://") If existe1 = 0 Then existe1 = Len(ligneapres) If existe2 = 0 Then existe2 = Len(ligneapres) If existe3 = 0 Then existe3 = Len(ligneapres) If existe4 = 0 Then existe4 = Len(ligneapres) If existe1 <= existe2 And existe1 <= existe3 And existe1 <= existe4 Then existe = existe1 If existe2 <= existe3 And existe2 <= existe1 And existe2 <= existe4 Then existe = existe2 If existe3 <= existe1 And existe3 <= existe2 And existe3 <= existe4 Then existe = existe3 If existe4 <= existe1 And existe4 <= existe2 And existe4 <= existe3 Then existe = existe4 If existe <> Len(ligneapres) Then ligneavant = Left(ligneapres, existe - 1) ligneapres = Mid(ligneapres, existe) Else ligneavant = Left(ligneapres, existe) ligneapres = Mid(ligneapres, existe + 1) End If If List1.ListCount - 1 <= 0 Then List1.AddItem (ligneavant) MsgBox ligneavant Else For i = 0 To List1.ListCount - 1 If List1.List(i) <> ligneavant Then ok = ok + 0 Else ok = ok + 1 End If Next i If ok = 0 Then List1.AddItem (ligneavant): MsgBox ligneavant End If End If Wend Wend Close #1
Et il y a une question ou c'est résolu???
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager