Macro to Delete Unitl End of Sentence

[lawrencegoodman]

Another macro request:
I need a macro that will deletete from the cursor to the end of the sentence (i.e. the period).

Any advice?

Thanks.

[martin]

This should do what you're looking for:

Code: Select all

$deleteStart = Selection Location
$deleteLen = 0

# find the end of the current sentence
Find '($|\.(?![0-9])|[!?]+)[ \t]*', "E"
$selStart = Selection Location
$selLen = Selection Length
Begin Perl
$deleteLen = $selStart - $deleteStart;
End

# Select the sentence and delete it
Set Selection $deleteStart, $deleteLen
Delete

We also have some other sentence navigation macros in our macro repository.