lecture de fichier fixe de plus de 2Go

Bonjour,

j'ai un petit souci avec un vieux programme en VB6, je lis un fichier avec des lignes de longueur fixe (sans caractère de fin de ligne) et j'utilise la fonction LOF pour calculer le nombre d'enregistrement à traiter dans une boucle For, mais ça ne fonctionne plus avec des fichiers de plus de 2Go (exemple pour un fichier de 2,3Go LOF renvoi un nombre négatif ...), exemple de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Type FicIn enr as string*400 end type   Dim Fic as string Dim Enr0 as Ficin   Fic = "<chemin du fichier>" Open Fic For Random as #1 Len=len(Enr0) nbEnr = LOF(1) / Len(Enr0) For nEnr=1 To nbEnr ... GET #1,nEnr,Enr0 traitement de chaque enregistrement Enr0 ... Next nEnr Close

---

Existe-t-il une méthode simple pour mettre à jour le programme (en restant en VB6) pour remplacer la fonction LOF et garantir que le GET continuera de fonctionner au delà des 2Go ?

Merci de votre retour
Alain

Bonsoir,
VB6 étant 32bits, quasi toutes les limitations découlent de la limite des 4 octets signés (2^31-1)
soit 2147483647.
C'est le cas des limites de tableaux, de string, de lecture d'un long.
L'astuce consiste donc à lire le fichier par fragment via les api
ou plus simplement en utilisant la librairie VB6i (http://vb6i.com/#File_Methods.htm)

Merci pour ton retour
En fait j'ai testé une autre méthode qui fonctionne avec VB6 de base : fso

voici un code qui fonctionne sans être gêné par la limite des 2 Go :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Type EnrIn codeEnr As String * 2 compte As String * 8 detail As String * 300 End Type Type EnrIn0 data As String * 400 End Type   Private Sub Lecture() Dim x Dim fic As String Dim fso As New FileSystemObject Dim f As File, s As Long Dim nbenr As Long Dim Enr As EnrIn Dim Enr0 As EnrIn0 Dim TS As TextStream   fic = "<monFichier>" x = CDec(0) Set f = fso.GetFile(fic) x = f.Size nbenr = x / 400 Set TS = fso.OpenTextFile(fic, ForReading) For nenr = 1 To nbenr Enr0.data = TS.Read(Len(Enr)) LSet Enr = Enr0 Next Close End Sub

---

Donc pour la taille du fichier, l'objet fso possède la méthode size qui gêre au delà des 2Go => ce qui remplace la fonction LOF
La commande open est remplacée par fso.opentextFile, le handle n'est plus numérique => la commande get ne fonctionne plus, mais la méthode Read sur le Handle avec une longueur correspond.
La différence est que le résultat du READ ne peut pas être affecté directement une variable de type structure, j'ai dû passer par une structure intermédiaire.

Mais au résultat ça fonctionne correctement avec le fichier de 2,7 Go

Merci
Alain

Bonjour

Es-tu certain, si cette appli doit être déployée, que VBS sera autorisé sur toutes les machines clientes ? D'aucuns ont décidé de l'inhiber.

Le filesystemobject rame à mort. Pour les traitements lourds, ce n'est pas la panacée.