Quelq'un peut essayer de faire marcher ce truc???

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005
-
lechemin = Dir1.Path & "" & File1.FileName
Do
Open lechemin For Input As #1
Input #1, a$
Close #1
texte = a$

Loop Until lechemin.EOF = True

Ou alors faire un fragment de code pour ouvrir le fichier séléctionné ds les File1 et Dir1 et le lire JUSQU'A LA FIN, tout en enregistrant le texte du fichier text dans la variable texte...

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

8 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Essaye plutôt ca :

lechemin = Dir1.Path & "" & File1.FileName
Do
Open lechemin For Input As #1
Input #1, a$
Close #1
texte = texte & a$

Loop Until lechemin.EOF = True

DARK SIDIOUS
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Non, DSL, mais il me dit
error 424
object required...

Parceque comme ça, il ouvre un fichier qui s'appelle lechemin...
Y fo trouver autre chose...

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Alors ça :

lechemin = Dir1.Path & "" & File1.FileName
Do
Open lechemin For Binary As #1
texte = string$(lof(1),chr$(0))
get #1,,texte
Close #1

C'est beaucoup plus rapide, et ça marche !!! Bonne prog à toi VBSupernul

:-p Bricomix :-p
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Non, il me dit :
Runt-Time error '458':

Variable uses an Automation type not supported in Visual Basic

avec ce code:
lechemin = Dir1.Path & "" & File1.FileName
Do
Open lechemin For Binary As #1
texte = String$(LOF(1), Chr$(0))
Get #1, , texte
Close #1
Loop Until lechemin.EOF = True

j'ai rajouté le loop, sinon ça bugue...

Si quelq'un a une idée...
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Alors c'est ça (sur le mien (en VB6.0), l'autre fonctionne) :

lechemin = Dir1.Path & "" & File1.FileName
Open lechemin For Input As #1
texte = input$(lof(1),#1)
Close #1

La c'est bon (sur ce bonne prog à toi)

:-p Bricomix :-p
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Alors c'est ça (sur le mien (en VB6.0), l'autre fonctionne) :

lechemin = Dir1.Path & "" & File1.FileName
Open lechemin For Input As #1
texte = input$(lof(1),#1)
Close #1

La c'est bon (sur ce bonne prog à toi)

:-p Bricomix :-p
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Je reprends: je cherche un code, (de préférence sans loop) qui permette d'ouvrir un fichier texte, et d'enregistrer l'INTEGRALITE de son contenu, même s'il fait 300 000 lignes...
PS: (et pas 300 000 lignes de code, merci... :big) , ça même moi je sais faire... :clown) )

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Mais mon code avec "input$(lof(1),#1) fonctionne !!!
Qu'est-ce que tu cafouilles VBSuperNul ?...

:-p Bricomix :-p
0