Se connecter avec
S'enregistrer | Connectez-vous

QBasic probleme octale

Dernière réponse : dans Programmation

Bjr

J'ai un petit probleme :


OPEN "C:/1.EXE" FOR BINARY AS #1 ----> J'ouvre le fichier "1.exe" en mode binaire.

DIM Octet(LOF(1)) AS STRING * 1 ---> Je déclare le tableau "Octet" du type chaine de carractere de la taille du fichier ( "LOF(1)" renvoye la longeur du fichier en octet).

FOR i = 1 TO LOF(1)
GET #1, i, Octet(i) ---> Je li l'octet i dans le fichier et je le stocke dans le tableau octet.
NEXT i


OPEN "C:/2.EXE" FOR BINARY AS #2 ---> Je creer le fichier "2.exe" et je l'ouvre en mode binaire.

FOR i = 1 TO LOF(1)
PUT #2, i, Octet(i) ---> J'ecris dans l'octet i l'octet que j'avais stocker dans le tableau octet.
NEXT i

CLOSE #1
CLOSE #2


Ce programme devrai normalement fair un copie du fichier "1.exe" dans le fichier "2.exe" mais sa marche pas lol

Et ce que vous voyer un erreur dans le code

MERCI

Autres pages sur : qbasic probleme octale

Lassé par la pub ? Créez un compte

T'es obligé de faire un tableau ?

Moi je ferais

  1. J'ouvre le fichier "1.exe" en mode binaire.
    

  2. Je crée le fichier "2.exe" et je l'ouvre en mode binaire.
    

  3.  
  4. FOR i = 1 TO LOF(1)
    

  5.     Je lis l'octet i dans le fichier et je le stocke dans la variable octet
    

  6.     J'ecris dans l'octet i la variable octet que j'avais stockée
    

  7.  NEXT i
    

  8.  
  9.  
  10. CLOSE #1
    

  11. CLOSE #2
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde