Fichier quelconque en chaîne

Question

Bonjour,
Je souhaite savoir s'il est possible d'assigner le contenu d'un fichier (par exemple un ex&#233;cutable) &#224; une cha&#238;ne (pour copier le fichier en quelque sorte)...
D'apr&#232;s moi, le d&#233;but ressemblerait &#224; cela:

Dim n As Integer
Dim temp,chaine as String
Open filename For Input As #1
Do While Not EOF(1)
   n=n+1
   Line Input #1,temp
   If n=1 then
      chaine=temp
   Else
      chaine=chaine & vbcrlf & temp
   End If
Loop

Mais h&#233;las, &#231;a ne me donne pas tout le contenu de l'ex&#233;cutable... alors qu'avec un fichier texte, &#231;a marche...

Je vous remercie par avance de votre aide

econs · Answer

Ton code a pourtant l'air bon.

Il peut m&#234;me &#234;tre am&#233;lior&#233;, sans &#234;tre modifi&#233; fonctionnellement (n ne sert &#224; rien).







Dim temp,chaine as String

chaine=""

Open filename For Input As #1

While Not EOF(1)

   Line Input #1,temp

   chaine=chaine & temp & vbcrlf

Wend


Par contre, le contenu d'un executable peut donner des r&#233;sultats
bizarres quand tu &#233;diteras 'chaine', car il peut contenir un tas de
caract&#232;res ascii tordus (saut de page, return carriages, ... )
As-tu d&#233;j&#224; vu ce que donnait un ex&#233;cutable ouvert avec Notepad ?


Manu

cs_Sharkiller · Answer

Oui, en effet, j'ai d&#233;ja ouvert un ex&#233;cutable dans le bloc-notes...
Peut-&#234;tre faudrait-il tout convertir en ASCII, puis reconvertir ensuite lors de l'enregistrement...

Merci &#224; toi pour ta r&#233;ponse... pourrais-tu me fournir davantage de d&#233;tails ?

Gobillot · Answer

la m&#233;thode Line Input totalement inadapt&#233;e pour un fichier non texte.



    Open filename For Input As #1

         temp = Input(LOF(1), #1)

         Close #1

Daniel

cs_Sharkiller · Answer

En effet Gobillot... mais avec la m&#233;thode que tu donnes &#231;a me dit que "L'entr&#233;e d&#233;passe la fin de fichier" d&#232;s que j'ouvre un fichier autre que texte...

Comment faire ?

PCPT · Answer

salut,

tu as une erreur aussi avec as bynary?

PCPT · Answer

i*

Gobillot · Answer

un caract&#232;re doit indiquer une fin de fichier,

je cherche ... ?

preuve qu'il faut ouvrir en binaire 

Daniel

Gobillot · Answer

pr&#233;sence du caract&#232;re &H1A indique fin de fichier --> chr$(26)

&#224; v&#233;rifier ...

Daniel

Gobillot · Answer

en binaire, il n'y a pas ce probl&#232;me:









    Open filename For Binary As #1

         temp = Space$(LOF(1))

         Get #1, , temp

         Close #1

     MsgBox Len(temp)


Daniel

Gobillot · Answer

normal dans les anciens fichers Texte chr$(26)  Ctrl Z indiquait une fin de fichier

pour ceux qui ont connu EDLIN un super &#233;diteur DOS.


Daniel

cs_Sharkiller · Answer

Je suis un peu perdu l&#224; par contre...
A quoi cela sert-il de le mettre en Binaire ?

Quand je le prend en binaire &#231;a me sort un ensemble de chiffres... c'est sens&#233; faire &#231;a ?

Gobillot · Answer

je confirme, Line Input s'arr&#234;te aussi au caract&#232;re chr$(26)

quand tu lis en binaire, tu peux lire tout le fichier, les caract&#232;res tels qu'ils sont 

ce que signifie ces caract&#232;res &#231;a d&#233;pend du type de fichier 

(tu peux lire aussi directement dans un tableau de Bytes)

ce que tu peux faire avec  &#231;&#224; ? un &#233;diteur hexa, une recherche de
cha&#238;ne, une modif de caract&#232;res, une copie du fichier, tout est
possible ...

mais surtout pas MsgBox temp

Daniel

cs_Sharkiller · Answer

Ah OK... mais apr&#232;s, comment reconvertir les donn&#233;es binaires pour reconstituer le fichier ?

Gobillot · Answer

explique ce que tu veux faire ???

parce que le fichier est bon tel quel

tu peux le r&#233;&#233;crire (sous un autre nom par s&#233;curit&#233;) en binaire avec Put #1, , temp et m&#234;me en Output avec Print#1,temp;

quand on connait le format du fichier, on peut aller chercher les
donn&#233;es &#224; l'endroit exact o&#249; elles sont et avoir besoin de les
convertir, par exemple un fichier BMP, aller chercher la taille, la
r&#233;solution, etc ...

mais pour un fichier quelconque on peut trouver n'importe quoi et je vois pas ce qu'on peut convertir sans conna&#238;tre. 

Daniel

cs_Sharkiller · Answer

Ben c'est pour transf&#233;rer un fichier d'un ordinateur vers un autres &#224; l'aide du r&#233;seau.
J'ai voulu copier le contenu du fichier &#224; envoyer pour le renvoyer &#224; l'ordinateur distant pour que ce soit plus rapide (ce qui devrait &#234;tre le cas).
Donc en fait je voudrais copier le contenu d'une application par exemple (en connaissant l'extension), de l'envoyer sur l'autre ordinateur et de le reconstituer en le mettant dans un fichier de m&#234;me extension.
Ainsi, le fichier serait restitu&#233; correctement, mais le probl&#232;me vient de l&#224;...

Fichier quelconque en chaîne

15 réponses

Discussions similaires