Ouverture d'un fichier pour changer des bits
cs_EXOCET
Messages postés
37
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
3 septembre 2002
-
18 août 2002 à 19:10
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 19 août 2002 à 12:20
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 19 août 2002 à 12:20
A voir également:
- Ouverture d'un fichier pour changer des bits
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier plat ✓ - Forum C# / .NET
- Traitement dédoublonnage fichier ✓ - Forum C++ & C++ .NET
1 réponse
ShareVB
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
26
19 août 2002 à 12:20
19 août 2002 à 12:20
tu ouvres le fichier en binaire :
Dim Data() as Byte
Open "FileName" For Binary As #1
ReDim Data(LOF(1) - 1)
Get #1, ,Data
Close #1
tu obtiens un tableau octet par octet que tu peux convertir par CLng(Data(x)) en long ou CInt(... ou autre C...
pour ecrire dans le fichier :
Open "FileName" For Binary As #1
Put #1, ,Data
Close #1
ce code t'ouvre le fichier en entier. si tu veux plus d'info regarde dans MSDN
ShareVB :)
Dim Data() as Byte
Open "FileName" For Binary As #1
ReDim Data(LOF(1) - 1)
Get #1, ,Data
Close #1
tu obtiens un tableau octet par octet que tu peux convertir par CLng(Data(x)) en long ou CInt(... ou autre C...
pour ecrire dans le fichier :
Open "FileName" For Binary As #1
Put #1, ,Data
Close #1
ce code t'ouvre le fichier en entier. si tu veux plus d'info regarde dans MSDN
ShareVB :)
