VB6 ouvrir un fichier - VB/VBA/VBS - Programmation
Marsh Posté le 14-06-2006 à 17:40:27
INet est un composant Web et pas un composant système.
Il permet d'ouvrir des pages web, pas des fichiers.
Tu veux en faire quoi de ton fichier ? Afficher son contenu dans un navigateur ou le lire et le traiter ?
Marsh Posté le 15-06-2006 à 09:31:29
enfaite je voudrais juste l ouvrir et le traiter ....
enfaite je voudrais faire ca
Set web = fs.OpenTextFile("test.txt", ForReading)
Timer2.Interval = 1000
Inet1.Tag = 1
End If
Else
If Inet1.StillExecuting = False Then
Inet1.Tag = 0
Timer2.Interval = 60000
p = InStr(web, "Primaire" )
pri = Mid(web, p + 11, 23)
p = InStr(web, "secondaire" )
sec = Mid(web, p + 13, 23)
Label16.Caption = pri & " " & sec
je voudrais qu il aye lire le fichier test.txt
et qu il me donne la ligne que je lui demande jde chercher en dessous ...
Marsh Posté le 15-06-2006 à 20:43:47
dim ligne as string
dim monfichier as string
f= freefile
open "test.txt" for input as #f
do until eof(f)
line input #f,ligne
monfichier = monfichier & ligne
loop
close #f
p = instr(monfichier,"primaire" )
...
Marsh Posté le 14-06-2006 à 15:06:41
Kikou tout le monde ....
je cherche la commande pour
ouvrir un fichier
a la base la commande est
web = Inet1.OpenURL("http://www.test.com/index.php" )
mais je voudrais changer la commande pour qu il ouvre un fichier text
web = Inet1.Open("test.txt" )
mais cela ne va pas .... une idée .?