PureBasic

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