Je eu envie de me faire une version plus simple et concise que j'appelle, une fois compilée, via les outils de l'IDE. Il ne gère pas les fichiers, seulement ce qui se trouve en presse papier.
Voilà le code et les instructions.
EnJoYeZ
Code : Tout sélectionner
; =======================================================
; =======================================================
; Nom : ~ Declare Generator ~
; Déclaration automatique des procédures
; Code : Ar-S // PB 5.7x // Avril 2021
; Regex : Marc56 alias Regex Man :)
; Instructions
; Copier votre code dans le presse papier
; Exécutez Declare Generator
; Faites un coller en début de votre code..
; That's all falk !
; =======================================================
Global t$ = GetClipboardText()
EnableExplicit
Define D$
Define Clip$ = GetClipboardText()
If Clip$ = ""
MessageRequester("Oouups","Vous devez copier un code dans le presse papier",#MB_ICONEXCLAMATION)
End
EndIf
Define RegEx$ = "\sprocedure(\.?[a-zA-Z]?\s\w+\(.*?\))"
If Not CreateRegularExpression(0, RegEx$, #PB_RegularExpression_NoCase)
MessageRequester("Erreur", "L'expression régulière n'est pas valide")
End
EndIf
If ExamineRegularExpression(0, Clip$)
While NextRegularExpressionMatch(0)
D$ + "Declare" + RegularExpressionGroup(0, 1)+#LF$
Wend
D$ + ";EnJoY your time"+#LF$
;Stockage du résultat dans le presse papier..
SetClipboardText (D$)
MessageRequester("OK","Vous pouvez maintenant coller le résultat au début de votre code.",#MB_ICONINFORMATION)
; Ne vous reste plus qu'à coller en début de code.
Else
MessageRequester("Désolé", "Le presse-papier ne conscient pas de procédures")
EndIf