PureBasic

Code : Tout sélectionner

;***********************************************
;Titre  :*desembrouilleur de Sherman code
;Auteur  : Zorro
;Date  :26/10/2016
;Heure  :14:45:22
;Version Purebasic :  PureBasic 5.50 (Windows - x86)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************

Structure bidon
		fonc.s
		index.i
		ordre.i
EndStructure
Structure pb
		fonc.s
		index.i
		ordre.i
EndStructure

Newlist bidon.bidon()
Newlist Pb.pb()

code$ = GetClipboardText()
nbr_ligne=countstring(Lcase(code$),"macro")
For i=1 to nbr_ligne
		ligne$=trim(mid(code$,1,FindString(code$,chr(10))))
		
		ligne$=Ltrim(StringField(Lcase(code$),1,"endmacro") +"endmacro")
		
		if ligne$<>""
				compteur=compteur+1 ; compte les lignes Macro
				nbr_ligne=nbr_ligne-1
		Endif
		mot_bidon.s=mid( Lcase(ligne$),1,Findstring(Lcase(ligne$),"endmacro")-1)
		mot_bidon.s=Ltrim(Stringfield(mot_bidon.s,2,"macro"))
		mot_bidon.s=Ltrim(Stringfield(mot_bidon.s,1,":"))
		mot_pb.s=StringField(ligne$,1,"endmacro")	
		mot_pb.s=mid(mot_pb.s,1,Findstring(ligne$,"endmacro"))
		poss=findstring(mot_pb.s,":")
		mot_pb.s=mid(mot_pb.s,poss+1,len(mot_pb.s)-1)
		mot_pb.s=Rtrim(mot_pb.s," ")
		mot_pb.s=Rtrim(mot_pb.s,":")
		AddElement(bidon())
		bidon()\fonc.s=mot_bidon.s
		bidon()\index.i=len(mot_bidon.s)
		bidon()\ordre.i=i-1
		AddElement(pb.s())
		pb()\fonc.s=mot_pb.s
		pb()\index.i=Len(mot_pb.s)
		pb()\ordre.i=i-1
		code$=removestring(Lcase(code$),ligne$,#PB_String_NoCase ,1) 
Next i
; trie des listes par ordre de grandeur
SortStructuredList(bidon(), #PB_Sort_Descending, OffsetOf(bidon\index.i), TypeOf(bidon\index.i))

; le Grand remplacement
compt=-1
Foreach bidon()	
		Foreach pb()
				if pb()\ordre =bidon()\ordre.i
						SelectElement(pb(),pb()\ordre.i)	
						code$=ReplaceString(Lcase(code$),trim(bidon()\fonc.s),trim(pb()\fonc.s),#PB_String_NoCase )	
						Break
				Endif
		Next
Next 
		

ClearClipboard()
SetClipboardText(code$)
debug code$

Code : Tout sélectionner

openwindow(0,0,0,400,200,"mlg langage de déprogrammation", #pb_window_screencentered | #pb_window_systemmenu)
buttongadget(1,10,10,100,40,"headshot")

repeat
questcequilsepasse = waitwindowevent()
if questcequilsepasse = #pb_event_gadget and eventgadget() = 1
playsound(1)
if random(3,0) > 1 : end : endif
soundvolume(1,100)
endif
butelerepeatsi questcequilsepasse = #pb_event_closewindow ;<<<<<"butelerepeatsi"??? Nouvelle instruction de PB?
stopsound(1)
thisfuckingvar = troll/0
end

Code : Tout sélectionner

lenomdelazik$ = "l'endroit ou que t'as foutu ta zik quoi..."
initsound()
loadsound(1,lenomdelazik$)

openwindow(0,0,0,400,200,"mlg langage de déprogrammation", #pb_window_screencentered | #pb_window_systemmenu)
buttongadget(1,10,10,100,40,"headshot")

repeat
		questcequilsepasse = waitwindowevent()
		if questcequilsepasse = #pb_event_gadget and eventgadget() = 1
				playsound(1)
				if random(3,0) > 1 : end : endif
				soundvolume(1,100)
		endif
until questcequilsepasse = #pb_event_closewindow
stopsound(1)
thisfuckingvar = troll/0
end 

Code : Tout sélectionner

Macro Opene_ouinedau : OpenWindow : EndMacro
Macro Mes_sage_requesteur : MessageRequester : EndMacro
Macro Ri_sailleze_ouinedau : ResizeWindow : EndMacro
Macro Ouaiyete_ouinedau_et_vante : WaitWindowEvent : EndMacro
Macro Et_vante : Event : EndMacro
Macro RuiPite : Repeat : EndMacro
Macro EuneTile : Until : EndMacro
Macro HaineDife : EndIf : EndMacro
Macro HaineDeu : End : EndMacro
Macro Diese_Perber_et_vante_ouinedau : #PB_Event_CloseWindow : EndMacro

If Opene_ouinedau(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
 
 Mes_sage_requesteur("Information", "Click to move the Window", 0)
 Ri_sailleze_ouinedau(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Move the window to the coordinate 200,200
 
 Mes_sage_requesteur("Information", "Click to resize the Window", 0)
 Ri_sailleze_ouinedau(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Resize the window to 320,200
 
 RuiPite
 
  Et_vante = Ouaiyete_ouinedau_et_vante()
  
   If Et_vante = Diese_Perber_et_vante_ouinedau  ; If the user has pressed on the close button
    Quit = 1
   EndIf
  
  EuneTile Quit = 1
 
 HaineDife
 
 HaineDeu   ; All the opened 

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  MessageRequester("Information", "Click to move the Window", 0)
  ResizeWindow(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Move the window to the coordinate 200,200
  
  MessageRequester("Information", "Click to resize the Window", 0)
  ResizeWindow(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Resize the window to 320,200
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the Event
  ; isn't 0 and we just have to see what have happened...
  ;

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened 

Code : Tout sélectionner

Macro Opene_ouinedau : OpenWindow : EndMacro
Macro Mes_sage_requesteur : MessageRequester : EndMacro
Macro Ri_sailleze_ouinedau : ResizeWindow : EndMacro
Macro Ouaiyete_ouinedau_et_vante : WaitWindowEvent : EndMacro
Macro Et_vante : Event : EndMacro
Macro RuiPite : Repeat : EndMacro
Macro EuneTile : Until : EndMacro
Macro HaineDife : EndIf : EndMacro
Macro HaineDeu : End : EndMacro
Macro Diese_Perber_et_vante_ouinedau : #PB_Event_CloseWindow : EndMacro