Discussion :

[Anduriel]

Salut,

Après avoir enregsitré mon fichier je souhaite le lire. Voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function OpenLink()
    On Error GoTo Annul
    OpenSave.DialogTitle = "Ouvrir une connection"
    OpenSave.ShowOpen
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(OpenSave.FileName, 1, False, 0)
    Content = f.Read
    f.Close
    MsgBox (Content)
 
Annul:
End Function

Alors j'ouvre mon fichier et la d'abord mort de rire mon Norton me lance une alerte et me demande si je dois arreter ce script. Et ensuite (quand j'autorise), il ne se passe rien, le MsgBox n'est pas lancé.

Comment faire?
Merci

[sovo]

Slut
si tu veux lire (ouvrir) un fichier, voici un code plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
sub OpenFile(path as string) 
    dim ligne  as string 
    ligne=""
    open path for input as #1
         while not eof(1)    
                line input #1,ligne+VBCrLf
         wend
    close #1
End sub

[bhaal76]

f.readall
non?

[Anduriel]

Dans ton code le + ne fonctionne pas, ni le &

[sovo]

essai ca plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
sub OpenFile(path as string) 
    dim ligne,mot  as string 
 
    open path for input as #1 
         while not eof(1)    
                line input #1,mot
                ligne=ligne+mot+VBCrLf
         wend 
    close #1 
End sub

[Anduriel]

Merci cette fois il n'y aucun problème sauf qu'il ne se pass rien après ce code. J'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function OpenLink()
    On Error GoTo Annul
    OpenSave.DialogTitle = "Ouvrir une connection"
    OpenSave.ShowOpen
    Dim ligne, mot As String
    Open Path For Input As #1
         While Not EOF(1)
            Line Input #1, mot
            ligne = ligne + mot + vbCrLf
         Wend
    Close #1
    MsgBox (ligne)
    Label1.Visible = False
    TextCode.Visible = True
    mnu_save.Enabled = True
    mnu_fermer.Enabled = True
    mnu_edit.Enabled = True
    Form1.Toolbar1.Buttons(3).Enabled = True
    Form1.Toolbar1.Buttons(5).Enabled = True
    Form1.Toolbar1.Buttons(6).Enabled = True
    Form1.Toolbar1.Buttons(7).Enabled = True
    IsSave = True
Annul:
End Function

Mais après Close #1 rien n'est exécuté

[sovo]

Il renvoi une erreur je presume.
si c'est le cas remplace

MsgBox (ligne)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ligne

Si ca ne marche toujous pas alors fait le debogage pas-a-pas (F8), pour voir quel est le probleme et fait nous savoir.

[Anduriel]

Euh avec mon erreur pas à pas j'arrive là avec le surligneur jaune:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load() '<= LA
    OpenSave.CancelError = True
    IsSave = False
End Sub

[AlainTech]

Et quel message d'erreur?

[ouskel'n'or]

Hello,

Mais après Close #1 rien n'est exécuté

Tu n'as même pas un msgbox vide ?
Autre question : tu utilises une fonction sans lui passer de paramètre. A quoi te sert-elle ?

A+

[sovo]

Euh avec mon erreur pas à pas j'arrive là avec le surligneur jaune:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load() '<= LA
    OpenSave.CancelError = True
    IsSave = False
End Sub

si deja tu as une ligne jaune c'est que c'est bon. Le debogage pas a pas permet d'executer ton programme ligne par ligne, donc tu doit continuer a appuyer sur F8 jusqua la fin de ton programme (bon je sais c un peut fastidieux, surtout s'il et long).
alors voila ce que tu peux faire pour raccourcie un peut.

1. tu te positions sur une ligne.
dans ton cas sur la ligne : "Open Path For Input As #1"
2. tu fait F9 (pour creer un point d'arret).
3. ensuite tu F5 (pour executer to programme).
4. il va s'arreter a l'endroit '1' tu appuis donc F8 jusqu'a une erreur ou la fin de ton programme (bref tu vera ce qui ne marche pas)

[Dnx]

Slut
si tu veux lire (ouvrir) un fichier, voici un code plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
sub OpenFile(path as string) 
    dim ligne  as string 
    ligne=""
    open path for input as #1
         while not eof(1)    
                line input #1,ligne+VBCrLf
         wend
    close #1
End sub

super méthode, peux tu me dire comment tu ferais pour supprimer ttes les lignes dans un fichier?

merci

[sovo]

euh la comme ca a la vole, si je veux supprimer toutes les lignes dans un fichier.
si je veux qu'il soit vide et bien je le recreer. sinon faudrais voir ce que je veut faire exactement

[Anduriel]

J'ai fait ta méthode et donc quand je fais 'jouvre mon fichier préci, le programme s'éteind et le surligneur va sur cette ligne (Open...) avec un surligneur jaune.

Mais aucune erreur...

[sovo]

comme je t'ai dit lorsque tu vois la ligne jaune. tu doit maintenant faire F8 jusqu'a cet que tu rencontre une erreur.

priere de bien lire mes post car je croit avoir ete tres explicite.

[Anduriel]

Mm mais justement je ne rencontre aucune erreur
Je fais: F9 près de "ma ligne"
F5 lancer programme
F8 mais là ça ne fais absolument rien

[Anduriel]

Personne pour un code fiable pour lire un fichier?

[SfJ5Rpw8]

J'ai fait ta méthode et donc quand je fais 'jouvre mon fichier préci, le programme s'éteind et le surligneur va sur cette ligne (Open...) avec un surligneur jaune.

Mais aucune erreur...

clique ensuite sur bouton pas à pas détailler pour exécuter ligne à ligne ton programme...

[AlainTech]

Le code de sovo est correct.

A toi de voir ce qui ne va pas chez toi.

Juste pour voir, désactive la protection contre les vers de Norton.

[Anduriel]

J'ai désactivé Norton sans résultat.

Sinon sovo:
Je me suis mis à ma ligne
J'ai fait F9
J'ai fait F5
J'ai fait F8 sans qu'il se passe rien.

Alors j'ai fait dans mon programme "Fichier->Ouvrir", et là, j'ai mon surligneur jaune qui se positionne à ma ligne 'fatale'.
Je continu les F8 et ça surligne encore 2 lignes après sans aucune erreur.

Je comprends plus grand chose. Tu veux mon programme?