SciTE + LUA = tool to make string variable from selected text

[mLipok 677]

I just asking

do anybody make a lua script / tool which do somethnig like that

 

in SciTE i write some text

 

first test line

second test line

third test line

 

now I select this text

and run LUA script which change selected text to that form

$s = "first test line" & @CRLF

$s &= "second test line" & @CRLF

$s &= "third test line" & @CRLF

 

 

 

 

[jchd 984]

Regexp?

[mLipok 677]

Yes i know

I do this with my own au3 script

but I asking for LUA solution which can be embended to SciTE

[guinness 1,455]

What does your regular expression look like? I could consider temporarily adding to SciTE Jump.

[mLipok 677]

Func _Text_to_Au3_Variable($sStringToConvert)
    Local $sVariableName = '$s' & InputBox('Variable Name', 'If variable name must be like $sMyName then input only "MyName"')
    Local $sStringToReturn = ''
    $sStringToReturn &= StringRegExpReplace($sStringToConvert, '(?i)(.*)(?:\r\s)', $sVariableName & ' &= "$1" & @CRLF' & @CRLF)
    $sStringToReturn &= @CRLF
    Return $sStringToReturn
EndFunc   ;==>_Text_to_Au3_Variable

[Jos 1,319]

Just in case you like to play with the LUA option,Something like this should work:

--------------------------------------------------------------------------------
-- demo()
--------------------------------------------------------------------------------
function AutoItTools:Demo()
    editor:BeginUndoAction()
    local FirstLine = editor:LineFromPosition(editor.SelectionStart)
    local LastLine = editor:LineFromPosition(editor.SelectionEnd)
    local CurrentLine = FirstLine
    editor:GotoLine(FirstLine)
    while (CurrentLine <= LastLine) do
        editor:Home()
        if CurrentLine == FirstLine then
            editor:AddText("$s = '" )
        else
            editor:AddText("$s &= '" )
        end
        editor:LineEnd()
        editor:AddText("' & @CRLF" )
        CurrentLine = CurrentLine + 1
        editor:LineDown()
    end
    editor:EndUndoAction()
end

#x lua test func
command.name.41.$(au3)=Test
command.mode.41.$(au3)=subsystem:lua,savebefore:no
command.shortcut.41.$(au3)=Ctrl+Shift+F
command.41.$(au3)=InvokeTool AutoItTools.Demo

Jos

[mLipok 677]

this is awesome

exacly what I need

BIG thanks Jos

 

@Jos and @guinness

What You think about that

@Jos

How You think. Can this be added as a standard functionality to SciTE4AutoIt3.exe  ?

[guinness 1,455]

SciTE4AutoIt3 is Jos' baby, up to Jos really.

[Jos 1,319]

@Jos

How You think. Can this be added as a standard functionality to SciTE4AutoIt3.exe  ?

 

Adding it is easy but am not so sure this would be an option that people have a real general use for.

These are things that really should be in a separate personal LUA file containing these personal nice-to-have's in my opinion.

Jos

[mLipok 677]

@guiness

Yes I know

But You take an attention on that and You want to add this to SciTE Jump

in that case You are the right person to say "What You think about that"

EDIT:

@guiness

@guinness

Edited July 27, 2013 by mlipok

[mLipok 677]

@Jos

Ok understand and accept your opinion

[Melba23 2,692]

Jos,

Thanks for that.

Because I prefer to use the line continuation character I altered it a bit:

function AutoItTools:Demo()
    editor:BeginUndoAction()
    local FirstLine = editor:LineFromPosition(editor.SelectionStart)
    local LastLine = editor:LineFromPosition(editor.SelectionEnd)
    local CurrentLine = FirstLine
    editor:GotoLine(FirstLine)
    while (CurrentLine <= LastLine) do
        editor:Home()
        if CurrentLine == FirstLine then
            editor:AddText('$s = "' )
        else
            editor:AddText('"' )
        end
        editor:LineEnd()
        if CurrentLine == LastLine then
            editor:AddText('"' )
        else
            editor:AddText('" & @CRLF & _' )
        end
        CurrentLine = CurrentLine + 1
        editor:LineDown()
    end
    editor:EndUndoAction()
end

I would like to add a leading @TAB to other than the first line. I tried t but that did not work - how do I get a tab into SciTE?

M23

[Jos 1,319]

Thanks for that. :thumbsup:I would like to add a leading @TAB to other than the first line. I tried t but that did not work - how do I get a tab into SciTE?

 

This works fine for me:

function PersonalTools:Demo()
    editor:BeginUndoAction()
    local FirstLine = editor:LineFromPosition(editor.SelectionStart)
    local LastLine = editor:LineFromPosition(editor.SelectionEnd)
    local CurrentLine = FirstLine
    editor:GotoLine(FirstLine)
    while (CurrentLine <= LastLine) do
        editor:Home()
        if CurrentLine == FirstLine then
            editor:AddText('$s = "' )
        else
            editor:AddText('\t\t"' )
        end
        editor:LineEnd()
        if CurrentLine == LastLine then
            editor:AddText('"' )
        else
            editor:AddText('" & @CRLF & _' )
        end
        CurrentLine = CurrentLine + 1
        editor:LineDown()
    end
    editor:EndUndoAction()
end

Jos

Edited July 27, 2013 by Jos

[Melba23 2,692]

Jos,

And now it does for me too.

I must have been doing something wrong before - sorry to have bothered you.

M23

[mLipok 677]

Now it works better then I imagine 

[Jos 1,319]

Would it be a good idea to add support to the standard setup for a userfile containing your own LUA scripts which won't be zapped at the next installation of SciTE4AutoIt3?

I am thinking of adding an loadfile for a LUA file called "PersonalTools.lua" in SciTEStartUp.lua like this:

LoadLuaFile("SciTE_extras.lua")
f = io.open(props["SciteDefaultHome"] .. "\\Lua\\PersonalTools.lua")
if f ~= nil then
    LoadLuaFile("PersonalTools.lua",props["SciteDefaultHome"] .. "\\Lua\\")
    f:close()
end

All you need to do then is to add the file with this content and you are in business.

PersonalTools = EventClass:new(Common)

--------------------------------------------------------------------------------
-- demo()
--------------------------------------------------------------------------------
function PersonalTools:Demo()
    editor:BeginUndoAction()
    local FirstLine = editor:LineFromPosition(editor.SelectionStart)
    local LastLine = editor:LineFromPosition(editor.SelectionEnd)
    local CurrentLine = FirstLine
    editor:GotoLine(FirstLine)
    while (CurrentLine <= LastLine) do
        editor:Home()
        if CurrentLine == FirstLine then
            editor:AddText('$s = "' )
        else
            editor:AddText('/t\t"' )
        end
        editor:LineEnd()
        if CurrentLine == LastLine then
            editor:AddText('"' )
        else
            editor:AddText('" & @CRLF & _' )
        end
        CurrentLine = CurrentLine + 1
        editor:LineDown()
    end
    editor:EndUndoAction()
end

If we do this: Where should the file be located?

Jos

[Melba23 2,692]

Jos,

 

Would it be a good idea to add support to the standard setup for a userfile containing your own LUA scripts which won't be zapped at the next installation of SciTE4AutoIt3?

I will delete the PM I was about to send you suggesting that very thing!

 

Where should the file be located?

I would suggest alongside the UserProperties, UserCallTip and Abbreviation files in the User folder - that away all the user files are in the same place.

M23

[Jos 1,319]

Ok, just uploaded SciTEStartup.lua and an example PersonalTools.lua so you can have a play.

replace the existing version of SciTEStartup.lua with the new one and store PersonalTools.lua in your %USERPROFILE% directory.

Jos

[mLipok 677]

I am made happy entirely   

[Melba23 2,692]

Jos,

Works nicely - dank je wel.

M23