set results to find "\\b\\S+\\b" searching in lineOfInsertionPoint
options {search mode:grep, showing results:false, returning
results:true} with selecting match

but for a long line, this is very slow (as expected) since there are
so many matches. I really just want to select the next whole word and
stop there. I don't want to extend the selection like the built in opt-
shift-right arrow but rather change the entire selection to just the
next word.

Thanks.

On Jan 07, 2012, at 22:39, Macdrifter wrote:

Hey There,

I'm not certain how you can limit the search to the current line without it starting over and over again.

Try this, and see if you can live with it.

try

        tell application "BBEdit"
                tell text of front text document
                        set results to find "\\b\\S+\\b" options {search mode:grep, showing results:false, returning results:true} with selecting match
                end tell
        end tell

on error errMsg number errNum
        set {cr, sep} to {return, "------------------------------------------"}
        set e to sep & cr & "Error: " & errMsg & cr & sep & cr & "Error Number: " & errNum & cr & sep
        beep
        display dialog e
end try

--
Best Regards,
Chris

Very nice. I am a bit confused though. This seems much faster than
when the "searching in" modifier is used. This also only seems to
return one result where "searching in" returns all matches. I guess I
don't understand why limiting the the search to a specific line
returns all results a more generic find only returns one result. Did
you expect that? Whatever the reason, thanks for the help. This is
quite useful when triggered by a a hot key. It provides a mechanism to
quickly jump selections through the text. If I add a test for the
current selection length, I can also use an if statement to use the
Gruber "select current word" script.

Thanks again Chris. Nice work.

Gabe

On Jan 8, 11:31 am, Christopher Stone <listmeis...@thestoneforge.com>
wrote:

try
        tell application "BBEdit"
                tell text of front text document
                        set current_offset to characterOffset of selection
                        set current_line to startDisplayLine of selection
                        if length of selection = 0 then
                                select (last word of display_line current_line whose
characterOffset ≤ current_offset)
                        else
                                set results to find "\\b\\S+\\b" options {search mode:grep,
showing results:false, returning results:true} with selecting match
                        end if
                end tell
        end tell
on error errMsg number errNum
        set {cr, sep} to {return,
"------------------------------------------"}
        set e to sep & cr & "Error: " & errMsg & cr & sep & cr & "Error
Number: " & errNum & cr & sep
        beep
        display dialog e
end try

On Jan 8, 11:31 am, Christopher Stone <listmeis...@thestoneforge.com>
wrote: