Ozna�en� mezer [f=1:i=6519:t=6519]

[Petr V]

<http://forum.pspad.com/read.php?f=1&i=6519&t=6519> 
----------------------------------------------------------------

Zdravím,

udìlal jsem VB script pro PSPad pro oznaèení mezer a tabelátorù. Oznaèuje
všechny mezery nalevo i napravo od kurzoru. 

## zaèátek

const module_name  = "Space Selector"
const module_ver   = "0.001a"

sub Main                                
    Set editor = newEditor()
    editor.assignActiveEditor
    pozice = 0
    editor.command("ecSelLeft")
    znak = editor.selText
    while znak = Chr(32) or znak = Chr(9)
      pozice = pozice + 1
      editor.command("ecLeft")
      editor.command("ecSelLeft")
      znak = editor.selText
    wend
    for p = -1 to pozice - 1
      editor.command("ecRight")
    next
    editor.command("ecSelRight")
    znak = editor.selText
    while znak = Chr(32) or znak = Chr(9)
      pozice = pozice + 1
      editor.command("ecRight")
      editor.command("ecSelRight")
      znak = editor.selText
    wend
    editor.command("ecLeft")
    for p = 0 to pozice - 1
      editor.command("ecSelLeft")
    next
end sub

sub Init
  addMenuItem "Space Selector", "", "Main", "Shift+Ctrl+X"
end sub

## konec

Text mezi ## oznaète a vložte do prázdného souboru a uložte do svého
PSPadu do složky Script \ VBScript . Jméno souboru mùže být jakékoliv a
pøípona .vbs . Pak staèí v PSPadu kliknout na Scripty - Rekompilace
skriptù a mùžete tuto funkci vesele používat. Klávesová zkratka je
nastavena na Shift+Ctrl+X. Komu nevyhovuje, tak si ji mùže zmìnit na
jinou. 

Tak at to všem dobøe slouží. Petr V

[%sig%]

-- 
PSPad freeware editor http://www.pspad.com