Alors compilez mon programme ci-dessous en "declaration.exe" (par exemple) et ajoutez-le comme outil à purebasic ! (mettez %FILE sous arguments).
Comme ça un clique dans le menu outil , et il vous crée un nouveau fichier "declarations.pb" avec les procédures déclarées dedans !
Il vous suffit d'ajouter includefile "declarations.pb" à votre programme et d'éxecuter l'outil chaque fois avant de compiler.
PS: j'ai mis "G:\declaration.exe" sous commandline, mais c'est une clef usb et la lettre change. Donc il ne va plus trouver le programme. Vous savez comment on règle ce petit problème ??
Code : Tout sélectionner
#False = 0
NomFichier.s = ProgramParameter()
Fichier = ReadFile(#PB_Any, NomFichier)
I = 1
Recommencer:
J = FindString(NomFichier, "\", I)
If J = 0
NomFichier2.s = Left(NomFichier, J) + "declarations.pb"
Else
I = J + 1
Goto Recommencer
EndIf
Fichier2 = CreateFile(#PB_Any, NomFichier2)
While Eof(Fichier) = #False; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File')
Ligne.s = Trim(ReadString(Fichier))
If Left(LCase(Ligne) , 9)= "procedure" And Left(LCase(Ligne) , 15) <> "procedurereturn"
WriteStringN(Fichier2, "Declare" + Right(Ligne,Len(Ligne) - 9))
EndIf
Wend
CloseFile(Fichier2)
CloseFile(Fichier)