Discussion :

[petitcoucou31]

Bonjours a tous
Je suis en train de me poser la question sur la parfaite compatibilité entres des fichiere "dos" ( sur 16 bits ) que l'on recupere avec windows Xp !

Je vous expose mon problème :
A partir d'un programme qui tourne sous "dos" on genere un fichier qui a une structure simple , chaque enregistrement est une chaine de caractere sur de 25 caracteres max , quand je le copie sur un systeme sous windows et que je l'ouvre avec le bloc note , il se presente sous la forme suivante :

exemple :
☺abc.1 ☺abc.12 ☺abc.13
☺abc.36 ☺abc.26 ☺abc.14
☺abc.42 ☺abc.245 ☺abc.25
ainsi de suite ...

remarque: Tous les champs on la même taille et nombre de caracteres par ligne est geré par le bloc note.

J'ai donc réecris une structure sous delphi qui me permete de lire ces fichiers . Le resultat de ma lecture presentait des erreurs et je mettais mon code en cause .

Je viens de me rendre compte que les changements ( mes erreurs )existent sur le fichier source que j'essaye de lire , donc des fichiers que j'ai recuperer sur un systeme qui tourne sous dos .
Pour resumé un fichier dit correct sur le systeme dos subit des changement le fait de le passer sur un systeme Windows ( 32 bit ) je ne sais pas pour les version windows 16 bits .

Les erreur sont toujours les memes ,quand je regarde avec le bloc note un fichier que je recupere sous "dos" mes erreurs sont :
Des rajouts de caracteres pour voir un nombre de caractere egal a l'enregistrement precedant , je met un exemple ci dessous pour que ce soit plus explicite , en mettant les carateres en erreurs en gras.
La colonne de gauche est le fichier tel qu il devrait ce presenter et celle de droite celle que je lit avec le bloc note.

fichier ok ....................... Fichier en erreur
sous dos ........................ Fichier sous windows avec le bloc note

ABC.1...............................ABC.1
ABC.2...............................ABC.2
ABC.10.............................ABC.10
ABC.1...............................ABC.13
CkV.20............................. CkV.20
TSP.301............................ TSP.301
RTC.1............................... RTC.121
JJK.20............................... JJK.208

Les points sont juste là pour aligner les deux colonne !
Voila si quelqu'un à déjà recontré cela ou a juste une idée... je suis preneur .

Par contre sous le "dos" nous etions sous un systeme FAT , mes systemes sont en NTFS peut etre cela aussi peut avoir une insidence !

merci a tous et aussi merci de me lire jusqu'au bout !

[cpdump]

DOS (code OEM) et Windows ne codent pas les char > 127 de la même façons (pas le même code page), il faut utiliser une routine de conversion. recherche dans le forum, le sujet a déjà été évoqué

[petitcoucou31]

oki je vais jetter un coup d'oeil sur le forum , mais les caracteres > 127 sont des caracteres "exotiques" ou semi-graphiques de l'epoque du "dos" , les chaines que je dois lire ne comportent que des caracteres alphanumeriques et quelque ponctuation donc si mes souvenir sont bon des caracteres inferieur a 127 .

merci quand meme .

[Laurent Dardenne]

Tu peux mettre les 2 fichiers en ligne ?

[petitcoucou31]

laurent Dardenne ,
Oui je veux bien le mettre en ligne si tu me dit comment m'y prendre pour que tu puisse le recuperer .
Par contre pas les deux fichiers mais seulement le fichier qui est sous windows donc celui qui est erroné.
Theoriquement les deux fichiers sont identiques et subissent une "Transformation" quand ils passent d'un systeme 16 bits sur un systeme 32 bits.
J'ai entre mon 1er post et maintenant essayer d'autres fichiers de meme type , les l'erreur se generalise sur tout ces fichiers là ( pas de probleme pour des fichiers de type texte par contre).

Comme je le mettais dans mon 1er post :
La taille de mes enregistrements sont fixe et limité a 24 caracteres valide + 3 caractere de controle .
Ils ont tous la meme taille .
Le programme qui crée ce fichier a ete ecris en turbo pascal 5 .
Les erreurs sont toujours des espaces dans mes champs qui sont remplacé par ces caracteres alphanumeriques a la fin des caracteres dit " valide".
Lorsque un champ lu possede par exemple 8 carateres valide + des espace pour completer la chaine jusqu'a 24 , si des champs lu par la suite possede moins de 8 caracteres valide, il complete le champ avec des caracteres aleatoire jusqu'au 8eme carateres .. ( voir mon exemple dans le 1er post )

La manip que je vais essayer de faire c'est de repasser sur une machine ayant un OS dos , un fichier ayant été copier sur une systeme avec un OS 32 bits et voir si des changements de produisent encore .

Pour TOUT renseignement suplementaire contacté moi ..

Merci.

[Laurent Dardenne]

Oui je veux bien le mettre en ligne si tu me dit comment m'y prendre pour que tu puisse le recuperer .

Place les sur un ftp ensuite tu donne l'adresse en http.
Sinon
Peux-tu sous Windows en mode console afficher sous Debug :
- les premières lignes du fichier DOS.
- les premières lignes du fichier Windows.

Debug filename.ext[return]
D [return]
D [return]
Q [return]
puis recopier l'écran

Résultat :

Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Temp>debug input.txt
-d
1547:0100 61 20 31 30 30 0D 0A 6D-6F 76 20 44 4C 2C 32 31 a 100..mov DL,21
1547:0110 0D 0A 6D 6F 76 20 41 48-2C 30 32 0D 0A 49 4E 54 ..mov AH,02..INT
1547:0120 20 32 31 0D 0A 6D 6F 76-20 61 78 2C 34 43 30 30 21..mov ax,4C00
1547:0130 0D 0A 49 4E 54 20 32 31-0D 0A 0D 0A 6E 20 62 65 ..INT 21....n be
1547:0140 65 70 2E 63 6F 6D 0D 0A-72 20 63 78 0D 0A 42 0D ep.com..r cx..B.
1547:0150 0A 77 0D 0A 71 0D 0A 00-00 00 00 00 00 00 00 00 .w..q...........
1547:0160 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:0170 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
-d
1547:0180 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:0190 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01A0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01B0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01C0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01D0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01E0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
1547:01F0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00 ................
-q
C:\Temp>

[petitcoucou31]

Voici des parties du fichier sur lesquel les caracteres en gras sont les caracteres qui ne devrai pas exister et qui remplace donc des espaces .


153E:09B0 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 00 .
153E:09C0 00 07 31 30 56 43 2E 31-37 20 20 20 20 20 20 20 ..10VC.17
153E:09D0 20 20 20 20 20 20 20 20-20 20 00 00 07 31 30 56 ...10V
153E:09E0 43 2E 31 36 20 20 20 20-20 20 20 20 20 20 20 20 C.16
153E:09F0 20 20 20 20 20 00 00 07-31 30 56 43 2E 31 35 20 ...10VC.15
-d
153E:0A00 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20
153E:0A10 00 00 07 31 30 56 43 2E-31 34 20 20 20 20 20 20 ...10VC.14
153E:0A20 20 20 20 20 20 20 20 20-20 20 20 00 00 07 31 30 ...10
153E:0A30 56 43 2E 31 33 20 20 20-20 20 20 20 20 20 20 20 VC.13
153E:0A40 20 20 20 20 20 20 00 00-07 31 30 56 43 2E 31 32 ...10VC.12
153E:0A50 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20
153E:0A60 20 00 00 07 31 30 56 43-2E 31 31 20 20 20 20 20 ...10VC.11
153E:0A70 20 20 20 20 20 20 20 20-20 20 20 20 00 00 07 31 ...1
-d
153E:0A80 30 56 43 2E 31 30 20 20-20 20 20 20 20 20 20 20 0VC.10
153E:0A90 20 20 20 20 20 20 20 00-00 06 31 30 56 43 2E 39 ...10VC.9
153E:0AA0 32 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 2
153E:0AB0 20 20 00 00 06 31 30 56-43 2E 38 33 20 20 20 20 ...10VC.83
153E:0AC0 20 20 20 20 20 20 20 20-20 20 20 20 20 00 00 06 ...
153E:0AD0 31 30 56 43 2E 37 34 20-20 20 20 20 20 20 20 20 10VC.74
153E:0AE0 20 20 20 20 20 20 20 20-00 00 06 31 30 56 43 2E ...10VC.
153E:0AF0 36 35 20 20 20 20 20 20-20 20 20 20 20 20 20 20 65
-q
-------------------

d'autres lignes se trouve la ...

------------------
153E:20A0 20 20 00 00 06 34 56 43-2E 37 33 38 20 20 20 20 ...4VC.738
153E:20B0 20 20 20 20 20 20 20 20-20 20 20 20 20 00 00 06 ...
153E:20C0 34 56 43 2E 37 34 38 20-20 20 20 20 20 20 20 20 4VC.748
153E:20D0 20 20 20 20 20 20 20 20-00 00 06 34 56 43 2E 37 ...4VC.7
153E:20E0 35 38 20 20 20 20 20 20-20 20 20 20 20 20 20 20 58
153E:20F0 20 20 20 00 00 06 34 56-43 2E 37 36 38 20 20 20 ...4VC.768
-d
153E:2100 20 20 20 20 20 20 20 20-20 20 20 20 20 20 00 00 ..
153E:2110 06 34 56 43 2E 37 37 38-20 20 20 20 20 20 20 20 .4VC.778
153E:2120 20 20 20 20 20 20 20 20-20 00 00 06 34 56 43 2E ...4VC.
153E:2130 37 38 38 20 20 20 20 20-20 20 20 20 20 20 20 20 788
153E:2140 20 20 20 20 00 00 05 32-56 43 2E 31 38 38 20 20 ...2VC.188
153E:2150 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 00 .
153E:2160 00 05 32 56 43 2E 32 38-38 20 20 20 20 20 20 20 ..2VC.288
153E:2170 20 20 20 20 20 20 20 20-20 20 00 00 05 32 56 43 ...2VC
-d
153E:2180 2E 33 38 38 20 20 20 20-20 20 20 20 20 20 20 20 .388
153E:2190 20 20 20 20 20 00 00 05-32 56 43 2E 34 38 38 20 ...2VC.488
153E:21A0 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20
153E:21B0 00 00 05 32 56 43 2E 35-38 38 20 20 20 20 20 20 ...2VC.588
153E:21C0 20 20 20 20 20 20 20 20-20 20 20 00 00 05 32 56 ...2V
153E:21D0 43 2E 36 38 38 20 20 20-20 20 20 20 20 20 20 20 C.688
153E:21E0 20 20 20 20 20 20 00 00-05 32 56 43 2E 37 38 38 ...2VC.788
153E:21F0 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20

Remarque: N'ayant de systeme qui tourne sous dos donc en 16 bits, je ne peux pas fournir un fichier n'ayant pas d'erreur.

merci pour l'aide.

[SfJ5Rpw8]

Comment fais-tu pour lire le fichier sous Delphi... en regardant ton "debug" j'ai l'impression que toute tes lignes commence par un mot contenant le nombre de caractére contenu dans la ligne...

153E:0AB0 20 20 00 00 06 31 30 56-43 2E 38 33 20 20 20 20 ...10VC.83

[Laurent Dardenne]

Mon approche était de comparer les 2 fichiers

Ton pb provient, à mon avis, d'un calcul de taille dans le programme Dos.
Est-ce des enregistrement ou des strings qui sont manipulées ?

153E:0AB0 20 20 00 00 06 31 30 56-43 2E 38 33 20 20 20 20 ...10VC.83

06 c'est la taille de la chaine, pour les ajouts 2,3,4,5 (Ascii : 33,34,35,36) ?

153E:0A60 20 00 00 07 31 30 56 43-2E 31 31 20 20 20 20 20 ...10VC.11

Structure à contrôler avant tout .
Tu as le code source du prg DOS ?
[edit]
Trop tard
[/edit]

[petitcoucou31]

En fait non je n'ai pas le source en pascal , le client me fournit les fichier brut de pomme !!

D'ou des essais concecutif pour trouver la bonne structure des enregistrements !
je vous donne ma routine de lecture

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
 
Function lectureligne;
 
type Ttrans = record
       Ligne : array[1..27] of char ;
end;
var 
   s1: string[27] ;
Begin
      Assignfile(Ftrans,F);
      Reset(Ftrans) ;
      While not eof ( FTrans ) do
      begin
              read ( Ftrans,Trans);
              S1:=Trim(trans.ligne);
              memo1.lines.add(S1);
      end;
      closefile(Ftrans);
End

voila en simplifié ! , je lit juste la "string" ! qui doit faire 24 caractere + les 3 carateres de controle

[petitcoucou31]

je veux bien mettre ma structure en cause ,
mais je ne comprends pas que la lecture du fichier avec le bloc note de windows me donne pas la meme chose qu'en mode dos !

c'est cela qui me fait penser a un probleme de lecture de windows . avec des Os differents .

[Laurent Dardenne]

D'ou des essais concecutif pour trouver la bonne structure des enregistrements !

N'est-ce pas plûtot de compenser le bug ?

153E:0A60 20 00 00 07 31 30 56 43-2E 31 31 20 20 20 20 20 ...10VC.11
153E:0A70 20 20 20 20 20 20 20 20-20 20 20 20 00 00 07 31 ...1
-d
153E:0A80 30 56 43 2E 31 30 20 20-20 20 20 20 20 20 20 20 0VC.10
153E:0A90 20 20 20 20 20 20 20 00-00 06 31 30 56 43 2E 39 ...10VC.9
153E:0AA0 32 20 20 20 20 20 20 20-20 20 20 20 20 20 20 20 2

Ici la derniére chaîne a une taille < à la précédente.
Dans ton code au lieu d'utiliser Trim, recopie la chaine par

Code :

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

1
2
3
4
 
Fill(@new,27,#32)
Copy(New,1, lenght(New))
New[0]:=lenght(New)

Enfin qq chose dans ce genre là.
[edit]
Les strings Pascal/Delphi ne sont pas des PChar ce que semble manipuler le bloc-notes d'où l'affichage de la totalité des caractéres.
[/edit]

[Laurent Dardenne]

Et fait un choix soit c'est une structure soit c'est une chaîne.

[petitcoucou31]

je ne peux en etre certain sans le code source !!
Mais je pense que c'est un enregistrement de char,
et je n'ai surtout aucun moyen sur de la savoir !

[Laurent Dardenne]

et je n'ai surtout aucun moyen sur de la savoir !

Indique-nous le début du fichier.
Tu ne peux pas créer un fichier avec 1, puis 2,3, etc enregistrements ?

[petitcoucou31]

voila le debut du fichier

H:\>debug 10VUC.TRA
-d
153E:0100 06 31 32 56 43 2E 31 20-20 20 20 20 20 20 20 20 .12VC.1
153E:0110 20 20 20 20 20 20 20 20-20 00 00 06 31 32 56 43 ...12VC
153E:0120 2E 32 20 20 20 20 20 20-20 20 20 20 20 20 20 20 .2
153E:0130 20 20 20 20 00 00 06 31-32 56 43 2E 33 20 20 20 ...12VC.3
153E:0140 20 20 20 20 20 20 20 20-20 20 20 20 20 20 20 00 .
153E:0150 00 06 31 32 56 43 2E 34-20 20 20 20 20 20 20 20 ..12VC.4
153E:0160 20 20 20 20 20 20 20 20-20 20 00 00 06 31 32 56 ...12V
153E:0170 43 2E 35 20 20 20 20 20-20 20 20 20 20 20 20 20 C.5
-

par contre oui je vais essayer de recuperer l'exe qui genere ce programme pour en creer des petit avec des caracteres typique , je ne vois pas non plus comment faire autrement !!

je vous tiendrez au courant .. merci a tous

[Laurent Dardenne]

Il s'agit bien de String en sachant que c'est un prg pascal dos qui génére le fichier.

La taille du type chaîne déclarée est 26 (par rapport à ta solution)
Par contre je ne souviens plus si les routines de bas niveau lisent 27 octets ou uniquement le nombre indiquée dans Chaine[0] ?
Par contre il te faut savoir ce que représente les deux zéro en fin de structure pour ne pas avoir de perte d'info.

Essaie avec ceci, tu devrais avoir moins de problème.

Code :

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

1
2
3
4
rec=
 S:String[25];
 C:Array[1..2] of char;
end;

[petitcoucou31]

Code :

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

1
2
3
4
5
 
rec= 
 S:String[25]; 
 C:Array[1..2] of char; 
end;

Plutot

Code :

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

1
2
 
   C:Array[1..25] of char;

non ???

par contre une info certaine c'est que sous le programme dos la saisie du nombre de caractere est limité a 24 max

Bye .

[Laurent Dardenne]

Essaie les deux, tu pourras comparer

[petitcoucou31]

Oki !! çà semble marcher pour mes premiere manip !
donc si j'ai bien compris la manip consiste a retirer les deux premier carateres qui representent la longueur de la chaine utile et alors je peux lire ma chaine ( string ) !!

Ben merci a tous pour votre temps !! je vais passer une nuit moins longue !

bye