LAISON INTERNET

Commentaire de z980x le 24/06/2003 15:07:09

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...

Commentaire de Mercury le 25/06/2003 11:04:44

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 :-)

Commentaire de bguihal le 18/07/2003 12:00:18

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 ?

Commentaire de ludovicanceaux le 24/09/2004 01:57:35

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

Commentaire de lauzeral le 18/11/2009 12:49: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

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