PsPad: skript pro zobrazení TODO a FIXME v aktuálním souboru

Jednoduchý skript, který zobrazí TODO ve výsledku hledání (spouští vyhledávání, proto senzitivitu písma musíte mít nastavenu předem v dialogu, který používá - viz Ctrl+F).

Skript stačí uložit jako Todo.vbs do složky Scripts ve složce PsPadu. V PsPadu dát menu Skripty / Rekompilace skriptů. Ze stejného menu se pak skript zavolá.

Pokud menu Skripty nevidíte, povolte v menu Nastavení / Nastavení programu / Integrace do systému - Podpora skriptování pomocí...

' ------------------------------------------------------------------------------
' file      ToDo.vbs
' date      2012, Janko
' ------------------------------------------------------------------------------
' Script to put todo into search result. You can than click on it to go to line.

'######## EDIT IF YOU WANT SEARCH ANOTHER STRING ########'
Const fTODO = "TODO"
Const fFIXME = "FIXME"
'########################################################'

' ------------------------------------------------------------------------------
Const module_name  = "ToDo"
Const module_ver   = "1.0"

Sub FindTodo
    Set SH = Wscript.CreateObject("WScript.Shell")
    '// active PSPad application'
	SH.AppActivate "PSPad"
    Sleep(100)
	'// press Alt+E -> menu Search'
    SH.SendKeys "%E"
    Sleep(100)
	'// press N -> Find'
    SH.SendKeys "N"
    Sleep(100)
	'// string to find - specify above'
    SH.SendKeys fTODO
	Sleep(100)
	'// press M -> put into list of searched'
	SH.SendKeys "%M"
    Sleep(100)
End Sub

Sub FindFixme
    Set SH = Wscript.CreateObject("WScript.Shell")
    '// active PSPad application'
	SH.AppActivate "PSPad"
    Sleep(100)
	'// press Alt+E -> menu Search'
    SH.SendKeys "%E"
    Sleep(100)
	'// press N -> Find'
    SH.SendKeys "N"
    Sleep(100)
	'// string to find - specify above'
    SH.SendKeys fFIXME
	Sleep(100)
	'// press M -> put into list of searched'
	SH.SendKeys "%M"
    Sleep(100)
End Sub

Sub Init
    menuName = "&" & module_name
    addMenuItem "Find Todo" , menuName, "FindTodo", "Shift+Ctrl+H"
    addMenuItem "Find Fixme", menuName, "FindFixme", "Shift+Ctrl+J"
End Sub