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 .
![]()
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 .
![]()
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
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...
Salut
mon fichier ASCII (.txt) a la forme suivante:
et je veux le lire et l'recrire en format binaire "fichier binaire"
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
j'éspère que c'est assez claire pour vous mes amis![]()
Bonjour à toutes et à tous,
@ Medoou, peut être avec ces deux fonctions :
A toi de l'adapter.
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;
@+,
Cincap
je suppose que tu sais le lire déjà non ?
tu le stockes dans une structure mémoire ?
ben il suffit de sauvegarder directement ladite structure dans un fichier et puis voila
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;![]()
Merci,pour ton idée mais je ne pense pas qu'il sera possible,parcque mon tableau contient plusieurs centaine de valeurs numérique![]()
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![]()
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????![]()
je vous joint mon fichier '.txt 'que je cherche à le convertir en format binaire '.shp'
Aidez moi SVP
Bonjour
Ton fichier .shp c'est un format shapefile ?
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 ??![]()
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![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager