FICHIER BINAIRE et VARIANT
PUBLICD
Messages postés
2
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
14 juin 2003
-
26 févr. 2003 à 09:54
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 26 févr. 2003 à 11:02
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 26 févr. 2003 à 11:02
2 réponses
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
26 févr. 2003 à 10:45
26 févr. 2003 à 10:45
Bonjour
Dim i As Long, Numero As Integer
Numero = FreeFile
Open "C:\Chemin\Fichier" For Binary As #Numero
For i = 1 To Len(Variable)
Put Numero, Mid(Variable, i, 1)
Next i
Close Numero
Dim i As Long, Numero As Integer
Numero = FreeFile
Open "C:\Chemin\Fichier" For Binary As #Numero
For i = 1 To Len(Variable)
Put Numero, Mid(Variable, i, 1)
Next i
Close Numero
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
26 févr. 2003 à 11:02
26 févr. 2003 à 11:02
Correction :
Put Numero, i, Mid(Variable, i, 1)
Put Numero, i, Mid(Variable, i, 1)