Discussion :

[Ardely]

Bonjours,
Avant de commencer ma programmation j'aurai bien voulu d'abord avoir votre avis sur mon raisonnement de programmation si cette façon de le faire est correcte ou pas!
Donc, pour le moment j'ai un fichier texte qui peux être très gros (90..MB) et à des moments je dois inserer par exemple à la ligne 1700, une nouvelle ligne texte + CRLF. ou tout simplement modifier cette ligne!
Voilà comment j'ai voulu réaliser, tout simplement de faire une boucle, rechercher le nombre CRLF jusqu'a 1700, si No_CRLF est atteins alors rentre dans la condition pour ajouter ou modifier la ligne 1700, après recopie tout le reste au fichier destination.
Puis effacer le fichier source et renommer le fichier destination en fichier source.
Le seul souci que je vois est que si je prends par exemple la ligne 47000 tout cela peut prendre beaucoup de temps, car il faut passer du début ligne à la ligne 47000...
Merci beaucoup de me guider...
Voici un peut prés mon idée de programation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
OpenDialog1_Execute :=  'MonFichier1.txt';
SaveDialog1_Execute :=  'MonFichier2.txt';
 
repeat
BlockRead();
 
  TempStr1 := Copy()// copy la ligne jusque CRLF dans une variable
 
  no_CRLF := no_CRLF +1; // incremente le nombre de ligne expl. jusque 1700
  If no_CRLF = Edit1.text then
  begin
 
    InputQuery('Modifier la ligne expl 1700);
    // Si pas modifier ajoute une nouvelle ligne 
    ..
     InputQuery('Ajouter une nouvelle ligne);
     // ajouter une nouvelle Ligne..
     ..
    end;
     Seek(Source,Length(TempStr1)+..) // se position au prochain CRLF
     ..
 BlockWrite(); // -> 'MonFichier2.txt'
until (NumRead = 0) ;
CloseFile(F);
Erase(F) // MonFichier1.txt
Rename(F) // 'MonFichier2.txt' -> 'MonFichier1.txt'

Salutations
Ardely

[qi130]

L'approche logique semble correcte.

Par contre si j'avais à le programmer, j'utiliserais ReadLn plutôt que BlockRead, évitant ainsi la recherche du CRLF dans les données acquises.

Quant à "l'optimisation", elle est fortement compromise du fait de la lecture séquentielle obligatoire, sauf si toutes les lignes sont de même longueur. Alors, dans ce cas, on peut se positionner directement dans le fichier.
Cependant, ça ne résoud pas l'insertion (le début du fichier n'ayant pas été lu).

[tourlourou]

tes lignes sont-elles de longueur fixe ?
sinon, utilité de TextFile et ReadLn (lent et ne permet pas l'insertion)

[Ardely]

Non, mes longueurs ne sont pas de longueur fixe.
Mais si je les mettrais en longueur fixe quelle avantage..à part que la capacité
pourrait augmenter considérablement.

[Graffito]

Bonjour,

Y-a-t'il une certaine flexibilité pour formatter le fichier ?
Par exemple :

• les blancs de fin de ligne sont-ils significatifs ?
• pourrais-t'on introduire des lignes "bidon" d'ajustement en début ou fin de
  de bloc ?

[Eric Boisvert]

Des longueurs fixe dans tes lignes te permetterais
dans les faits de te positionner rapidement dans le fichier.
si une ligne=120 carateres(CR+LF inclus), on peut dire que la ligne 500 est
à la position (120*500)=60000.
donc, un deplacement de 60000 dans le fichier avec FileSeek() te positionne correctement.

C'est plus rapide que lire "les moins de caractère que tu as présentement"
et de chercher 500 fois l'occurence de CR+LF.
Cette recherche est probablement la plus couteuse en temps CPU dans le code que tu à énoncé.

[Ardely]

A bon je vois maintenant l'astuce de la longueur fixe, il faudra juste faire attention que cette ligne ne dépasse jamais cette longueur!
Dois-je aussi toujours garder l'idée de procéder de copier tout le fichier vers un autre fichier destination, effacé l'original et puis renommer le fichier destination!
Je philosophe peut-être un peut, mais une façon de chercher la No ligne couper puis coller le reste a la destination, sa existe!

[Eric Boisvert]

Si tu veux loader tout le fichier en memoire, aucun probleme...
vite dans les airs..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
    slFichier:=TStringList.Create;
    try
        slFichier.LoadFromFile(Fichier1);
        if Mode=Modif then slFichier.Strings[NumeroLigne-1,NewStr);
        if Mode=Insert then slFichier.Insert(NumeroLigne-1,NewStr);
        slFichier.SaveToFile(Fichier1);
    finally
        slFichier.Clear;
        slFichier.free;
    end;

Ca serait le plus simple je crois. Mais bon encore je lis et écris tout
le fichier.

sinon...
- Trouve la bonne position et la mémorise
- Lecture dans un BigBuffer du restant du fichier
- Modif du BigBuffer
- Retour à Position mémorisé dans le fichier
- Ecrire le BigBuffer par dessus
Bon..quelque chose du genre...
plus la modif est vers la fin du fichier, plus c'est rapide.