Ouvrir n'importe quel fichier avec readfile (api)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 101 fois - Téléchargée 38 fois

Commenter

Contenu du snippet

Essayer de charger en mémoire un fichier qui n'est pas de type texte avec les commandes VB... Binary, Input, Random... rien à faire...
Il faut utiliser l'API ReadFile...
Ainsi, on peut ainsi charger en mémoire un fichier .doc, .xls, .mp3, .avi dans une String VB.

Source / Exemple : 


'API Fichiers
Const MOVEFILE_REPLACE_EXISTING = &H1
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_BEGIN = 0
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_NEW = 1
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long

Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

'#############################################
'#                                                                                                  #
'# Retourne le contenu du fichier "FileName"  sous forme d'une String #
'#                                                                                                  #
'#############################################

'FileName est le chemin absolue du fichier (par exemple : "c:\toto.doc")
Public Function OpenFile(ByRef FileName As String) As String
    Dim hOrgFile As Long
    Dim nSize As Long
    Dim Ret As Long
    Dim i As Long
    
    On Error GoTo ErrorHandler
    
    hOrgFile = CreateFile(FileName, _
                            GENERIC_READ, _
                            FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                            ByVal 0&, OPEN_EXISTING, 0, 0)

    'Taille du fichier
    nSize = GetFileSize(hOrgFile, 0)

    'Initialise le pointeur sur le fichier
    SetFilePointer hOrgFile, 0, 0, FILE_BEGIN
    
    OpenFile = Space(nSize)
    
    'Charge le contenu du fichier dans la variable Openfile
    ReadFile hOrgFile, ByVal OpenFile, nSize, Ret, ByVal 0&
     
    'Ferme le fichier
    CloseHandle hOrgFile
    
    Exit Function
ErrorHandler:
    MsgBox "Impossible de lire le fichier "+FileName ,vbExclamation

End Function

Conclusion :


Si quelqu'un peut faire un test de vitesse sur un gros fichier texte (au moins 500 Ko) avec l'API ReadFile et avec les méthodes standard VB (Open ... For Input As...) et me tenir au courant des différences de vitesse entre les 2 méthodes.

A voir également

Ajouter un commentaire

Commentaires

Signaler
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
 -
Y pas que open .....
y a auss FileSystème Objet (orienté objet)
Signaler
jockos
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
 2 -
C'est vrai, mais alors bonjour la lenteur de FileSystem...
Faudrait faire un testbench pour voir en terme de rapidité ce qu'il y a de mieux...
Signaler
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
 1 -
ah bon on ne sait pas ouvrir autre chose que du texte avec le open de vb.........?
tu precises en plus de toutes les manieres, et tu cites l'accés binaire.
revois le texte d'intro de ta source, je crois qu'il est erroné...
Signaler
jockos
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
 2 -
Essai d'ouvrir un fichier Mp3 par exemple avec VB en le chargeant dans une String... Je dis que tu prennes l'accès Binaire (Binary),séquentiel(Input, Output, Append) ou aléatoire(Random), rien ne marche pour les fichiers non texte.

Il y a soit l'objet FileSystem ou les API Windows (ReadFile)...
Signaler
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
 4 -
C bien mais si je fait open sur un fichier de 700 Mo ma memoire va^pas aimer :(((((
Afficher les 12 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jockos)