Mode de lecture d'un fichier [Résolu]

Signaler
Messages postés
107
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
12 novembre 2006
-
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
-
Bonjour.

J'aimerais pouvoir recuperer des donées d'un fichier mais seulement un bout specifique (ex:400eme octet au 500eme octet.

Seulement comment faire pour lui dire de demmarer la lecture du fichier à tel octet jusqu'à tel octet. (open file for binary as #1) que mettre d'autre?

Je veux que ca soit rapide et je ne ve pas lire tout le fichier.

Merci de votre aide et à bientot.++

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
27
Dim Buffer As String



Open file For Binary As #1

Buffer = Space$(101)

Get #1, 400, Buffer 'de 400 à 500

Close #1


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
107
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
12 novembre 2006

Merci Gobillot.
la methode fonctionne bien seulement je n'arrive pas à recuperer la totalite du tampon pour le mettre dans une text.Il m'en affiche qu'une partie.
Par compte en faisant un debug.print Buffer il m'affiche bien tout de la maniere suivante exemple :
TAGAudioTrack 01 no artist 50 Cents

Comment faire? la dans ce cas la il m'affichiche juste :
TAGAudioTrack 01.

Merci de vos reponse et a bientot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
27
ce qui me semblait bizarre c'est que débug.print l'affiche

en effet après essai c'est bien ce qui se passe.

ce que je pense c'est que tu essayes de lire le tag de 128 caractères qui se trouve à la fin des fichiers MP3.





comme j'avais plus le format en tête j'ai vérifié ...

en effet il y a bien des zéros et pas des espaces.



Dim s As String



s = "TAGAudioTrack 01" & Chr$(0) & "no artist" & Chr$(0) & "50 Cents"



Text1 = Replace (buffer, chr$(0)," ")

Debug.Print s

Daniel