Problème avec mémoire Vive

Question

avec VB6 je fait une création de fichier textes d'une taille de 40 Mo environs.

avec une boucle For le prog crée un fichier texte à chaque tour de boucle.

mon problème c'est que au fur et à mesur que le programme crée les fichiers texte, la quantité de mémoire vive disponible diminue aussi. et au bout de 20 fichiers créés je suis à 100% d'utilisation de la mémoire vive. ( j'ai + de 700 Mo ram)
je comprend pas pourquoi alors que les fichiers sont créés sur le disque dur???

est ce quelqu'un pourrait m'expliquer pourquoi et comment résoudre le problème (récuperer la mémoire)

merci de votre attention

a+

yann

cs_processus · Answer

Comment tu remplit ton fichier ? Sans la routine complète, je ne peut pas t'aider.

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st

YahnIck · Answer

voici le code : For m1 = f2 To f3 Step Val(Form5.Text1.Text) compteur1 = compteur1 + 1 Form1.Text5.Text = m1 Form1.Text9.Text = (Val(Form5.Text1.Text) + Val(Form5.Text3.Text)) + m1 compteur2 = 0 For m2 = f4 To f5 Step Val(Form5.Text2.Text) compteur2 = compteur2 + 1 Form1.Text6.Text = m2 Form1.Text10.Text = (Val(Form5.Text2.Text) + Val(Form5.Text4.Text)) + m2 If Val(Form1.Text9.Text) > 90 Then Text9.Text = 90 If Val(Form1.Text10.Text) > 360 Then Text10.Text = 360 'deb ' fin Form1.CommonDialog1.FileName = Mid(nom$, 1, Len(nom$) - 4) & "wrl" & compteur1 & "_" & compteur2 & ".pov" Open Form1.CommonDialog1.FileName For Output As #1 Print #1, "background { color <1,1,1> }" Print #1, "union{" Call fichier_POV(rayon, flux, thermla0, zoom, latitude, longitude, beta, vue, maxi, mini, maxi2, mini2) Print #1, "rotate < 0, "; longitude + 180; ", "; latitude * (-1); " > " Print #1, "}" Print #1, "camera{location <"; Val(Form5.Text5.Text); " ,0 , 0 > look_at < 0.0 , 0.0 , 0.0 > }" Print #1, "light_source { <1000 ,0 ,0 > color red 1.0 green 1.0 blue 1.0}" Close #1 Next m2 Next m1

cs_processus · Answer

Je doute que cela vienne du remplissage du fichier. Elle fait quoi ta fonction fichier_POV ?

 ==============
 Site Web de JDPROG 
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st

YahnIck · Answer

ben si je pense que cela viens de là
car le code cidessous me donne le même pb
Dim FileNumber As Long
Dim i_ligne As Long
Dim j_fichier As Long

For j_fichier =  1 To 30
FileNumber = FreeFile
Open "c:	est" & CStr(j_fichier) & ".txt" For Output As #FileNumber
For i_ligne = 0 To 3500000
Print #FileNumber, "azertyuiop"
Next i_ligne
Close #FileNumber
Next j_fichier

avec ce code ma mémoire est saturée au 17 eme fichier
j'ai essayé ce code aussi

même problème:
Private Sub Command1_Click()
For j = 0 To 15
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest" & j & ".txt", True)
For i = 0 To 4000000
a.WriteLine ("0123456789")
Next i
a.Close
Next j
End Sub

Problème avec mémoire Vive

4 réponses

Discussions similaires