Voila je dois recuperer un bout de chain qui se trouve dans un fichier
binaire sans zero a la fin de cette chaine....je voudrais donc cree de facon
dynamique un buffer pour construire cette chaine.. quelquechose dur genre
dim bstr
redim bstr(50)
get #hfile, 50, bstr
mais rien de ce que j'ai essaye ne fonctionne de facon satisfaisante......
le mieux que j'ai obtenu est une chaine non terminee
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
François Picalausa
"moi" a écrit dans le message de news:brc005$fps$
Voila je dois recuperer un bout de chain qui se trouve dans un fichier binaire sans zero a la fin de cette chaine....je voudrais donc cree de facon dynamique un buffer pour construire cette chaine.. quelquechose dur genre
dim bstr redim bstr(50) get #hfile, 50, bstr
mais rien de ce que j'ai essaye ne fonctionne de facon satisfaisante...... le mieux que j'ai obtenu est une chaine non terminee
Bonjour/soir,
tu veux peut-être quelquechose comme ceci: Function BoutDeFichier(strPath As String, lngStart As Long, lngLenght As Long) As String Dim strBuffer As String, FFN As Integer
FFN = FreeFile
Open "c:toto.txt" For Binary As FFN BoutDeFichier = String$(lngLenght, vbNullChar) Get FFN, lngStart, BoutDeFichier Close FFN End Function
"moi" <t@t.com> a écrit dans le message de
news:brc005$fps$1@news-reader2.wanadoo.fr
Voila je dois recuperer un bout de chain qui se trouve dans un fichier
binaire sans zero a la fin de cette chaine....je voudrais donc cree
de facon dynamique un buffer pour construire cette chaine..
quelquechose dur genre
dim bstr
redim bstr(50)
get #hfile, 50, bstr
mais rien de ce que j'ai essaye ne fonctionne de facon
satisfaisante...... le mieux que j'ai obtenu est une chaine non
terminee
Bonjour/soir,
tu veux peut-être quelquechose comme ceci:
Function BoutDeFichier(strPath As String, lngStart As Long, lngLenght As
Long) As String
Dim strBuffer As String, FFN As Integer
FFN = FreeFile
Open "c:toto.txt" For Binary As FFN
BoutDeFichier = String$(lngLenght, vbNullChar)
Get FFN, lngStart, BoutDeFichier
Close FFN
End Function
Voila je dois recuperer un bout de chain qui se trouve dans un fichier binaire sans zero a la fin de cette chaine....je voudrais donc cree de facon dynamique un buffer pour construire cette chaine.. quelquechose dur genre
dim bstr redim bstr(50) get #hfile, 50, bstr
mais rien de ce que j'ai essaye ne fonctionne de facon satisfaisante...... le mieux que j'ai obtenu est une chaine non terminee
Bonjour/soir,
tu veux peut-être quelquechose comme ceci: Function BoutDeFichier(strPath As String, lngStart As Long, lngLenght As Long) As String Dim strBuffer As String, FFN As Integer
FFN = FreeFile
Open "c:toto.txt" For Binary As FFN BoutDeFichier = String$(lngLenght, vbNullChar) Get FFN, lngStart, BoutDeFichier Close FFN End Function
