Convertion ASM

[kwandjeen]

Juste un petit outils pour convertir un fichier PB en ASM. Rien de bien transcendant mais cela peut toujours servir.

Code : Tout sélectionner

fichier$ = OpenFileRequester("Fichier à convertir","","*.pb;*.pbi",0)
If fichier$
  chemin$ = GetPathPart(fichier$)
  nom_fichier$ = Left(GetFilePart(fichier$),Len(GetFilePart(fichier$))-1-Len(GetExtensionPart(fichier$)))
  #guil = Chr(34)
  
  Compilateur = RunProgram(#PB_Compiler_Home+"/Compilers/pbcompiler",#guil+fichier$+#guil+" /COMMENTED", chemin$, #PB_Program_Open|#PB_Program_Read)
  Sortie$ = ""
  If Compilateur 
    While ProgramRunning(Compilateur)
      If AvailableProgramOutput(Compilateur)
        Sortie$ + ReadProgramString(Compilateur) + Chr(13)
      EndIf
    Wend
    Sortie$ + Chr(13) + Chr(13)
    Sortie$ + "Code de retour : " + Str(ProgramExitCode(Compilateur))
    
    CloseProgram(Compilateur) ; Ferme la connection vers le compilateur
    RenameFile(chemin$+"purebasic.exe",chemin$+nom_fichier$+".exe")
    RenameFile(chemin$+"purebasic.asm",chemin$+nom_fichier$+".asm")
  EndIf
  
  MessageRequester("Sortie", Sortie$)
EndIf

[GallyHC]

Bonjour,

C'est claire que cela peu être utile Merci

Cordialement,
GallyHC

[Backup]

pouvez utiliser EPB aussi

[venom]

Je n'y connais rien en ASM mais oui je pense que c'est un outil sympathique






@++

[Kwai chang caine]

Cool !!!
Merci ça peut être super utile comme outil