Déclaration des procédures

[wood51]

Salut,
J'en avais marre de déclarer mes procédures à la main alors j'ai fait ce tout petit bout de code :

Code : Tout sélectionner

FileName$ = ProgramParameter()

CreateRegularExpression(0,"^ProcedureC?(DLL)?(.[a-z])? ")
txt$ = ""
If ReadFile(1,FileName$)
  While Eof(1) = 0
    line$ = ReadString(1)
    If MatchRegularExpression(0,line$)
      txt$+ ReplaceString(line$,"Procedure","Declare") + #CR$
    EndIf
  Wend
  
  If txt$ <> ""
    SetClipboardText(txt$)
    MessageRequester("DeclarePlugin","Les déclarations ont été copiées dans le presse-papier")
  Else
    MessageRequester("DeclarePlugin","Aucune fonction à déclarer")
  EndIf
  
  CloseFile(0)
  DeleteFile(FileName$)
EndIf

Une fois compilé , je le met en outil externe (Argument : %TEMPFILE) . Après y plus qu'à coller les déclarations où vous voulez.
C'est pas grand chose mais lors des gros projet çà peut servir .
@+ Wood51

[Backup]

ben moi , j'en ai meme pas besoin !

je tape en haut du code

$declare

et ça le fait tout seul

ps :: mais je vais peut etre te piquer l'utilisation du Regex

[wood51]

Salut !
Justement l'idée vient de epb . Mon pb c'est que je n'arrive pas à me faire à epb ( ni japbe d'ailleurs ) . Et comme KCC à fais un petit plug , j'ai regarder comment ça marchait et du coup ça m'a mis le pied à l'étrier .
@+ wood51

[Kwai chang caine]

Merci pour le partage

[Backup]

Salut !
Justement l'idée vient de epb . Mon pb c'est que je n'arrive pas à me faire à epb ( ni japbe d'ailleurs ) .

pas grave .. moi meme j'ai du mal a m'y faire