[VB6]Problème fichierRésolu

Question

Salut!!

Je fais un petit programme en VB6.

J'ai une erreur de compilation incompr&#233;hensible....
Surtout que j'utilises exactement le m&#234;me code dans un autre projet....

Alors voici le bout de code : 

' on ouvre le fichier en texte pour corriger les bugs d'Excel
    fluxTmp = FreeFile()
    Open LireINI("BR7", "PathOut") + "BR7.txt" For Input As #fluxTmp
    texte = Input(LOF(fluxTmp), fluxTmp)
    Close fluxTmp
    texte = Replace(texte, Chr(34) + Chr(34) + Chr(34), Chr(34))

J'ai une erreur sur  texte = Input(LOF(fluxTmp), fluxTmp)  qui me dit : 
Erreur 68 :
L'entr&#233;e d&#233;passe la fin de fichier

Sachant que la fonction LireINI est ok puisqu'utilis&#233; avant dans le code correctement

Si quelqu'un peut m'aider svp

Merci bien :)

aurelien2723 · Accepted Answer

Salut!

J'avais toujours ce problème. Je viens de me rendre compte que les fichiers texte n'étaient identiqes qu'en apparance en fait. En les ouvrant avec un éditeur de texte, celui qui créé le bug était différent, et donc avait certainement un caractère 1A ou autre qui faisait bugger....
Un gros c'était un bug de boulet.... 

désolé.
Merci beaucoup pour l'aide
@+

Polack77 · Answer

Heeeeeee, le fichier que tu lit n'est pas vide par hasard? Oui je sais c une question b&#233;te mais une erreur est si vite venu. Si non je ne vois pas de probl&#232;me dans ton bout de code. Verifi ce que te renvoie ta fonction LireINI(...), des fois que le fichier pointer n'est pas celui que tu crois.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

aurelien2723 · Answer

J'ai testé en passant par une variable temporaire, le chemin du fichier est correct... :(

Help me please

aurelien2723 · Answer

Enfait j'ai testé avec mon autre fichier texte, et la pas de soucis....

Peut-etre parceque je ferme mal??

Polack77 · Answer

Ba, &#224; chaque open #x il faut un close #x (moi je ferme les fichiers d&#233; que j'ai fini de travailer dessus, quite &#224; le r&#233;-ouvrir plus loin)

 D'oh! Nuts!
 Mmmmm...
 DONUTS

aurelien2723 · Answer

oui c'est ce que je fais, le problème est que le message d'erreur est avant le close

Polack77 · Answer

extrait de l'aide de VB :
--------------------------------
Important   En mode Binary, Input et 
Random, vous n'&#234;tes pas oblig&#233; de fermer un fichier avant de l'ouvrir 
sous un autre num&#233;ro de fichier. En mode Append et Output, vous 
devez fermer un fichier avant de l'ouvrir sous un autre num&#233;ro de fichier.
--------------------------
tu ouvre dans ta fonction en "Input" donc pas de souci pour l'ouvrir plusieur fois (a moin qu'il soit ouvert en Output ou Append avant, peut &#234;tre m&#234;me que tu aura un probl&#232;me si tu cherche &#224; ouvrir en Output et que il est d&#233;ja ouvert en Input????)

Essais avec un fichier plus petit (le fichier est peut &#234;tre trop gros pour tenir dans une seul variable) 

 LOF renvoi la taille du fichier (en carac? moi j'ai d&#233;ja eu des probl&#232;mes avec les retour &#224; la ligne "chr(13) & chr(10)" reconu comme un carac ou deux carac suivant les fonctions, peut &#234;tre que????)
au lieu de "texte = Input(LOF(fluxTmp), fluxTmp)" test :
-------------------
dim Temp as string
text = ""
do while EOF(fluxTmp)
    line input #fluxTmp, temp
    test = test & temp & chr(13) & chr(10) 'verif si chr(10) est nesesaire (je le pense)
loop
--------------------

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Je pense que c'est LOF qui posse probl&#232;me car ton erreur est "L'entr&#233;e d&#233;passe la fin de fichier"

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Heeeeeee perdon j'ai valider sans avoir fini.

                
                Je pense que c'est LOF qui posse probl&#232;me car ton erreur est "L'entr&#233;e d&#233;passe la fin de fichier" donc c'est que tu cherche &#224; lire plus loin que la fin du fichier.

Pense &#224; valider la(les) r&#232;ponce(s) qui t'on permis de r&#233;soudre ton probl&#232;me.

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

je crois que je suis fatigu&#233;. Plein de faute dans le bout de code plus haut
-------------------
dim Temp as string
texte = ""

do while EOF(fluxTmp)
    line input #fluxTmp, temp
    texte
 = texte 
& temp & chr(13) & chr(10) 'verif si chr(10) est nesesaire (je le pense)
loop
--------------------

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Polack77 · Answer

Alors &#231;a  marche?

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Gobillot · Answer

Salut,



Tu lis certainement un fichier binaire, qui contient un caract&#232;re de fin chr$(26) 
donc impossible de le lire en Input

tu dois le lire en binary


Daniel

aurelien2723 · Answer

Salut!

J'ai testé ton code Polack77 , la variable temp est vide ... (je la remet dans le fichier après et celui ci est vide)
Le fichier n'est pas binaire, il est enregistrer en txt avec Excel dans le même programme. 

J'ai le même code a coté qui lui marche... Avec un fichier plus gros...

aurelien2723 · Answer

Y'avais une tite erreur dans ton code

do while EOF(fluxTmp) = false

Je me retrouve avec un fichier qui a 19ko de caractère identiques après

    ' on referme et sauvegarde le fichier avec les modifications
    Open LireINI("BR7", "PathOut") + "BR7.txt" For Output As #fluxTmp
    Print #fluxTmp, texte
    Close fluxTmp


merci pour votre aide :)

ca marche toujours pas :(

Polack77 · Answer

Oui d&#233;sol on contigue temps que le fichier n'est pas terminer!!!!

"ca marche toujours pas :(" ?????????????????????????????????
Ques qui marche pas si arive &#224; lire ton fichier????????????

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Gobillot · Answer

je maintiens, la seule fa&#231;on d'avoir ce message, c'est d'avoir le caract&#232;re 1A dans le fichier,

c'est pas une question de taille de fichier.

il suffit de chercher avec un &#233;diteur hexa.

Daniel

Polack77 · Answer

Daniel tu veut dire que en ouvrant simplement le ficheir avec :
open "Machin.ext" for binary access right as #x
on poura le lire (avec Input(number, [#]filenumber))
C'est ca???
Peut tu me dire quel est la differance entre un fichier s&#233;quentiel et binaire meric

 D'oh! Nuts!
 Mmmmm...
 DONUTS

Gobillot · Answer

non pas avec input mais avec Get

&#231;a passera &#224; tous les coups, quelque soit les caract&#232;res du fichier:



    Dim Buffer     As String



    Open Nomfichier For Binary As #1

         Buffer = Space$(Lof(1))

         Get #1, , Buffer

         Close #1


Daniel

aurelien2723 · Answer

Ca marche lorsque je met binary ( pas besoin de la boucle de Polack77)

Merci bien :)

Par contre, j'ouvre le fichier pour faire un Replace, qui la, ne fonctionne pas : 
    fluxTmp = FreeFile()
    Open LireINI("BR7", "PathOut") + "BR7.txt" For Binary As #fluxTmp
    texte = Input(LOF(fluxTmp), fluxTmp)
    Close fluxTmp
    
    texte = Replace(texte, Chr(34) + Chr(34) + Chr(34), Chr(34))
    
    ' on referme et sauvegarde le fichier avec les modifications
    Open LireINI("BR7", "PathOut") + "BR7.txt" For Output As #fluxTmp
    Print #fluxTmp, texte
    Close fluxTmp

Merci bien :)

[VB6]Problème fichier

19 réponses

Discussions similaires