Discussion :

[ag007]

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.

[olsimare]

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.