Discussion :

[sandokhane]

Bonjour,
voilà j'ai un fichier txt (forme.txt), et j'aime bien savoir s'il y a une méthode pour récupérer les données de ce fichier et les insérer dans une Table.
à vrai dire mon problème c'est que je ne sais pas comment les enregistrements dans ce fichier txt sont organisés (Records ou tout simplement séparés par des Tabulations).

Merci d'avance.

[Fxg]

A ouvrir avec un éditeur de texte et là on voit que le prmeier 'champ' est sur 3 caractère puis le deuxième sur 49 caractères et le dernier sur 20 caractères

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
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var F: TextFile;
Stg,stg1,stg2,stg3:String;
begin
Memo1.Clear;
Memo2.clear;
Memo3.clear;
AssignFile(F,ExtractFilePath(Application.ExeName)+'forme.txt');
Reset(F);
repeat
Readln(F,Stg);
stg1:=copy(stg,1,3);
stg2:=copy(stg,4,49);
stg3:=copy(stg,54,20);
Memo1.Lines.Add(Stg1);
Memo2.Lines.add(stg2);
Memo3.Lines.add(stg3);
until EOF(F);
CloseFile(F);
end;

Sur le Form il y a un SpeedButton et 3 Memos. Le fichier Formes.txt est dnas le même répertoire que le projet.
avec stg1 stg2 et stg3 qui contiennent les 3 valeurs de chacune des lignes à inclure après dans les champs de la table.

[sandokhane]

A ouvrir avec un éditeur de texte et là on voit que le prmeier 'champ' est sur 3 caractère puis le deuxième sur 49 caractères et le dernier sur 20 caractères

Sur le Form il y a un SpeedButton et 3 Memos. Le fichier Formes.txt est dnas le même répertoire que le projet.
avec stg1 stg2 et stg3 qui contiennent les 3 valeurs de chacune des lignes à inclure après dans les champs de la table.

Je vous remercie... mais c vraiment astucieux ...de manipuler directement les Strings.

[Fxg]

un petit clic sur [Resolu] alors ?

[sandokhane]

j'ai essayé la méthode sur un fichier de 8Mo de données... ça marche mais l'opération d'insertion des données dans la table est très très lente....donc la question se pose... est-ce qu'il y a un remède pour accélérer le traitement des Strings et les insérer dans la Table ?

[samaury]

1 - Tu utilises quoi comme base?
2 - Un bout de code de ce que tu fais actuellement pourrais nous aider...à t'aider.

[chaplin]

j'ai essayé la méthode sur un fichier de 8Mo de données... ça marche mais l'opération d'insertion des données dans la table est très très lente....donc la question se pose... est-ce qu'il y a un remède pour accélérer le traitement des Strings et les insérer dans la Table ?

- 8 Mo = 8 000 000 Octets

A ouvrir avec un éditeur de texte et là on voit que le prmeier 'champ' est sur 3 caractère puis le deuxième sur 49 caractères et le dernier sur 20 caractères

Taille d'un enregistrement:
- 3+49+20=72
Nombre d'enregistrements:
8 000 000/72 ~ 100 000

Désolé, j'ai rien du comprendre à tes explications, j'ai pas regardé ce qu'il y avait dans le fichier de 8Mo.

[Bingo25]

Salut tout le monde;
j'ai le même problème que sandokhane sauf que moi j'utilise des tables de type Paradox 7 et et que je veut extraire les données a partir d'un fichier texte qui se trouve dans un CD-ROM (lecteur CD)

Aidez moi SVP

[samaury]

Salut Bingo25
Tu as testé les solutions proposées dans cette discussion?
Si oui ou est-ce que tu bloques exactement?
Si non... commence par mettre en oeuvre ces solutions, surtout la dernière : Packed Record + TFileStream

[Bingo25]

Quelle est la fonction qui renvoie la partie décimal d'un nombre?

[Ph. B.]

Quelle est la fonction qui renvoie la partie décimal d'un nombre?

Delphi via la touche permet d'obtenir une aide et vous auriez trouvé que la fonction Frac répond à votre demande. function Frac(X: Extended): Extended;