begin process at 2012 02 12 16:49:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > COMMENT METTRE ET EXTRAIRE UN FICHIER DANS UNE RESSOURCES (RES)

COMMENT METTRE ET EXTRAIRE UN FICHIER DANS UNE RESSOURCES (RES)


 Information sur la source

Note :
5 / 10 - par 6 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :extraire, fichier, ressource, ajouter Niveau :Initié Date de création :01/03/2000 Vu :10 869
Auteur : GEDDi

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Le but de ce code est de montrer comment on peut creer et extraire d'un fichier de ressources (.RES), des fichiers particuliers : fichiers DATA purs : ZIP, EXE etc...
Ceci est bien utile si vous devez 'transporter' un fichier qui ne serait pas forcement present sur le disque...
A bon entendeur ;-)

Source

  • '///////////////////////////////////////////////
  • 'Code Source : Gerome GUILLEMIN // le 01/03/2000
  • 'http://www.multimania.com/gedd123 (Freewares VB 5, QB et O'basic)
  • '///////////////////////////////////////////////
  • 'Fichier de Ressources : TOTO.RC
  • // Prototype pour fichier Ressource avec un Fichier DATA (ZIP, JPEG etc...)
  • 32 ZOB MOVEABLE PRELOAD TOTO.ZIP
  • '/// Fin du fichier de Ressources : à compiler avec RC.EXE : commande RC.EXE Nom_du_Fic.RC
  • 'Code a implementer (dans un BAS ou FRM)
  • Sub ExtraitZIP()
  • Dim sFile As String
  • Dim b() As Byte
  • Dim iFile As Integer
  • Resultat$ = "MonFic.zip" 'Fichier destination
  • b = LoadResData(32, "ZOB") 'contient TOTO.ZIP !
  • 'Le ID = numéro de la ressource // "ZOB" est le type Propriétaire de la Ressource
  • 'et le fichier contenu doit etre sauvé en Byte !
  • 'exemple : 32 ZOB MOVEABLE PRELOAD TOTO.zip
  • iFile = FreeFile
  • Open ResultatDAT$ For Binary Access Write Lock Read As #iFile
  • Put #iFile, , b
  • Close #iFile
  • iFile = 0
  • End Sub
'///////////////////////////////////////////////
'Code Source : Gerome GUILLEMIN // le 01/03/2000
'http://www.multimania.com/gedd123 (Freewares VB 5, QB et O'basic)
'///////////////////////////////////////////////

'Fichier de Ressources : TOTO.RC
// Prototype pour fichier Ressource avec un Fichier DATA (ZIP, JPEG etc...)

32 ZOB MOVEABLE PRELOAD  TOTO.ZIP

'/// Fin du fichier de Ressources : à compiler avec RC.EXE : commande RC.EXE Nom_du_Fic.RC

'Code a implementer (dans un BAS ou FRM)
Sub ExtraitZIP()
	
	Dim sFile As String
	Dim b() As Byte
	Dim iFile As Integer

Resultat$ = "MonFic.zip" 'Fichier destination

 b = LoadResData(32, "ZOB") 'contient TOTO.ZIP !

'Le ID = numéro de la ressource // "ZOB" est le type Propriétaire de la Ressource
'et le fichier contenu doit etre sauvé en Byte !
'exemple : 32    ZOB     MOVEABLE    PRELOAD     TOTO.zip

 iFile = FreeFile

Open ResultatDAT$ For Binary Access Write Lock Read As #iFile

 Put #iFile, , b

Close #iFile
 
 iFile = 0

End Sub



 Sources du même auteur

Source avec Zip SHFILEOPERATION :: COPIER/SUPPRIMER DES FICHIERS
COMMENT FERMER UN PROCESSUS (DOS OU AUTRE) DEPUIS VOTRE APPL...
VERIFICATION DE L'EXISTENCE D'UN RÉPERTOIRE
ALGORITHME DE TRI À BULLES
Toutes les sources de GEDDi

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack
Toutes les sources de la catégorie Fichier / Disque

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture EXTRACTION DES FICHIERS IMG DE GTA 3 (VICE CITY ET SAN ANDRE... par gta126
Source avec Zip Source avec une capture Source .NET (Dotnet) [.NET2] FICHIER IMAGE ISO 9660 - LECTURE + EXTRACTION DU CON... par Willi
AJOUTER UNE LIGNE DANS UN FICHIER - API par Nocturne
Source avec Zip Source avec une capture GENERATEUR D AUTO EXTRACTIBLE EN VB6 par Mayzz
Source avec Zip EXTRAIRE LES FICHIERS RESSOURCES par daetips

Commentaires et avis

Commentaire de power le 18/05/2004 01:32:53

bravo, mais a koi sert le :

iFile = 0

a la fin du code??

Commentaire de julien3d le 22/02/2006 16:08:54

C'est super pratique, je me suis amusé à faire ça avec des fichiers txt, ini. Par contre chose curieuse, ça ne marche pas avec les .htm, et même si on les renomme en .ini ou .txt !!!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

QQ1 peut-il expliquer clairement comment extraire un ressource [ par Tioneb ] Salut,j'ai passé un bon moment à lire les source sur ce sujet, et je n'ais rien trouvé de fonctionnel ou de compréhensible. Je ne veux pas faire juste extraire un fichier stocké dans la ressource d'une appli [ par xenomorf_123 ] Bonsoir a tous, y a t'il une méthode pour que m'on appli une fois exécutée, extrait un fichier qui se trouve dans ses ressources? Merc Extraire une donnée d'un fichier ressource [ par lhurgoyf_37 ] Bonjour Je cherche une méthode pour extraire des données d'un fichier ressource. J'ai utilisé la méthode présenté dans Manipuler les octets d'un fichier en .NET ? [ par Chris_LaFouine ] Je suis en train de réaliser ma propre classe pour lire et enregistrer des tag ID3. Cependant, j'ai un petit soucis. En effet, je cherche des f Au secour !!! extraire des caractères d'une chaine [ par LUSTRUCRU ] Bonjour à tous et meilleurs voeuxJe traivaille sur 2 fichiers excelle premier FICHIER 1 est pour la saisie et le traitement de données qui s Ressource et fichier RTF [ par FatJoe ] Sous VB6 je souhaite charger dans un fichier ressource un fichier RTF  et biensur le faire afficher dans une RichTextBox pas de PB pour la premie Extraire donné d'un fichier texte [ par mav37 ] Bonjour, je cherche une solution pour extraire les n derniers caractères de la seconde ligne d'un fichier texte.. N'étant pas un adepte du vbscript, Extraire une ligne d'un fichier txt [ par malhivertman1 ] BonjourEn fait, j'extrait mon fichier txt dans une variable appellé texte.Je recherche le mot "LYON" et une fois que je l'ai trouvé, je voud en vbnet lire un fichier extraire une ligne et l'ecrire dans un autre fichier [ par galopeur ] Bonjour,je voudrais à partir d'un fichier qui comprends plusieurs lignes différentes extraire celle qui ont CLIE  pour entête


Nos sponsors


Sondage...

Comparez les prix


Acer Liquid (noir) (XP.H480Q.013)
Entre 300€ et 346€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Photo aérienne de Saintes Maries de la Mer 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,061 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)