Version imprimable
Bonjour ,
En VB sous VisualStudio 2003 , je dois lire des fichiers issus d'environnement mainframe IBM Cobol.
Dans ce fichier , il y a des champs "Quantité" au format packed "COMP-3".
Je suis à la recherche d'une fonction qui permettrait de convertir ces données en format decimal "visible" par le VB car j'ai besoin de récupérer ces valeurs.
Si quelqu'un à des idées ou a déja été confronté à cette situation , je le remercie d'avance pour ses bons conseils.
Bonjour.
Faut juste interpréter pour chaque caractére les 4 bits hauts et le 4 bits bas de l'octet.
Pour chaque caractére :
tu convertis en binaire ce caractére.
tu convertis le 4 premiers bits en integer --> voilà un nombre décompressé
tu convertis le 4 derniers bits en integer --> revoilà un nombre décompressé
A noter que si tu obtiens 12 (C en hexa) ou 13 (D en hexa), c'est le signe et tu as affaire à du COMP-3 signé.
Exemple :
0001|0010|1000|1100 --> 1 2 8 +
0001|0010|1000|1101 --> 1 2 8 -
Cdt.