A voir également:
- [Visual Basic] conversion fichier binaire
- Fichier rar - Guide
- Visual basic - Télécharger - Langages
- Fichier host - Guide
- Fichier iso - Guide
- Microsoft 365 basic - Guide
3 réponses
Comme c'est sympa la vitesse à laquelle vous m'avez répondu. Comme vous me l'avez demandé voici le code que j'ai écrit(soyez indulgent si c'est n'importe quoi en fait c'est une mission ponctuelle je ne programme pas en VB en principe):
// Macro lisant le fichier et appellant la fonction de conversion des octets
// Macro lisant le fichier et appellant la fonction de conversion des octets
Private Sub Conversion()
Dim f As Integer
Dim ligne As Byte
Dim test As String
f = FreeFile
Open "C:\VBACyril\fich1.ogf" For Input As #f
While Not EOF(f)
test = CStr(ligne)
Line Input #f, test1
Debug.Print "le string : " & test
nombre = BinaryToDecimal(test, 32, True)
Debug.Print "conversion : " & nombre
Wend
Close #f
End Sub
// Voici la fonction de conversion
Public Function BinaryToDecimal(Binary As String, NbBits As Byte, Signed As Boolean) As Long
Dim i As Byte
BinaryToDecimal = 0
If NbBits <= 1 Or NbBits > 32 Then Exit Function
If Len(Binary) > NbBits Or Len(Binary) > 32 Then Exit Function
Binary = Right("00000000000000000000000000000000" & Binary, NbBits)
If Signed = False Then
For i = 0 To Len(Binary) - 1
BinaryToDecimal = BinaryToDecimal + Val(Mid(Binary, Len(Binary) - i, 1)) * 2 ^ i
Next
Else
For i = 0 To Len(Binary) - 2
BinaryToDecimal = BinaryToDecimal + Val(Mid(Binary, Len(Binary) - i, 1)) * 2 ^ i
Next i
If Left(Binary, 1) = "1" Then
BinaryToDecimal = -((2 ^ (NbBits - 1)) - BinaryToDecimal)
End If
End If
End Function
Montre nous ton code, on verra ce qu'on peut faire ;)
