A voir également:
- Concatenation de fichier HTML avec VB...
- Html array - Conseils pratiques -PHP
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Appeler un fichier javascript dans une page html - Conseils pratiques -Javascript
- Vb vba - Forum Visual Basic
1 réponse
Il faut ouvrir le fichier html de cette façon:
Dim MyChar
Open "Mon adresse fichier.html" For Input As #1 ' Ouvre le fichier.
'Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, TextLine ' Lit une ligne dans la variable.
TexteMémo = TexteMémo & TextLine & Chr$(13) & Chr$(10) 'remet les une derrière les autres toute les lignes
Loop
Text1.Text = TexteMémo ' Affiche dans un contrôle textbox nommé text1
'----------------------- 2 ème étape
'tout votre texte est contenu dans la variable TexteMémo et vous pouvez
'maintenant le visionner dans votre text box "text1'
à l'aide de len vous déterminez la longueur de cette variable
'à l'aide de la fonction instr vous trouvez la balise
position = instr(text1,")
``a l'aide de right vous ne gardez que la portion de droite de la variable.
Ceci devrait éliminer tout le texte qui se trouve avant .
contrôlez le tout dans un text box afin de voir si vos paramètres sont à point
à l'aide de len vous recalculez la longueur de la variable
`à l'aide de instr vous trouvez la position de la fermeture
à l'aide de left, vous enlevez la portion de droite qui est de trop.
Dim MyChar
Open "Mon adresse fichier.html" For Input As #1 ' Ouvre le fichier.
'Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, TextLine ' Lit une ligne dans la variable.
TexteMémo = TexteMémo & TextLine & Chr$(13) & Chr$(10) 'remet les une derrière les autres toute les lignes
Loop
Text1.Text = TexteMémo ' Affiche dans un contrôle textbox nommé text1
'----------------------- 2 ème étape
'tout votre texte est contenu dans la variable TexteMémo et vous pouvez
'maintenant le visionner dans votre text box "text1'
à l'aide de len vous déterminez la longueur de cette variable
'à l'aide de la fonction instr vous trouvez la balise
position = instr(text1,")
``a l'aide de right vous ne gardez que la portion de droite de la variable.
Ceci devrait éliminer tout le texte qui se trouve avant .
contrôlez le tout dans un text box afin de voir si vos paramètres sont à point
à l'aide de len vous recalculez la longueur de la variable
`à l'aide de instr vous trouvez la position de la fermeture
à l'aide de left, vous enlevez la portion de droite qui est de trop.
