Je cherche comment travailler avec des fichiers binaires en VB 6 !
FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans
succès.
Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une
position donnée, mais je ne trouve pas comment lire X caractères à partir de
la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gislain ROCHE
Bonjour,
Merci pour l'exemple, mais je ne vois toujours pas comment lire par exemple 17 octets à partir de l'octet 2145 et mettre le résultat dans une chaine. Le 2nd paramètre de Get me permet de me positionner, mais il ne demande pas combien d'octets sont à lire ! Comment faire ?
Merci.
"François Picalausa" a écrit dans le message de news:%
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN strFileContent = String$(LOF(FFN), Chr$(0)) Get FFN, , strFileContent Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN Put FFN, , strNewContent Close FFN
Gislain ROCHE wrote: > Bonjour, > > Je cherche comment travailler avec des fichiers binaires en VB 6 ! > FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais > sans succès. > Pour les fonctions Get() et Put(), j'arrive bien à écrire une string > à une position donnée, mais je ne trouve pas comment lire X > caractères à partir de la position Y. > > Qui peut me donner un exemple de manipulation de fichiers binaires en > VB 6 ? > > Merci d'avance. > > Gislain
Bonjour,
Merci pour l'exemple, mais je ne vois toujours pas comment lire par exemple
17 octets à partir de l'octet 2145 et mettre le résultat dans une chaine.
Le 2nd paramètre de Get me permet de me positionner, mais il ne demande pas
combien d'octets sont à lire !
Comment faire ?
Merci.
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:%23piQ9xCUDHA.1740@TK2MSFTNGP12.phx.gbl...
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN
strFileContent = String$(LOF(FFN), Chr$(0))
Get FFN, , strFileContent
Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN
Put FFN, , strNewContent
Close FFN
Gislain ROCHE wrote:
> Bonjour,
>
> Je cherche comment travailler avec des fichiers binaires en VB 6 !
> FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais
> sans succès.
> Pour les fonctions Get() et Put(), j'arrive bien à écrire une string
> à une position donnée, mais je ne trouve pas comment lire X
> caractères à partir de la position Y.
>
> Qui peut me donner un exemple de manipulation de fichiers binaires en
> VB 6 ?
>
> Merci d'avance.
>
> Gislain
Merci pour l'exemple, mais je ne vois toujours pas comment lire par exemple 17 octets à partir de l'octet 2145 et mettre le résultat dans une chaine. Le 2nd paramètre de Get me permet de me positionner, mais il ne demande pas combien d'octets sont à lire ! Comment faire ?
Merci.
"François Picalausa" a écrit dans le message de news:%
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN strFileContent = String$(LOF(FFN), Chr$(0)) Get FFN, , strFileContent Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN Put FFN, , strNewContent Close FFN
Gislain ROCHE wrote: > Bonjour, > > Je cherche comment travailler avec des fichiers binaires en VB 6 ! > FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais > sans succès. > Pour les fonctions Get() et Put(), j'arrive bien à écrire une string > à une position donnée, mais je ne trouve pas comment lire X > caractères à partir de la position Y. > > Qui peut me donner un exemple de manipulation de fichiers binaires en > VB 6 ? > > Merci d'avance. > > Gislain
François Picalausa
Bonjour/soir,
strFileContent = String$(LOF(FFN), Chr$(0)) initialise le buffer pour contenir une chaine de la taille du fichier
Pour 17 octets: strFileContent = String$(17, Chr$(0))
Merci pour l'exemple, mais je ne vois toujours pas comment lire par exemple 17 octets à partir de l'octet 2145 et mettre le résultat dans une chaine. Le 2nd paramètre de Get me permet de me positionner, mais il ne demande pas combien d'octets sont à lire ! Comment faire ?
Merci.
"François Picalausa" a écrit dans le message de news:%
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN strFileContent = String$(LOF(FFN), Chr$(0)) Get FFN, , strFileContent Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN Put FFN, , strNewContent Close FFN
Je cherche comment travailler avec des fichiers binaires en VB 6 ! FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans succès. Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une position donnée, mais je ne trouve pas comment lire X caractères à partir de la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6 ?
Merci d'avance.
Gislain
Bonjour/soir,
strFileContent = String$(LOF(FFN), Chr$(0))
initialise le buffer pour contenir une chaine de la taille du fichier
Pour 17 octets:
strFileContent = String$(17, Chr$(0))
Merci pour l'exemple, mais je ne vois toujours pas comment lire par
exemple 17 octets à partir de l'octet 2145 et mettre le résultat dans
une chaine. Le 2nd paramètre de Get me permet de me positionner, mais
il ne demande pas combien d'octets sont à lire !
Comment faire ?
Merci.
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de
news:%23piQ9xCUDHA.1740@TK2MSFTNGP12.phx.gbl...
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN
strFileContent = String$(LOF(FFN), Chr$(0))
Get FFN, , strFileContent
Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN
Put FFN, , strNewContent
Close FFN
Je cherche comment travailler avec des fichiers binaires en VB 6 !
FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais
sans succès.
Pour les fonctions Get() et Put(), j'arrive bien à écrire une string
à une position donnée, mais je ne trouve pas comment lire X
caractères à partir de la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires
en VB 6 ?
Merci pour l'exemple, mais je ne vois toujours pas comment lire par exemple 17 octets à partir de l'octet 2145 et mettre le résultat dans une chaine. Le 2nd paramètre de Get me permet de me positionner, mais il ne demande pas combien d'octets sont à lire ! Comment faire ?
Merci.
"François Picalausa" a écrit dans le message de news:%
Bonjour/soir,
Tu peux essayer comme ceci:
Dim strFileContent As String, FFN As Integer
FFN = FreeFile
Open "c:windowswinhelp.exe" For Binary As FFN strFileContent = String$(LOF(FFN), Chr$(0)) Get FFN, , strFileContent Close FFN
'strFileContent contient le contenu du fichier
Pour écrire:
Dim strNewContent As String, FFN As Integer
FFN = FreeFile
strNewContent = "ABCDEF" 'nouveau contenu de fichier
Open "c:windowswinhelp.exe" For Binary As FFN Put FFN, , strNewContent Close FFN
Je cherche comment travailler avec des fichiers binaires en VB 6 ! FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans succès. Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une position donnée, mais je ne trouve pas comment lire X caractères à partir de la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6 ?
Merci d'avance.
Gislain
Gislain ROCHE
Merci à tous. Gislain.
"Gislain ROCHE" a écrit dans le message de news:%
Bonjour,
Je cherche comment travailler avec des fichiers binaires en VB 6 ! FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans succès. Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une position donnée, mais je ne trouve pas comment lire X caractères à partir
de
la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6
?
Merci d'avance.
Gislain
Merci à tous.
Gislain.
"Gislain ROCHE" <nospam@nospam.com> a écrit dans le message de
news:%23LJYupCUDHA.2512@TK2MSFTNGP10.phx.gbl...
Bonjour,
Je cherche comment travailler avec des fichiers binaires en VB 6 !
FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans
succès.
Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une
position donnée, mais je ne trouve pas comment lire X caractères à partir
de
la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6
Je cherche comment travailler avec des fichiers binaires en VB 6 ! FSO n'ayant pas cette fonction, je tente avec un ADODB.Stream() mais sans succès. Pour les fonctions Get() et Put(), j'arrive bien à écrire une string à une position donnée, mais je ne trouve pas comment lire X caractères à partir
de
la position Y.
Qui peut me donner un exemple de manipulation de fichiers binaires en VB 6
