Marre des déclarations de procédures
Publié : mar. 27/janv./2009 22:53
Vous en avez marre de déclarer vos procédures ??
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 ??
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)