le wiki de Fabrice : PSPad

PSPad - Bien plus qu'un éditeur de texte

Ce petit éditeur de texte gratuit à tout pour plaire...

Coloration syntaxique
Macros
Plugins VB
Autocomplétion via les Clips
Gestion de projets
...

Que du bonheur en somme pour un codeur comme moi qui code essentiellement des scripts.
Je regroupe sur cette page mes configurations (clips, coloration syntaxique...)

Liens

Multi-Line Search Add-On : Un excellent remplacement à la recherche actuelle (forum)
- Le site officiel

Clips : MSSQL.DEF

[IF EXISTS TABLE | If Exists Table]
IF EXISTS (SELECT * FROM dbo.sysobjects WHERE ID = OBJECT_ID(N'§') AND OBJECTPROPERTY(id, N'IsUserTable') = 1)

Clips : Visual Basic

Les clips suivants permettent de simplifier la création de code redondant lors d'un développement.

Bien sûr, le texte inséré est à modifier selon le projet.

[Macro definition]
%name%=@C Nom de la procédure:,,,,

; -----------------------------------------------------------------------------
; Sub/Functions
; -----------------------------------------------------------------------------
[Sub | Création de procédure ]
Sub %name%()
On error goto %name%_Error

	§|

%name%_Exit:
  Exit Sub

%name%_Error:
  Resume %name%_Exit

Scripts VBScript

Delete Current File (Suppression du fichier en court)

Ce script est à placer dans le fichier '...\\Script\\VBScript\\DeleteCurrentFile.vbs'.
Il permet de supprimer le fichier en cours d'édition après confirmation.

'-------------------------------------------------------------------------------
' PSPad Script
' DeleteCurrentFile.vbs
' FVA - 20091014
'-------------------------------------------------------------------------------

Const module_name  = "DeleteCurrentFile" 'this name must be unique !!!
Const module_ver   = "0.0.1"             'version

Sub DeleteCurrentFile
	Dim sFileName

  set oEditor = NewEditor()
  oEditor.assignActiveEditor
	sFileName = oEditor.fileName
	
  If msgbox("Are you sure you want to delete the file '" & sFileName & "' ?", vbInformation + vbYesNo) = vbYes Then

  	Set oFSO = CreateObject("Scripting.FileSystemObject")
  	oFSO.DeleteFile(sFileName)
  	If Err.Number <> 0 Then
			MsgBox "Error while deleting file.", vbWarning
		Else
  		runAction("aClose") 		'oEditor.CloseFile
			MsgBox "The file was succefully deleted.", vbInformation
		End If
		
  	Set oFSO = Nothing
  	
	Else
	
		Echo("See you soon :)")
	
  End If
  
  Set oEditor = nothing
 
End Sub

' name "Init" is required, its called automatically during initialization to create menu items
Sub Init
  addMenuItem "Delete current file","", "DeleteCurrentFile"
End Sub

PSPad