La fonction mid() me lache

Question

Bonjour ci joint une partie du code de mon llgiciel : 
'cherche les liens en fonction de la console
console = Combo1.Text
source = Inet1.OpenURL("http://www.jeuxvideo.com/articles/listes/tests-" & console & "-noms.htm")
nb1 = InStr(1, source, "redacteur")
tmp = Len(source)
source = Mid(source, nb1, tmp - nb1)
'donne le nombre de résultat
tmp = UBound(Split(source, Titre))
Label3.Caption = tmp
nb = 1
For i = 1 To tmp
    nb1 = InStr(nb, source, Titre)
    nb2 = InStr(nb1, source, "")
    nb2 = nb    jeu(i) Mid(source, nb1, nb2 - nb1)> erreir a cete ligne
Next i
'===========================================
Voila alors je comprends pas pk y me met une erreur de procédure a cette fonction alors que c'est bien comme ça qu'on fait un mid

Meric de m'aider

le cancre · Answer

tmp =  Len( source ) <- on imagine 30 comme longueur 
apres tu fais une boucle , qui fait quoi à ton avis ?
(car là tu ne traites pas mot par mot ta chaine de caractere)

For i  = 1 To 30 
    nb1 =  InStr(nb,  source , Titre)
    nb2  = InStr(nb1, source, "")
    nb2 =  nb    jeu(i) Mid( source , nb1, nb2 - nb1) > erreir a cete ligne
Next i
je ne comprends vraiment pas le sens de ta boucle,si tu nous l'expliques ligne par ligne, j'pense que tu comprendras ton erreur

noz666 · Answer

he bien enfette j'essaye de cherche un jeu dans une page web contenant plein de jeux donc par exemple quand je tape  "splinter cell" j'aimerai avoir tous la list des splinter cell qui est stocker dans l'array jeu

cs_casy · Answer

nb = 1 For i = 1 To tmp nb1 = InStr(nb, source, Titre) nb2 = InStr(nb1, source, "") <---- Inutile, nb2 est écrasé à la ligne suivante nb2 = nb jeu(i) Mid(source, nb1, nb2 - nb1) <--- nb2nb, nb1 devra théoriquement etre > nb, donc nb2-nb1 = négatif ==> erreur Next i Enjoy ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE #

cs_casy · Answer

normalement tu dois trouver ton erreur avec ça, elle est très simple

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

noz666 · Answer

Merci j'avais just a inverser nb2 et nb

noz666 · Answer

he bien non apparement ça suffit pas
runtime error:

nb2 = 1
For i = 1 To tmp
    nb1 = InStr(nb2, source, Titre)
    nb2 = InStr(nb1, source, "")
    jeu(i) = Mid(source, nb1, nb2 - nb1)
Next i

Renfield · Answer

utilises Instr plutot que Split : Private Sub Form_Load() Dim sSource As String Dim nCount As Long Dim xsGames() As String Dim i As Long sSource = Inet1.OpenURL("http://www.jeuxvideo.com/articles/listes/tests-" & Combo1.Text & "-noms.htm") nCount = ExtractGames(sSource, "splinter cell", xsGames) For i = 0 To nCount - 1 Debug.Print i, xsGames(i) Next i Unload Me End Sub Public Function ExtractGames(ByRef vsHTMLSrc As String, ByRef vsTitle As String, ByRef vxsGames() As String) As Long Dim i As Long Dim nCount As Long Dim xsGames As String Dim nStart As Long Dim nEnd As Long Erase vxsGames i = InStr(vsHTMLSrc, "") If i Then i = InStr(i + 1, vsHTMLSrc, vsTitle, vbTextCompare) Do While i nStart = InStrRev(vsHTMLSrc, ">", i) + 1 nEnd = InStr(i, vsHTMLSrc, "<") ReDim Preserve vxsGames(ExtractGames) vxsGames(ExtractGames) = Mid$(vsHTMLSrc, nStart, nEnd - nStart) ExtractGames = ExtractGames + 1 i = InStr(i + 1, vsHTMLSrc, vsTitle, vbTextCompare) Loop End If End Function Renfield Admin CodeS-SourceS- MVP Visual Basic

cs_casy · Answer

noz666, pour ton code, attention à gerer le cas où nb1 et/ou nb2 = 0

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

noz666 · Answer

renfield c'est toi qui a fait ça ??? peux tu m'expliquer comment ça marche stp ça a l'air intérressant mais je connais pour tout les fonctions

Renfield · Answer

euh....
oui, c'est moi qui te l'ai codé

tu donne a la fonction le code HTML de la page, le titre que tu cherches ("Cell" trouveras Splinter Cell...)
et tu donne un tableau de String

en sortie de la fonction, tu récupère le nombre de jeux trouvés, et ton tableau sera remplis.
là, le résultat est simplement écrit dans la fenetre de Debug.

On n'utilise là grosso modo que Instr, qui permet de rechercher du texte dans une String.
vbTextCompare est là pour que la casse ne soit pas prise en compte ( "SPLINTER" ou "SpliNter", même combat)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

La fonction mid() me lache

10 réponses

Votre réponse

Discussions similaires