2 réponses
Selon l'aide de Microsoft le code pour récupérer un fichier
texte et l'écrire sur disque est:
Dim strURL As String ' URL string
Dim intFile As Integer ' FreeFile variable
IntFile = FreeFile()
strURL = "http://www.microsoft.com"
Open "c:\temp\MSsource.txt" For Output _
As #IntFile
Write #IntFile, Inet1.OpenURL(strURL)
Close #IntFile
Plus simplement, pour répondre directement à ta question:
Text1 = pour l'adresse
Text2 = propriété Multiligne vraie, pour le contenu
Command1 = Go!
Inet1 = contrôle type 'Microsoft Internet Control 6.0'
Code:
Private Sub Command1_Click()
Text2.Text = Inet1.OpenURL(Text1.Text)
' défaut 2ème param : icUseDefault => connex selon
' Registry, si déjà alors exécute sans message d'erreur.
End Sub
Private Sub Form_Load()
'Text1 = vbNullString
Text1 = "http://members.xoom.com/Tournevis1/DescsTxt/KrillMK1.txt"
End Sub
En entrant par exemple:
http://members.xoom.com/Tournevis1/DescsTxt/KrillMK1.txt
J'obtient:
"
Opération : Krill Medekell
=========================
Desc :
-------
Les mages du Royaume disparaissent les uns après
les autres, après que celui du Roi ais a son tour
subit le même sort, ce dernier lance un appel aux
valeureux et futés pour réussir où malheureusement
ses propres forces ont échoué.
#Jrs :
------
= 3 ou 4 joueurs de Niveaux 1 à 4
= Un voleur est un atout.
Autres:
--------
#Série: 2
Compatibilité: Peux être associé à n'importe quelle
aventure de la Série 1.
"
Mais sans les guillements, je les aies ajoutées pour
délimiter dans cet exemple.
PS: c'est l'un de mes propre fichiers :oÞ
texte et l'écrire sur disque est:
Dim strURL As String ' URL string
Dim intFile As Integer ' FreeFile variable
IntFile = FreeFile()
strURL = "http://www.microsoft.com"
Open "c:\temp\MSsource.txt" For Output _
As #IntFile
Write #IntFile, Inet1.OpenURL(strURL)
Close #IntFile
Plus simplement, pour répondre directement à ta question:
Text1 = pour l'adresse
Text2 = propriété Multiligne vraie, pour le contenu
Command1 = Go!
Inet1 = contrôle type 'Microsoft Internet Control 6.0'
Code:
Private Sub Command1_Click()
Text2.Text = Inet1.OpenURL(Text1.Text)
' défaut 2ème param : icUseDefault => connex selon
' Registry, si déjà alors exécute sans message d'erreur.
End Sub
Private Sub Form_Load()
'Text1 = vbNullString
Text1 = "http://members.xoom.com/Tournevis1/DescsTxt/KrillMK1.txt"
End Sub
En entrant par exemple:
http://members.xoom.com/Tournevis1/DescsTxt/KrillMK1.txt
J'obtient:
"
Opération : Krill Medekell
=========================
Desc :
-------
Les mages du Royaume disparaissent les uns après
les autres, après que celui du Roi ais a son tour
subit le même sort, ce dernier lance un appel aux
valeureux et futés pour réussir où malheureusement
ses propres forces ont échoué.
#Jrs :
------
= 3 ou 4 joueurs de Niveaux 1 à 4
= Un voleur est un atout.
Autres:
--------
#Série: 2
Compatibilité: Peux être associé à n'importe quelle
aventure de la Série 1.
"
Mais sans les guillements, je les aies ajoutées pour
délimiter dans cet exemple.
PS: c'est l'un de mes propre fichiers :oÞ
