[vb6]cipie de fichier ligne par ligne a l'identique

cipie de fichier ligne par ligne a l'identique [vb6] - Programmation

Marsh Posté le 09-08-2001 à 09:10:11    

bon voila j'aurais voulus savoircomment on copie un fichier a l'indentique de lui meme mais ligne par ligne car g essayer par ex :
OPEN "vb6fr.dll" FOR INPUT AS #1
OPEN "toto.txt" FOR OUTPUT AS #2
DO WHILE NOT EOF(1)
INPUT #1, toto$
PRINT #2, toto$
LOOP
CLOSE #1
CLOSE #2
en ayant bien sur copier la dll dans le bon rep .. mais ca marche po toto.txt fé bq moin ke la dll  
alors comment faire ?  :crazy:


---------------
Virtual 3D WorlD
Reply

Marsh Posté le 09-08-2001 à 09:10:11   

Reply

Marsh Posté le 09-08-2001 à 10:13:11    

Une DLL, c'est du binaire. Il n'y a pas de lignes.  :(  
 
Input#n, chaine$ récupère en entrée une chaîne de caractères terminée par un espace, un caractère d'espacement, ou une séquence CRLF (code fin de ligne).
Quand on veut récupérer une ligne entière, on utilise LineInput.
 
Si dans un fichier on a "machin chose bidule" dans une ligne, input#n, toto$ récupèrera machin
le prochain input#n, toto$ récupèrera chose
le suivant input#n, toto$ récupèrera bidule
tandis que LineInput récupèrera le tout d'un bloc.
 
Pour un fichier binaire, faut ouvrir en binaire.
Je sais plus si c'est un open "machin.bid" for binary as #1 (ou random, je mélange un peu)
On fait alors un get et put caractère par caractère de l'un vers l'autre.  :)  
 
Si on veut faire une simple copie de fichier :) , on peut faire un shellexecute("copy xx.dll toto.txt" ) ou analogue sous VisualBasic (à voir dans la doc).

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed