PureBasic

Forums PureBasic
Nous sommes le Mar 15/Oct/2019 17:17

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 1 message ] 
Auteur Message
 Sujet du message: Copier Plusieurs fichiers
MessagePosté: Dim 05/Mar/2017 22:00 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 27/Déc/2015 17:02
Messages: 177
Localisation: Strasbourg
J'ai ecrit un code, qui inclue plusieurs fichiers en data, puis les depose sur l'ordinateur.
Je voulais raccourcir le chemin, donc j'ai teste un truc, qui pourrait etre tres utile, seulement... ca plante :x :x

Code:
Procedure CreateIncludedFiles(FileName.s, *BinStart, *BinEnd)
   Define a
   If FileSize(FileName) = -1
      Protected id.l = CreateFile(#PB_Any, FileName)
      If id
         a = WriteData(id, *BinStart, *BinEnd - *BinStart)
         CloseFile(id)
      EndIf
   EndIf
   ProcedureReturn a
EndProcedure


; Structure fileBinary
;    debut.l
;    fin.l
;    nom.s
; EndStructure
;
; NewList file.fileBinary()
; AddElement(file()) : file()\debut = ?a_debut : AddElement(file()) : file()\fin = ?a_fin : AddElement(file()) : file()\nom = "a1.jpg"
; AddElement(file()) : file()\debut = ?b_debut : AddElement(file()) : file()\fin = ?b_fin : AddElement(file()) : file()\nom = "b1.jpg"
; AddElement(file()) : file()\debut = ?c_debut : AddElement(file()) : file()\fin = ?c_fin : AddElement(file()) : file()\nom = "c1.jpg"
;
; ForEach file()
;    CreateIncludedFiles(file()\nom, file()\debut, file()\fin)
; Next
Define.s files, file

files = "a b c"
For i = 1 To CountString(files, " ") + 1
   file = StringField(files, i, " ")
   CreateIncludedFiles(file + ".jpg", ?file + "_debut", ?file + "_fin")
Next

;{- Data
DataSection   
   a_debut:
   IncludeBinary "a.jpg": a_fin:
   b_debut:
   IncludeBinary "b.jpg": b_fin:
   c_debut:
   IncludeBinary "c.jpg": c_fin:
EndDataSection
;}


Je me demande si c'est possible de combiner des pointeurs avec du texte, est-ce ca l'erreur?

_________________
Windows 10 x64 -- Purebasic 5.70 LTS x86


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 1 message ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 3 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye