Discussion :

[hugoclo]

Bonjour,
j'ai récupérer un code afin de gérer mes divx. Mais voila j'ai un message d'erreur sur cette ligne:

Code :

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

long2 = InStr(long1, Text, "allocine.fr/acmedia/skin/allocinev5/habillage/degrade_recherche.gif", vbTextCompare)

Voici le code complet:

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Public Sub rafraichir_allocine(Text)
 
Dim j, y  As Byte
Dim variable, code, tab_nom(30), tab_code(30), annee As String
Dim existe, long1, long2 As Single
 
'Mise à 0 de la liste
List1.ListItems.Clear
 
long1 = InStr(1, Text, ".allocine.fr/acmedia/skin/allocinev5/habillage/degrade_bloccine.gif", vbTextCompare)
long2 = InStr(long1, Text, "allocine.fr/acmedia/skin/allocinev5/habillage/degrade_recherche.gif", vbTextCompare)
 
 
 
If long1 < long2 And long1 > 1 Then
    Text = Mid(Text, long1, long2 - long1)
 
    j = 1
 
    existe = InStr(1, Text, "fichefilm_gen_cfilm=", vbTextCompare)
 
    'extrait les lignes qui des films
    While existe <> 0
 
        Text = Mid(Text, existe)
 
        'extrait le code du film
        variable = Mid(Text, 21, 9)
        code = ""
        For y = 1 To 8
            If IsNumeric(Mid(variable, y, 1)) Then
                code = code & Mid(variable, y, 1)
            End If
        Next y
 
        tab_code(j) = code
 
 
 
        'extrait le nom du film
 
        long1 = Len(code) + 42
        long2 = InStr(Text, "</a>")
 
        tab_nom(j) = Mid(Text, long1, long2 - long1)
        tab_nom(j) = Replace(tab_nom(j), "<b>", "")
        tab_nom(j) = Replace(tab_nom(j), "</b>", "")
        tab_nom(j) = Replace(tab_nom(j), "</a>", "")
 
        'extrait l'année du film
 
        annee = ""
        long1 = InStr(1, Text, "fichefilm_gen_cfilm=", vbTextCompare)
        If long1 > 1 Then
            annee = Mid(Text, 1, long1)
        End If
 
        long1 = InStr(1, Text, "(19", vbTextCompare)
        long2 = InStr(1, Text, "(20", vbTextCompare)
 
        If long1 = 0 And long2 = 0 Then
            annee = ""
            Else
 
            If long1 = 0 Then
            long1 = long2 + 3
            End If
            If long2 = 0 Then
            long2 = long1 + 3
            End If
 
            If long1 < long2 Then
                annee = Mid(Text, long1, 6)
                Else
                annee = Mid(Text, long2, 6)
            End If
 
        End If
 
 
        'rentre les noms des films et son code dans la liste
        If tab_code(j) <> "" Then
 
        List1.ListItems.add , , tab_nom(j) & " " & annee
        List1.ListItems(List1.ListItems.Count).ListSubItems.add , , tab_code(j)
 
        End If
 
        j = j + 1
 
    Text = Mid(Text, 200)
    existe = InStr(1, Text, "fichefilm_gen_cfilm=", vbTextCompare)
 
Wend
End If
 
 
 
If List1.ListItems.Count = 0 Then
    List1.ListItems.add , , "aucun film trouvé essaye de rafraichir ou de changer de nom"
    OK.Enabled = False
    Else
    OK.Enabled = True
End If
 
 
End Sub

La variable "text":

Code :

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

Text = Inet1.OpenURL("http://www.moviecovers.com/multicrit.html?titre=" & film_en_cours.Caption & "&slow=1&listes=1")

Si quelqu'un a une idée?

[DAUDET78]

Et si donnais un type à ta variable Text ?

Code :

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

Public Sub rafraichir_allocine(Texte as String)

PS, je n'aime pas utiliser un mot clé "Text" comme nom de variable. Utilise "Texte" ... Ca coute rien et ça peut éviter gros !

[SfJ5Rpw8]

Et si tu affiche le contenu de ta variable text ?

Code :

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

msgbox text

..





PS: pas terrible tes déclaration de variable .. déjà Text je ne suis pas sur qu'il soit dans la liste des mots réservés VB .. mais ... doit pas être loin ..
ensuite, quand tu déclare une variable il faut répéter le type pour chacune des variables :

Code :

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

Dim existe, long1, long2 As Single

ici seule la variable Long2 est déclarée de type Single, les autres ben c'est le type Variant qui est utilisé ...

[iclic]

Bonjour,

C'est bien sûr que ta variable long1 vaut 0.: ce qui provoque l'erreur 5

L'instr démarre toujours à 1 par défaut ou un autre valeur
positive autre que 0
A+

[hugoclo]

voici ce que me donne Text :

Code :

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

1
2
3
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:fb="http://www.facebook.com/2008/fbml" xml:lang="fr" lang="fr">
<head><meta http-equiv="Content-Language" content="FR" /><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><meta http-equiv="imagetoolbar" content="no" /><meta name="description" /><meta name="keywords" /><meta name="distribution" content="global" /><meta name="Googlebot" content="noarchive" /><meta name="author" content="AlloCine" /><meta name="country" content="France" /><meta name="geo.position" content="48.87078;2.30447" /><meta name="geo.country" content="FR" /><meta name="ICBM" content="48.87078;2.30447" /><link rel="shortcut icon" type="image/x-icon" href="http://images.allocine.fr/skin/favicon.ico" /><link rel="stylesheet" type="text/css" href="http://images.allocine.fr/skin/default/ac-core.css" /><!--[if lt IE 7]><link rel="stylesheet" type="text/css" href="http://images.