[PSPad] 複製游標列的內容的Script

‘$Id$

‘Duplicate current line; like IntelliJ-IDEA’s Ctrl+D

‘emisjerry@gmail.com; http://blog.xuite.net/emisjerry/tech

‘***********************************************************

const module_name  =
"dupLine"        
‘this name must be unique !!!

const module_ver   =
"0.001a"           
‘version

sub Init

  addMenuItem "Duplicate current line", "", "dupLine", "CTRL+D"

end sub

sub dupLine

  dim oEditor, iCaretX, iCaretY

  set oEditor =
newEditor()          
‘new editor object

  oEditor.assignActiveEditor

  iCaretX = oEditor.caretX

  if oEditor.selText = "" then  ‘No selection area

    sLine = oEditor.lineText

    ‘Since the indent will add more leading
spaces, so we trim it first.

    sLine = Trim(sLine) + vbNewLine + sLine

    oEditor.lineText(sLine)

    oEditor.caretX(iCaretX)  ‘move
cursor to the same horizontal position

  else

    iCaretY = oEditor.caretY – 1

    sLine = oEditor.selText

    if InStr(sLine, Chr(13)) > 0 then

      sLine = Left(sLine,
Len(sLine)-2) + vbNewLine + sLine

    else

      sLine = sLine + sLine

    end if

    ‘echo("$" & sLine & "$,"
& iCaretY)

    oEditor.selText(sLine)

    oEditor.caretX(iCaretX)  ‘move
cursor to the same horizontal position   

   
‘oEditor.caretY(iCatetY)   

  end if

end sub