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

Question

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

cs_DARKSIDIOUS · Answer

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

Vbsupernul · Answer

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

Bricomix · Answer

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

Vbsupernul · Answer

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

Bricomix · Answer

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

Bricomix · Answer

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

Vbsupernul · Answer

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

Bricomix · Answer

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

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

8 réponses

Discussions similaires