Lire un *.txt à partir d'internet
Résolu
Vlavv
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009
-
23 juil. 2005 à 00:31
Vlavv Messages postés 20 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 3 septembre 2009 - 23 juil. 2005 à 12:17
Vlavv Messages postés 20 Date d'inscription samedi 16 juillet 2005 Statut Membre Dernière intervention 3 septembre 2009 - 23 juil. 2005 à 12:17
4 réponses
daetips
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007
23 juil. 2005 à 01:28
23 juil. 2005 à 01:28
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
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
cs_MasterHack
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
23 juil. 2005 à 03:34
23 juil. 2005 à 03:34
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
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
cs_MasterHack
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
2
23 juil. 2005 à 03:38
23 juil. 2005 à 03:38
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
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
Vlavv
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009
23 juil. 2005 à 12:17
23 juil. 2005 à 12:17
Merci pour vos réponses !
