QQ1 peut-il expliquer clairement comment extraire un ressource

Signaler
Messages postés
193
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
29 juillet 2015
-
 Utilisateur anonyme -
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 un chargement d'image pour l'appli mais vraiment extraire un fichier et l'écrire sur le disque.
OK, vous allez dire qu'il faut utiliser LoadResData(ID,type) mais après pour l'écrire sur le disque; j'ai essayé avec open fichier for binary acces write lock read as freefile associé avec un put... comme indiqué dans une des sources mais pas moyen de faire fonctionner.
Si vous avez déjà réussi à faire ça, merci de me dire comment faire.
Merci d'avance
@+

3 réponses


Salut
éssaie

open fichier for random as #1
put #1, emplacement, données
close

Avec random si le fichier n'éxiste pas, il sera crée
(emplacement = 1, 2, 3 ...etc)
0
Messages postés
193
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
29 juillet 2015

ca ne fonctionne pas non plus "longueur d'enregistrement incorrecte", alors j'ai essayé:

Open iDestination For Random As #1 Len=Len(b)
Put #1, 1, b

comme c'était marqué dans un bouquin, mais ça ne fonctionne pas non plus "variable requise. impossible de l'affecter à cette expression". Faut dire aussi que la variable "b" est définie comme byte. Pourtant le fichier que j'ai essayé d'extraire fait moins de 32 767 octets (la limite d'écriture), ce qui me pousse à demander comment faire pour un fichier de plus grande taille?
0

Salut
Si je comprends bien c'est un fichier texte ou similaire tu deverais éssaier ligne à ligne:

' Ouvre le fichier source
Open "MONFICH" For Input As #1
'Ouvre le fichier déstination pour écriture à la fin
Open "FICHIER_DESTINATION" for Append as #2

Do While Not EOF(1) ' Vérifie si la fin du fichier est atteinte.
openforms = doevents 'Permet de ne pas bloquer le système pendant le Do/Loop
Line Input #1, InputData ' Lit les lignes de données.
Print #2, InputData
Loop
Close ' Ferme les fichiers.
0