Édition : 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