[TP7][Débutant] Lire à partir d'un fichier doc

Version imprimable

30/04/2008, 19h48
adloufi

[TP7][Débutant] Lire à partir d'un fichier doc

le fichier sera de la forme
7200000,xxxx,xxxxxxxxxx,10.10,10.10,10.10
avec plusieur ligne de la forme puis le convertir en string et le decouper en des lignes ou chaque lignes serat elle méme decoupé en des champs et convertir chaque champs en son type(les 10.10 seront traduit en reel):roll:
30/04/2008, 21h37
Alcatîz

Bonjour,

Quel problème rencontres-tu précisément ?
30/04/2008, 22h02
adloufi

explication du problem

le prb consiste en trois etapes
1-lir aprtir d'un fich .doc
2- decomposer le string(apre mettre le fichier doc dans un string)
(72200,aaaaa,bbbb,10.10,10.10)avec +eurs ligne de se type en des champs
3-convertir72200 en integer et 10.10 en real:oops:
30/04/2008, 22h07
dot-_-net

Citation:

Envoyé par adloufi

le prb consiste en trois etapes
1-lir aprtir d'un fich .doc
2- decomposer le string(apre mettre le fichier doc dans un string)
(72200,aaaaa,bbbb,10.10,10.10)avec +eurs ligne de se type en des champs
3-convertir72200 en integer et 10.10 en real:oops:

C’est pas difficile commence et on t’aidera8-)
30/04/2008, 22h15
adloufi

voila se que je peut fair

j'ai put lir d'un fichier text mais pas doc
est j'ai pas diviser en lgne et tout la suite du problém
30/04/2008, 22h33
droggo

Jae,

Citation:

Envoyé par adloufi

j'ai put lir d'un fichier text mais pas doc
est j'ai pas diviser en lgne et tout la suite du problém

Ce que tu nous montres est un fichier text, peu importe son extension. :)
30/04/2008, 22h52
adloufi

voila se que je peut fair

j'ai put lir d'un fichier text mais pas doc
est j'ai pas diviser en ligne et tout la suite du problém
7200,aaaa,aaaaa,10.10,10.10,20.00,12.54
7500,aaaa,avva,10.10,10.10,20.00,12.54
7100,aaaa,aeeaa,10.10,10.10,20.00,12.54
diviser les lignes
diviser les champs
convertir de char vers integer et real(10.10..)
30/04/2008, 23h23
dot-_-net

Citation:

Envoyé par adloufi

j'ai put lir d'un fichier text mais pas doc
est j'ai pas diviser en ligne et tout la suite du problém
7200,aaaa,aaaaa,10.10,10.10,20.00,12.54
7500,aaaa,avva,10.10,10.10,20.00,12.54
7100,aaaa,aeeaa,10.10,10.10,20.00,12.54
diviser les lignes
diviser les champs
convertir de char vers integer et real(10.10..)

Ton doc tu peux le lire comme un fichier binaire
Pour la division des colonnes bhh développe un petit algo pour séparer les champs grâce aux fonctions copy and lenght

comment je peux faire ça

ça a l'air une bonne idée mais comment le faire

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
Program ex1 (input, output);
Uses crt;
Var
    F: text;
    i:integer;
    t,S: string; 
    n:array [1..2]of string;
begin 
   clrscr;
   Assign (f,'c:\a.txt');
   Reset (f);i:=1;
 
   Repeat
        Read (f, s);
        n[i]:=s;
        i:=i+1;
        readln;
   Until eoln (f);
 
   Close (f);
   readln;
 
   repeat
        t:=n[i];
        i:=i+1;
    until i=2;
 
    writeln('t',t);
    readln;
End.

01/05/2008, 00h39
adloufi

ou je suis arriver

j'ai pu s'eparer les ligne mais il me reste de s'eparer les champs et de les convertir

Citation:

Envoyé par adloufi

j'ai pu s'eparer les ligne mais il me reste de s'eparer les champs et de les convertir

Ok essaye de développez ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var c,champ1,champ2,champ3,champ4,champ5,champs6,champs7 :string ;
 
……………………
…………………….
Cp:=0;
for i := 0 to length (s)  faire
begin
C:=copy(s,i,1);
If(c=’,’) cp:=cp+1;//si c’est une virgule on incrémenter juste le compteur
Else
begin
If(cp=0) then champ1:=champ1+c;
If(cp=1)then champ2:=champ2+c;
If(cp=2) then champ3:=champ3+c;
If(cp=3)then champ4:=champ4+c;
If(cp=4) then champ5:=champ5+c;
If(cp=5)then champ6:=champ6+c;
If(cp=6) then champ7:=champ7+c;
End;
End:
 
.........

01/05/2008, 19h33
adloufi

problem avec lenght et strings

quand j'été sur le points d'executer le code mon turbo n' a pas l'unite wincrt
string
01/05/2008, 19h37
dot-_-net

Citation:

Envoyé par adloufi

quand j'été sur le points d'executer le code mon turbo n' a pas l'unite wincrt
string

Pour turbo pascale je pense tu dis travailler juste avec uses crt
01/05/2008, 19h46
adloufi

Pour turbo pascale je pense tu dis travailler juste avec uses crt

mais la fct lenght ne fonctionne pas
01/05/2008, 19h49
dot-_-net

Citation:

Envoyé par adloufi

mais la fct lenght ne fonctionne pas

length pas lenght
01/05/2008, 19h55
adloufi

le message

le turbo pascal affiche ""unknown identifier"" por lenght (s)
01/05/2008, 20h02
dot-_-net

Citation:

Envoyé par adloufi

le turbo pascal affiche ""unknown identifier"" por lenght (s)

length pas lenght
01/05/2008, 20h23
adloufi

merci dot-_-net

le problem est resolu :yaisse2:
01/05/2008, 20h35
dot-_-net

Citation:

Envoyé par adloufi

le problem est resolu :yaisse2:

Mais ton problème avec lecture du doc n’est pas résolu:aie: