Charger un fichier txt dans un TEXTBOX !

Question

HELP !

Je voudrais récupérer un fichier texte (et l'afficher dans un txtbox sur mon
programme) qui se trouve sur mon site Internet afin d'afficher la dernière
version du programme disponible online. J'ai trouvé le code suivant sur VBFR, mais il ne me permet pas d'aller récupérer un fichier sur le net !
Savez vous comment faire ?

Private Sub Abonnement_Click()
Dim CheminFichier As String
Dim A As Long
CheminFichier = "C:	oto\update.txt"
' Je voudrais qu'au lieu d'avoir C:	oto\update.txt il y ai
http://www.toto.com/update.txt mais ca ne marche pas !
A = FreeFile()
Open CheminFichier For Input As #A
update.Text = Input(LOF(A), A)
Close #A
End Sub

@micalement,

Julien Trousset

amonbofis · Answer

Nix à écrit cet article:
RECUPERER UNE PAGE WEB HTML AVEC WINSOCK 
dans la section Réseaux&&Internet, je crois que ça devrait t'aider.

Doc · Answer

Salut,
Ben en fait il ne me concerne pas ce programme puisqu'il affiche dans un textbox le code HTML du page avec en entête les caractéristiques du serveur ! D'ailleurs, j'ai l'impression que ca ne marche que sous UNIX car mon serveur est un serveur NT et j'y arrive pas :-(

Si quelqu'un pouvait m'aider...

@++

Doc

Amonbofis · Answer

Alors essaie ceci:

[J'ai VB6 en passant]
À une feuille, ajoute:
-1 contrôle INet  (Microsoft Internet Transfer Control)
-1 TextBox
-2 Boutons

Et tu y jette ce code:

Private Sub Command1_Click()
  Inet1.AccessType = icUseDefault
  Inet1.Protocol = icHTTP
  Inet1.Execute "http://members.xoom.com/Tournevis1/DescsTxt/Horreur1.txt", "GET"
End Sub

Private Sub Command2_Click()
 Unload Me
End Sub

Private Sub Form_Load()
  Text1 = vbNullString
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
   Dim vtData As Variant ' Data variable.
   
   Select Case State
   
      ' ... Other cases not shown.
     Case icResponseCompleted ' 12
       ' Get the first chunk. NOTE: specify a Byte
       ' array (icByteArray) to retrieve a binary file.
       vtData = Inet1.GetChunk(1024, icString)
       
       Do While LenB(vtData) > 0
          Text1 = Text1 & vtData
          ' Get next chunk.
          vtData = Inet1.GetChunk(1024, icString)
       Loop
       
       'Write last chunk
       Text1 = Text1 & vtData
       
   End Select

End Sub

Le début devrait se lire:
"Horreur à Fidesbelk
==========================
..."

OneHacker · Answer

Est tu s&#251;r que c'est le bon lien au fichier texte ? Car j'ai fais un programme qui ouvre les fichier
 MW(MicroWriter) j'ai tap&#233; l'adresse de ton fichier est ca a mis fichier non-valide mais ce n'est pas du a une cause d'incompatibilit&#233; de ton fichier.

Redman

Charger un fichier txt dans un TEXTBOX !

4 réponses

Discussions similaires