Doing numbered changes in a buffer

Doing numbered changes in a buffer

[gamename]

Hi,

I have a tcl file with lots of messages which are about as descriptive
as this:

puts "something went wrong"
...
puts "something went wrong"

Is there any way to do a string replace in the buffer such that each
instance of "puts" would be assigned a unique message number? For
example:

puts "001 - something went wrong"
...
puts "002 - something went wrong"

TIA,
-T

Re: Doing numbered changes in a buffer

[Quokka]

gamename wrote:
> Hi,
> 
> I have a tcl file with lots of messages which are about as descriptive
> as this:
> 
> puts "something went wrong"
> ...
> puts "something went wrong"
> 
> Is there any way to do a string replace in the buffer such that each
> instance of "puts" would be assigned a unique message number? For
> example:
> 
> puts "001 - something went wrong"
> ...
> puts "002 - something went wrong"

You could use a keyboard macro and the keyboard macro counter

 From the help:

The command `C-x C-k C-i' (`kmacro-insert-counter') inserts the
current value of the keyboard macro counter and increments the counter
by 1.  You can use a numeric prefix argument to specify a different
increment.  If you just specify a `C-u' prefix, the last inserted
counter value is repeated and the counter is not incremented.  For
example, if you enter the following sequence while defining a macro


So the sequence is
C-x (
search for puts "something went wrong"
move cursor back to start of string
C-x C-k -Ci -> inserts the current counter value
C-x )

The C-x e to repeat.

Hope that helps
Paul

Re: Doing numbered changes in a buffer

[Brendan Halpin]

"gamename" <namesagame-usenet@yahoo.com> writes:

> Is there any way to do a string replace in the buffer such that each
> instance of "puts" would be assigned a unique message number? For
> example:
>
> puts "001 - something went wrong"
> ...
> puts "002 - something went wrong"

Using these two functions below (the second of which I got off
Usenet many years ago, and have used regularly since), put point at
the start of where you want the changes to happen, and do:

M-x enumerate-bit-of-text RET something went wrong RET

You can fine-tune the result by adding e.g. "(forward-char 5)"
before the "insert" function, or inserting more than the "!1". If
you really want the leading zeros, use a format statement in the
"(insert (int-to-string start))" enumerate function.

Regards,

Brendan


(defun enumerate-bit-of-text (text)
  (interactive "sText to enumerate: ")
  (save-excursion 
    (while (re-search-forward text nil t)
      (goto-char (match-beginning 0))
      (insert "!1")
      (goto-char (match-end 0))))
  (enumerate "!1" 1))

;; A function I got from David Biesack, SAS Institute Inc., many
;; years ago:
(defun enumerate (&optional pattern start)
  "Replace PATTERN with sequential numbers beginning
with prefix arg START (default is 1). "
  (interactive "sRegular expression to enumerate [default \"!1\"]: \np")
  (if (string= "" pattern) (setq pattern "!1"))
  (save-excursion
    (while (re-search-forward pattern nil t)
      (delete-region (match-beginning 0) (match-end 0))
      (insert (int-to-string start))
      (setq start (1+ start)))))

-- 
Brendan Halpin,  Department of Sociology,  University of Limerick,  Ireland
Tel: w +353-61-213147 f +353-61-202569 h +353-61-338562; Room F2-025 x 3147
mailto:brendan.halpin@ul.ie  http://www.ul.ie/sociology/brendan.halpin.html

Re: Doing numbered changes in a buffer

[gamename]

Cool! Thanks.