Lire un *.txt à partir d'internet

Résolu
Signaler
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009
-
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009
-
Bonjour
Je sais que je ne suis pas le premier à poser ce genre de question, mais je ne cherche pas à envoyer des infos etc, je voudrais juste qu'au démarrage mon programme recherche la dernière version, et pour cela qu'il lise juste la première ligne d'un fichier "version.txt" sur mon serveur. J'ai essayé les recherches google, msdn, vbfrance etc et je ne trouve que des réponses abominablemen compliquées, et si elles sont efficaces je ne parviens pas à les mettre en oeuvre...
Y a-t-il donc un moyen simple d'ouvrir un txt en connaissant son adresse internet ?
Et si inet est vraiment nécessaire, comment l'intégrer à la form ?

merci

4 réponses

Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007

inet: dans vb tu vas dans projet, composants, microsoft inet.., ensuite tu as une icone qui se rajoute(la ou il y a les controles:bouttons..) tu clique 2 fois dessus et c bon tu as inet sur ta form.
et avec celui ci tu télécharge ton fichier txt.
et ensuite

dim buff as string
open "monfichiertxt.txt" for input as #1
input #1,buff
close #1

et dans buff tu as la 1ere ligne de ton txt

@+
Daetips
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
salut voici une petite solution :
INTERFACE :

et voici le code a mettre :
Private Sub Command1_Click()
WS.Close
WS.Connect "www.liga.ens.fr", 80
End Sub


Private Sub Form_Unload(Cancel As Integer)
WS.Close
End Sub


Private Sub WS_Connect()
Caption = "connecté"
WS.SendData "GET " & Text1 & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
End Sub


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim recu As String
WS.GetData recu
Text2 = Text2 & recu
Text2 = Mid(Text2, InStr(Text2, vbCrLf & vbCrLf) + 1)
End Sub


ciao
<HR>




Life is short...Learn more
Copy Rights <> Rights to Copy
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
en tout cas pour plus d'explication voici mon msn tariqrhomari@hotmail.com.
WS c'est le nom du winsock
Text1 le texte du lien
Text2 le text a recevoire
ciaoooo


<HR>

Life is short...Learn more
Copy Rights <> Rights to Copy
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009

Merci pour vos réponses !