VB6 ouvrir un fichier

VB6 ouvrir un fichier - VB/VBA/VBS - Programmation

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 .?

Reply

Marsh Posté le 14-06-2006 à 15:06:41   

Reply

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 ?

Reply

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 ...

Reply

Marsh Posté le 15-06-2006 à 20:25:37    

Personne a une idée .?

Reply

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" )
...

Reply

Marsh Posté le 15-06-2006 à 21:03:47    

merci l ami .... march au poil :p

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed