PureBasic

Code : Tout sélectionner

;
;************************************************************************
;Titre      : myclip.pb
;Auteur     : (C) 2019 CAGE
;Date       : 2019/03/28
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Console
;Compile/Run      : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;

EnableExplicit

OnErrorGoto(?ErrorHandler)

Global  count, message$, myparam$, texte$

texte$ = ""+#CRLF$
texte$ + " Syntaxe: myclip <clear|get|help>"+#CRLF$
texte$ + #CRLF$
texte$ + " myclip clear"+#CRLF$
texte$ + "   Efface le presse papier."+#CRLF$
texte$ + #CRLF$
texte$ + " myclip get"+#CRLF$
texte$ + "   Récupère le contenu texte du presse papier et l'affiche."+#CRLF$
texte$ + #CRLF$
texte$ + " myclip get > fichier.txt"+#CRLF$
texte$ + "   Récupére le contenu texte du presse papier et l'enregiste dans le fichier <fichier.txt>"+#CRLF$
texte$ + #CRLF$
texte$ + " myclip help"+#CRLF$
texte$ + "   Affiche ce message."+#CRLF$
texte$ + #CRLF$
texte$ + " Exemple:"+#CRLF$
texte$ + #CRLF$
texte$ + " ipconfig /all | clip"+#CRLF$
texte$ + " myclip get > myclip.txt"+#CRLF$

Procedure Help()
  If OpenConsole()
    Print(texte$)
    CloseConsole()
  EndIf
  End #False
EndProcedure

count = CountProgramParameters()

If count=0 Or count>1
  Help()
  End #False
EndIf

If count
  myparam$ = ProgramParameter(0) : Debug myparam$
  Select LCase(myparam$)
    Case "/help", "/?"
      Help()
      End #False
    Case "clear"
      ClearClipboard()
      End #True
    Case "get"
      texte$ = GetClipboardText()
      If texte$ <> #Null$
        If OpenConsole()
          Print(texte$)
          End #True
        EndIf
      EndIf
    Default
      Help()
      End #False
  EndSelect
EndIf
  
ErrorHandler:

End

Code : Tout sélectionner

End #True
End #False