Lecture d'un fichier binaire et conversion en txt

[yoyo]

Bonjour à tous

J'ai un fichier binaire (qui correspond à des données sorties d'un logiciel d'acquisition) et je cherche à le lire avec excel pour des traitements.

Avez vous des conseils ou idée pour que je puisse réaliser cette lecture de fichier?

J'ai à ma disposition le format du fichier binaire (en tete...).

Merci de votre aide

YOYO

 

[Mytå]

Salut YoYo et le forum

n'ayant pas d'exemple de ton format de fichier :

Lire la premiere ligne du fichier,
Verifier la longueur,
Extraire par longueur de 8 bit,
Faire une conversion de binaire a decimal (fonction BINDEC)
Ensuite executer sur cette valeur la fonction Code(x) pour
recuperer le caractere ASCII

A suivre Mytå

 

[Mytå]

Re Bonsoir le forum

Conversion de fichier binaire en fichier texte (suite)

En Vba j'irai pour de quoi comme ceci (mais améliorable si @Thierry lit il va comprendre )

Sub Lire_fichier_binaire()
Row = 1
Colonne = 1
Cells(Row, Colonne).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\bin.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Extraire la chaine de caractères
longueur = Len(Textline)
For i = 1 To longueur Step 8
a$ = Mid(Textline, i, 8)
'Conversion binaire à décimale
a1 = Val(Mid(a$, 1, 1)) * 128
a2 = Val(Mid(a$, 2, 1)) * 64
a3 = Val(Mid(a$, 3, 1)) * 32
a4 = Val(Mid(a$, 4, 1)) * 16
a5 = Val(Mid(a$, 5, 1)) * 8
a6 = Val(Mid(a$, 6, 1)) * 4
a7 = Val(Mid(a$, 7, 1)) * 2
a8 = Val(Mid(a$, 8, 1)) * 1
a = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8
'Fin conversion
With ActiveCell
.Clear
.FormulaR1C1 = "=CHAR(" + a + ")"
.Offset(0, 1).Activate
End With
Next i
'Changement de ligne
Row = Row + 1
Cells(Row, Colonne).Activate
Loop
Close #1
End Sub

Le fichier ici en format binaire 8 position (comme dans le fichier joint) a renommer en .txt pour le programme

Bonne soirée Mytå º¿º

P.S. Prière de répondre si cela te va ou pas YoYo Merci!

 

[yoyo]

Salut à tous et merci à Mytå pour ton aide.
Je teste tout ça et te tiens au courant...

Je débute en programmation: je vias activer mon neurone pour essayer de faire tourner tout ça.

Encore merci

yoyo

 

[yoyo]

Re-bonjour

Mon test n'est pas très concluant. Ci joint mon fichier binaire d'origine (zippé) qui contient un en-tete puis des données formatées en trois colonnes (si ça peut eclaircir mes besoins).

Je suis un peu largué: votre aide est la bienvenue...

Merci encore

yoyo

 

[croze christophe]

arf aider moiiiiiiiet conversion en txt

voila jai teler charger delta force takes forces daguer set un jeumai il est en bin ommen le faire passer en exe i fait 752ko.52 aider moi sil vous plait

 

[croze christophe]

jesper que vou pourer maider car jessui dan le petrain