z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 2007
-
24 juin 2003 à 15:07
lauzeral
Messages postés3Date d'inscriptionjeudi 3 mai 2007StatutMembreDernière intervention18 novembre 2009
-
18 nov. 2009 à 13:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
lauzeral
Messages postés3Date d'inscriptionjeudi 3 mai 2007StatutMembreDernière intervention18 novembre 2009 18 nov. 2009 à 13:02
C’est encor moi.
Je précise juste que le code que je proposé, permet de palié les bugs dut au changement de la page internet. Il doit renplacé la partie entre le 2ème Try … Catch de la fonction MiseAJour().
lauzeral
Messages postés3Date d'inscriptionjeudi 3 mai 2007StatutMembreDernière intervention18 novembre 2009 18 nov. 2009 à 12:49
C’est remoi, je propose cette solution :
Try
Dim nb As Byte
Dim texte As String
Dim Emplacement_coupure As Integer
Dim texte_couper As String
Dim i As Integer
Dim NomDevise As String() = New String() {"Dollar américain&", "Livre anglaise&", "Rouble russe&", "Yen japonais&"}
Dim TauxDevise As String() = New String() {"?", "?", "?", "?"}
nb = FreeFile()
'Accès au fichier HTML convertit en TXT, en lecture
FileOpen(nb, Application.StartupPath & "\fichier.txt", OpenMode.Input)
Do While Not EOF(nb)
texte = Mid(LineInput(nb), 1)
For i = 0 To 3
If texte.Contains(NomDevise(i)) Then
'Fonction "recup" extrait la devise en fonction des symboles
Emplacement_coupure = InStr(1, texte, NomDevise(i), 1)
texte_couper = (Mid(texte, Emplacement_coupure - 1))
TauxDevise(i) = recup(texte_couper)
End If
Next
lauzeral
Messages postés3Date d'inscriptionjeudi 3 mai 2007StatutMembreDernière intervention18 novembre 2009 17 nov. 2009 à 20:02
Merci beaucoup, cette source ma bien servie.
Par contre il y a un petit bug, ca vient probablement d’une modification de la présentation de la page internet où on va chercher les taux. Mais le font et bon et le bug se corrige facilement.
ludovicanceaux
Messages postés440Date d'inscriptionmardi 21 octobre 2003StatutMembreDernière intervention 6 mai 2010 24 sept. 2004 à 01:57
pô mal ta source et surtou ton fichier pdf
Pour ceux ki veulent faire la même chose mai en vb il a le winsock ou encore le webbrowser
cs_Blodox
Messages postés134Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention24 octobre 2010 26 sept. 2003 à 19:02
Bonjour,
Super ton prog!
Par ailleurs 2 'tites questions (je débute, alors de l'indulgence si je profère une énormité stp)
1) Je suis allé voir le site en lui-même (pour comparer la page affichée et son comportement avec la liste de la page téléchargée) et il se trouve que l'on peut (sur le site) choisir Toutes les monnaies/Asie/Chaispusquoi/etc, dans la page chargée, à l'endroit de la liste déroulante, il y a un SELECT ou SELECTED sur Monnaies principales, peut-on intervenir à ce niveau (i.e. télécharger une autre page que celle-là) ?
2) Peut-on lancer la procédure de connexion directement de VB au cas où l'on ne serait pas déjà directement connecté ?
(en plus j'y connais rien au net...)
Merci
bguihal
Messages postés17Date d'inscriptionjeudi 19 octobre 2000StatutMembreDernière intervention23 août 2005 18 juil. 2003 à 12:00
tres bien sauf que j'ai un petit probleme je suis deriere un proxy j'ai essayer avec Web.Credentials mais ça n'a pas l'air de marcher, une idée ?
n3opsylo
Messages postés3Date d'inscriptionsamedi 24 mai 2003StatutMembreDernière intervention25 juin 2003 25 juin 2003 à 13:24
Heu tu le fait expres ou quoi? franchement comme la derniere fois ca dechire bien, code propre, le PDF c'est le BONUS ultime et en plus j'en avais besoin d'un truc comme ca pour mon prog , ca tombe a point nommé . . . encore chapeau ! allé hop un ptit 10/10
cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005 25 juin 2003 à 11:04
Pour une fois qu'on n'a pas droit à un convertisseur Euros/Francs ... Je vais mettre une ch'tite note pour l'occasion et pour le code .NET qui m'a pas l'air trop mal :-)
cs_yous
Messages postés136Date d'inscriptionlundi 26 mai 2003StatutMembreDernière intervention13 avril 20091 24 juin 2003 à 15:32
-->z980x:
Le contrôle WebBrowser en VB6 doit te permettre lui aussi de récupérer les informations d'une page Web.
Pour le reste du code, rien de très nouveau...
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 24 juin 2003 à 15:07
je cherchais a faire ca, mais je ne savais pas comment trouver les traux de chnage en direct sur le net...
malheureusement, je ne peux pas voir la non plus car je suis avec vb6...
18 nov. 2009 à 13:02
Je précise juste que le code que je proposé, permet de palié les bugs dut au changement de la page internet. Il doit renplacé la partie entre le 2ème Try … Catch de la fonction MiseAJour().
18 nov. 2009 à 12:49
Try
Dim nb As Byte
Dim texte As String
Dim Emplacement_coupure As Integer
Dim texte_couper As String
Dim i As Integer
Dim NomDevise As String() = New String() {"Dollar américain&", "Livre anglaise&", "Rouble russe&", "Yen japonais&"}
Dim TauxDevise As String() = New String() {"?", "?", "?", "?"}
nb = FreeFile()
'Accès au fichier HTML convertit en TXT, en lecture
FileOpen(nb, Application.StartupPath & "\fichier.txt", OpenMode.Input)
Do While Not EOF(nb)
texte = Mid(LineInput(nb), 1)
For i = 0 To 3
If texte.Contains(NomDevise(i)) Then
'Fonction "recup" extrait la devise en fonction des symboles
Emplacement_coupure = InStr(1, texte, NomDevise(i), 1)
texte_couper = (Mid(texte, Emplacement_coupure - 1))
TauxDevise(i) = recup(texte_couper)
End If
Next
Loop
FileClose(nb)
d.Text = TauxDevise(0)
l.Text = TauxDevise(1)
r.Text = TauxDevise(2)
y.Text = TauxDevise(3)
etat.Text = "Mise à jour accomplie."
Catch
17 nov. 2009 à 20:02
Par contre il y a un petit bug, ca vient probablement d’une modification de la présentation de la page internet où on va chercher les taux. Mais le font et bon et le bug se corrige facilement.
24 sept. 2004 à 01:57
Pour ceux ki veulent faire la même chose mai en vb il a le winsock ou encore le webbrowser
26 sept. 2003 à 19:02
Super ton prog!
Par ailleurs 2 'tites questions (je débute, alors de l'indulgence si je profère une énormité stp)
1) Je suis allé voir le site en lui-même (pour comparer la page affichée et son comportement avec la liste de la page téléchargée) et il se trouve que l'on peut (sur le site) choisir Toutes les monnaies/Asie/Chaispusquoi/etc, dans la page chargée, à l'endroit de la liste déroulante, il y a un SELECT ou SELECTED sur Monnaies principales, peut-on intervenir à ce niveau (i.e. télécharger une autre page que celle-là) ?
2) Peut-on lancer la procédure de connexion directement de VB au cas où l'on ne serait pas déjà directement connecté ?
(en plus j'y connais rien au net...)
Merci
18 juil. 2003 à 12:00
25 juin 2003 à 13:24
25 juin 2003 à 11:04
24 juin 2003 à 15:32
Le contrôle WebBrowser en VB6 doit te permettre lui aussi de récupérer les informations d'une page Web.
Pour le reste du code, rien de très nouveau...
24 juin 2003 à 15:07
malheureusement, je ne peux pas voir la non plus car je suis avec vb6...