Ecriture dans un fichier ascii plus de 32767 lignesRésolu

Question

Bonjour,

Je suis entrain de faire du traitement de bdd en OLEDB, j'aimerais exporter mes donn&#233;es en fichier ascii avec d&#233;limiteur.
Pas de probleme pour l'exportation en fichier ascii, mais &#224; partir de la 32767 lignes j'ai une erreur overflow[javascript:Insert_Emoticon('/imgs2/smile_shock.gif'); ] impossible d'ecrire plus de 32767 lignes.
Comment faire pour depasser cette limite ?[javascript:Insert_Emoticon('/imgs2/smile_question.gif'); ]

M&#234;me en fermant le fichier puis je l'ouvre en append l'erreur arrive egalement.
L'ouverture du fichier se fait par la commande open for output, j'ecris dedans avec print #.

Merci pour votre aide.

pasbrun

cs_CanisLupus · Accepted Answer

Salut,

L'erreur ne vient pas d'une limitation de la taille du fichier texte, pour t'en convaincre, essaie &#231;a :

Dim i As Long
Open "c:	emp	oto.txt" For Append As #1
For i = 1 To 100000
Print #1, "toto"
Next
Close #1

Tu dois avoir une variable d&#233;clar&#233;e en Integer au lieu de Long (si c'est du vb6).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jrivet · Answer

Salut,

N aurais tu pas une variable de type INTEGER, variable qui ne peut pas prendre de valeurs superieure a 32767...

Si c est le cas passe cette variable de INTEGER a LONG

@+
Julien

jrivet · Answer

ZUT!!!!!!

Encore une fois : PAS ASSEZ RAPIDE PETIT SCARABEE :)

Ecriture dans un fichier ascii plus de 32767 lignes

3 réponses

Discussions similaires