Discussion :

[Medoou]

Salut
Comment en écrit un fichier en binaire ?
autrement dit ;j'ai un fichier .txt qui contien un tableau avec des valeurs numérique, et je veux le lire et le récrire mais en binaire .
aider moi SVP je fait mon premier pas .

[khaled-benloucif]

regarde ici:
http://flash-koti.developpez.com/art...4-tfilestream/

[Medoou]

Merci c'est trés gentil de ta part, mais franchement je n'ai rien capté
y a pas un exemple plus facile à comprendre
en faite mon fichier ASCII à lire et à transformer en fichier binaire c'est un tableau de 6 collones et 100 ligne!! voilà. SVP c'est pour demain

[Andnotor]

Binaire, c'est vague , Pas facile sans exemple.

Montre-nous les fichiers "ASCII" en entrée et la sortie voulue ! On pourra peut-être te dire comment le convertir.

Quelles données attend l'application cible (A quoi sert-elle) ? Du binaire on a compris mais encore...

[Medoou]

Salut
mon fichier ASCII (.txt) a la forme suivante:

Code :

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

1
2
3
4
5
6
7
8
1      0.9      0.2         0.
2      5.2       0.6       10
3      10        0.1       80
4      0.9        5        20 
.       .         .         .
.       .         .         .
.       .         .         .
100    5.1        5         90

et je veux le lire et l'recrire en format binaire "fichier binaire"
j'éspère que c'est assez claire pour vous mes amis

[cincap]

Bonjour à toutes et à tous,

@ Medoou, peut être avec ces deux fonctions :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
// Conversion d'un texte vers sa représentation binaire
 
function StrToStrBin(const S: string): string;
var pOutput : pChar;
    pInput : ^byte;
    N, LenInput : integer;
const
  AtBin : array[boolean] of char = '01';
begin
  LenInput := Length(S);
  SetLength(Result, LenInput shl 3);
  pInput := @S[1];
  pOutput := pChar(result);
  for N := 1 to LenInput do
  begin
    pOutput[0] := AtBin[(pInput^ and $80) = $80];
    pOutput[1] := AtBin[(pInput^ and $40) = $40];
    pOutput[2] := AtBin[(pInput^ and $20) = $20];
    pOutput[3] := AtBin[(pInput^ and $10) = $10];
    pOutput[4] := AtBin[(pInput^ and $08) = $08];
    pOutput[5] := AtBin[(pInput^ and $04) = $04];
    pOutput[6] := AtBin[(pInput^ and $02) = $02];
    pOutput[7] := AtBin[(pInput^ and $01) = $01];
    inc(pOutput,8);
    inc(pInput);
  end;
end;
 
// Conversion d'une représentation binaire en texte.
 
function StrBinToStr(const S: string): string;
var pInput : PChar;
    pOutput: ^Byte;
    N, LenInput: integer;
const
  AtBin : array['0'..'1'] of byte = (0,1);
begin
  LenInput := Length(S);
  SetLength(result, LenInput shr 3);
  LenInput := Length(result);
  pInput := PChar(S);
  pOutput := @result[1];
  for N := 1 to LenInput do
  begin
    pOutput^ := 0;
    pOutput^ := byte( (AtBin[pInput[0]] shl 7) or
                      (AtBin[pInput[1]] shl 6) or
                      (AtBin[pInput[2]] shl 5) or
                      (AtBin[pInput[3]] shl 4) or
                      (AtBin[pInput[4]] shl 3) or
                      (AtBin[pInput[5]] shl 2) or
                      (AtBin[pInput[6]] shl 1) or
                       AtBin[pInput[7]]
                  );
    inc(pInput, 8);
    inc(pOutput);
  end;
end;

A toi de l'adapter.

@+,

Cincap

[Paul TOTH]

Salut
mon fichier ASCII (.txt) a la forme suivante:

Code :

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

1
2
3
4
5
6
7
8
1      0.9      0.2         0.
2      5.2       0.6       10
3      10        0.1       80
4      0.9        5        20 
.       .         .         .
.       .         .         .
.       .         .         .
100    5.1        5         90

et je veux le lire et l'recrire en format binaire "fichier binaire"
j'éspère que c'est assez claire pour vous mes amis

je suppose que tu sais le lire déjà non ?
tu le stockes dans une structure mémoire ?

Code :

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

1
2
3
4
 
type
  TData = array[0..2] of Double;
  TDataFile = array of TData;

ben il suffit de sauvegarder directement ladite structure dans un fichier et puis voila

[Medoou]

Merci,pour ton idée mais je ne pense pas qu'il sera possible,parcque mon tableau contient plusieurs centaine de valeurs numérique

[Paul TOTH]

Merci,pour ton idée mais je ne pense pas qu'il sera possible,parcque mon tableau contient plusieurs centaine de valeurs numérique

et alors ?!

[Medoou]

En fait l'extention de mon fichier Binaire que je veux abtenir est ".shp"
en gros je veux transformer mon fichier ASCII".txt" en fichier Binaire".shp"
et ça marche pas avec ta méthoe

[Paul TOTH]

En fait l'extention de mon fichier Binaire que je veux abtenir est ".shp"
en gros je veux transformer mon fichier ASCII".txt" en fichier Binaire".shp"
et ça marche pas avec ta méthoe

ce qui ne fonctionne pas, c'est ta démarche, car tu cherches probablement à produire un fichier dans un format déterminé que tu ne connais pas.

[Medoou]

je suis désolé de vous embêter, mais j'arrive pas
maintenat j'arrive à lire mon fichier ASCII qui contien mon tableau
Aprés pour le sauvgarder sous format (binaire)".shp" je ne vois pas comment????

[Medoou]

je vous joint mon fichier '.txt 'que je cherche à le convertir en format binaire '.shp'
Aidez moi SVP

[Fxg]

Bonjour

Ton fichier .shp c'est un format shapefile ?

[Medoou]

Oui oui!! c'est ça

[Fxg]

Le format du fichier est décrit Ici
si tu fais une recherche sur le forum tu trouveras certe pour Java un début de Réponse par exemple

[Medoou]

Je suis désolé
je trouve pas la réponse à ma question convertir de ".txt " vers ".shp".
On m a dit qu'il faut utiliser "TFileStream"
mais je vois pas comment ??

[Fxg]

Je pense que tu mets la charrue avant les boeufs.
Avant de savoir comment lire un fichier et écrire dans un autre fichier je pense qu'il vaut mieux comme le souligne Paul Toth, connaitre la structure du fichier d'arrivée.
Dans le cas précis, il semble qu'il n'existe pas de fonction déjà faite et disponible pour lire/écrire les fichiers shapefile en delphi. Donc bon courage