[VB6] Creazione di file di testo

[iValerio]

Salve a tutti.

Programmo in ambiente VB6 da circa 3 mesi e il mio problema è il seguente:

devo effettuare una scansione in vari file di testo alla ricerca di particolari errori al loro interno.
Una volta trovati, voglio stampare il resoconto della scansione in un file di testo.
Vado prima a riempire una ListBox con il resoconto e poi scrivo riga per riga, quest'ultimo su un
file di testo da me creato:

Open strFullPath For Append As #1
Do While contatore <= frmScansione.lstScansioneFinale.ListCount
nameConten = frmScansione.lstScansioneFinale.List(contatore)
Print #1, nameConten
contatore = contatore + 1
Loop
Close #1

il codice postato riguarda solamente la parte di creazione file e scrittura al suo interno.

Bene l'applicazione funziona perfettamente, ma, se il resoconto della scansione diventa molto grande, caso in cui gli errori trovati sono molti, il file di testo viene chiaramente creato ma vuoto!!!
Visto che i file di testo hanno dimensioni molto grandi non vedo il motivo per cui dovrebbe crearlo vuoto.
Premetto che in casi come questo, la dimensione del file, se lo creasse e riempisse bene, sarebbe massimo di un 1.5M.
Premetto che per resoconti più piccoli(900K), il file viene creato e riempito perfettamente.

Spero di essere stato chiaro.

Grazie

[oregon]

Probabilmente il programma non entra neanche nel ciclo

Do While contatore <= frmScansione.lstScansioneFinale.ListCount

e per capire il perche' bisogna sapere di che tipo e'

contatore

se viene inizializzato prima del ciclo ad un valore specifico e, soprattutto, quanto vale

frmScansione.lstScansioneFinale.ListCount

nel momento in cui inizia il ciclo stesso.

Puoi avere queste informazioni anche eseguendo il codice in debug e fermandolo proprio nella linea del do while

[Grumpy]

Come è definita la variabile Contatore?
E' proprio indispensabile caricare prima la ListBox?

Edit:
Ops, scusa oregon

[iValerio]

Originariamente inviato da Grumpy
Come è definita la variabile Contatore?
E' proprio indispensabile caricare prima la ListBox?

Edit:
Ops, scusa oregon

La variabile contatore è di tipo Integer
e viene inizializzata a 0 prima di entrare nel ciclo Do While
Ripeto il file viene popolato bene ma se il contenuto della scansione diventa molto corposo, il file di testo viene creato ma vuoto ed in alcuni casi viene popolato ma non completamente.
é indispensabile caricare prima la ListBox perchè si deve aver subito visualizzata la scansione sul monitor.

[optime]

'molto corposo' cosa vuol dire?

[oregon]

Intanto utilizza un Long per la variabile e non un Integer ...

E poi ... quante sono le righe che carichi ?

P.S. Grumpy, no problem ... meglio two che one ... :-)

[iValerio]

Originariamente inviato da oregon
Intanto utilizza un Long per la variabile e non un Integer ...

E poi ... quante sono le righe che carichi ?

P.S. Grumpy, no problem ... meglio two che one ... :-)

Nel caso il file venga popolato correttamente, le righe che carico sono 2590
Nel caso venga creato vuoto, andando a stampare le righe della ListBox, mi scrive -10400????

Ho utilizzato un Long come mi hai consigliato tu

[oregon]

Originariamente inviato da iValerio
Ho utilizzato un Long come mi hai consigliato tu

Ma forse hai caricato piu' di 32767 linee nella listbox ?

Se e' cosi', non puoi superare questo limite ... e non ha neanche senso che mostri piu' di 32000 linee in una listbox ...

[iValerio]

Originariamente inviato da oregon
Ma forse hai caricato piu' di 32767 linee nella listbox ?

Se e' cosi', non puoi superare questo limite ... e non ha neanche senso che mostri piu' di 32000 linee in una listbox ...

Quando supero le 32767 linee, comunque la scansione completa nella ListBox la carica, ma il file di testo viene creato vuoto, questo vuol dire che posso caricare più di 32767 linee nella ListBox credo o sbaglio?

[oregon]

E' la ListCount che dopo quel valore ha problemi (essendo un Integer ...).