Aide en ligne MSDN pour l'éditeur intégré de Purebasic

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
Flype
Messages : 2431
Inscription : jeu. 29/janv./2004 0:26
Localisation : Nantes

Aide en ligne MSDN pour l'éditeur intégré de Purebasic

Message par Flype »

Simple et efficace, vu sur le forum anglais (ts-soft auteur de PBOSL), un peu adapté à la langue de Molière.
En plus je connaissais pas ces mots-clefs pour l'éditeur de purebasic.
D'ailleurs si quelqu'un a plus de docs à leur sujet ? :P

Code : Tout sélectionner

; 
; Objet :
; 
; Aide en ligne MSDN pour l'éditeur intégré de PureBasic.
; Fonctionne comme l'aide Purebasic (Touche F1), mais pour les fonctions Win32.
; Reconnait les fonctions Win32 comme Beep_() et les constantes comme #MB_ICONERROR

; Installation :
; 
; 1.
; Compiler ce source
; 
; 2.
; Menu > Outils > Outils personnalisés > Nouveau
; Ligne de commande : L'exécutable compilé depuis ce source
; Nom : Aide en ligne MSDN (Par exemple)
; Evênement : Menu ou Raccourci
; Raccourci : Ctrl + F1 (Par exemple)

; 
; Ici, il faut définir l'url qui va servir à la recherche
; 

; Url.s = "http://www.google.com/search?q=site:msdn.microsoft.com+msdn+win32+%mot%&btnI=true"

Url.s = "http://search.msdn.microsoft.com/search/results.aspx?view=msdn&st=b&na=82&qu=%mot%&s=1&swc=4"

;
; Ici, on récupère le mot qui est sous le curseur, dans l'éditeur intégré de Purebasic
;

Mot.s = GetEnvironmentVariable("PB_TOOL_Word")

If Mot
  
  If Right(Mot,1) = "_" 
    Mot = Left(Mot,Len(Mot)-1) 
  ElseIf Left(Mot,1) = "#" 
    Mot = Right(Mot,Len(Mot)-1) 
  EndIf
  
  RunProgram(ReplaceString(url,"%mot%",Mot))
  
EndIf
PS: Il y a bien déjà l'aide 'win32.hlp' mais il est pas forcément exhaustif, d'où l'intérêt de ce petit bout de code.
Dernière modification par Flype le mar. 07/févr./2006 20:32, modifié 1 fois.
Image
Oliv
Messages : 2117
Inscription : mer. 21/janv./2004 18:39

Message par Oliv »

Génial !!!
Merci Flype
Répondre