Insert an incremental number every N occurrances of a search

[tcebob]

I have an ever-expanding file of Vlisp program functions. Each function begins with (defun --short for define function. Sometimes I screw around with one or another and, woops, make a mistake or delete something I shouldn't. This file loads every time Autocad starts up. Or tries to but quits at the bad place.

It would be good to insert a numbered print message after every 5 or so functions so the last one executed can be seen on the screen. The following is a start:

Code: Select all

FIND:      (\(defun)
REPLACE: \(princ plcno\)\n\1

As it is it will put the (princ plcno) above the existing (defun. But then I have to go through the whole file and replace plcno with a sequential number. So, 2 questions:

1. Incremental number. I know it's in there somewhere bur right now can't find it.

2. How to find every 5th occurance of (defun?

tcebob

[Bob Hansen]

1. Incremental number. I know it's in there somewhere bur right now can't find it.

Try these steps:

Configure/Word Wrap Off
Configure/Block Select Mode
Select columns to fill
Edit/Fill Block

======================
Re the xth instance across multiple lines, you may be able to do something with WildEdit and Regex.

[ben_josephs]

1. Incremental number. I know it's in there somewhere bur right now can't find it.

Use \i:

Find what: (\(defun)
Replace with: (princ \i)\n\1

[X] Regular expression

This assumes you are using Posix regular expression syntax:

Configure | Preferences | Editor

[X] Use POSIX regular expression syntax

2. How to find every 5th occurence of (defun?

You can only do this in TextPad if the number of newlines between successive defuns is fixed.

[Bob Hansen]

Once again, thanks to ben_josephs for adding another tool to my TextPad toolbox.

After all this time, I never saw \i before, and it's right there in Help pages.
This isn't even familiar, like I forgot it or something.
Obviously a new function slipped into my computer overnight.

Every day TextPad gets better and better.

[ben_josephs]

Yes, sir, Officer Obie, I cannot tell a lie, I put that function into that computer.