Insert keyboard macro counter value with multiple formats and values in a single iteration

Insert keyboard macro counter value with multiple formats and values in a single iteration

[Corey Foote]

[-- Attachment #1: Type: text/plain, Size: 1081 bytes --]


I'm looking for a way to use the keyboard macro counter to insert the value of the counter multiple times in a macro each with a different format as well as increase / decrease it by a certain amount. For example, I'm trying to create a macro which will create one of the following lines every time it's invoked:

<option value="a"><%=string1%></option>
<option value="b"><%=string2%></option>
<option value="c"><%=string3%></option>
<option value="d"><%=string4%></option>
...

So I need it to insert 1 and a for the first invocation, 2 and b for the second, 3 and c for the third, etc. I don't think it will work to simply change the format, because I would also need to change the value by +/- 97 as well. Is there an easy way to do this or should I be using something else, like a register perhaps? 

Thanks!

Sincerely,

Corey Foote

_________________________________________________________________
Talk to your Yahoo! Friends via Windows Live Messenger.  Find out how.
http://www.windowslive.com/explore/messenger?ocid=TXT_TAGLM_WL_messenger_yahoo_082008

[-- Attachment #2: Type: text/html, Size: 1341 bytes --]

Re: Insert keyboard macro counter value with multiple formats and values in a single iteration

[Ken Goldman]

Corey Foote wrote:
> I'm looking for a way to use the keyboard macro counter to insert the 
> value of the counter multiple times in a macro each with a different 
> format as well as increase / decrease it by a certain amount. For 
> example, I'm trying to create a macro which will create one of the 
> following lines every time it's invoked:
> 
> <option value="a"><%=string1%></option>
> <option value="b"><%=string2%></option>
> <option value="c"><%=string3%></option>
> <option value="d"><%=string4%></option>
> ...
> 
> So I need it to insert 1 and a for the first invocation, 2 and b for the 
> second, 3 and c for the third, etc. I don't think it will work to simply 
> change the format, because I would also need to change the value by +/- 
> 97 as well. Is there an easy way to do this or should I be using 
> something else, like a register perhaps?

I found this years ago, but it doesn't increment letters.

(defun increment (n) (interactive "p")
  ;; Increment the number after point.  With an argument, add that much.
  (let (val)
    (delete-region
     (point)
     (progn
       (setq val (read (current-buffer)))
       (if (not (numberp val)) (error "Not in front of a number"))
       (point)))
    (insert (int-to-string (+ val n)))))
(global-set-key "\C-c+" 'increment)

Re: Insert keyboard macro counter value with multiple formats and values in a single iteration

[Andreas Politz]

Ken Goldman wrote:
> Corey Foote wrote:
>> I'm looking for a way to use the keyboard macro counter to insert the 
>> value of the counter multiple times in a macro each with a different 
>> format as well as increase / decrease it by a certain amount. For 
>> example, I'm trying to create a macro which will create one of the 
>> following lines every time it's invoked:
>>
>> <option value="a"><%=string1%></option>
>> <option value="b"><%=string2%></option>
>> <option value="c"><%=string3%></option>
>> <option value="d"><%=string4%></option>
>> ...
>>
>> So I need it to insert 1 and a for the first invocation, 2 and b for 
>> the second, 3 and c for the third, etc. I don't think it will work to 
>> simply change the format, because I would also need to change the 
>> value by +/- 97 as well. Is there an easy way to do this or should I 
>> be using something else, like a register perhaps?
> 
> I found this years ago, but it doesn't increment letters.
> 
> (defun increment (n) (interactive "p")
>  ;; Increment the number after point.  With an argument, add that much.
>  (let (val)
>    (delete-region
>     (point)
>     (progn
>       (setq val (read (current-buffer)))
>       (if (not (numberp val)) (error "Not in front of a number"))
>       (point)))
>    (insert (int-to-string (+ val n)))))
> (global-set-key "\C-c+" 'increment)

Here is a command for the other way around.

(defun foo ()
   (interactive)
   (insert (format "%c" (+ kmacro-counter 97))))

-ap

Re: Insert keyboard macro counter value with multiple formats and values in a single iteration

[Chet]

Andreas Politz <politza@fh-trier.de> writes:

> Ken Goldman wrote:
>> Corey Foote wrote:
>>> I'm looking for a way to use the keyboard macro counter to insert the value
>>> of the counter multiple times in a macro each with a different format as
>>> well as increase / decrease it by a certain amount. For example, I'm trying
>>> to create a macro which will create one of the following lines every time
>>> it's invoked:
>>>
>>> <option value="a"><%=string1%></option>
>>> <option value="b"><%=string2%></option>
>>> <option value="c"><%=string3%></option>
>>> <option value="d"><%=string4%></option>
>>> ...
>>>
>>> So I need it to insert 1 and a for the first invocation, 2 and b for the
>>> second, 3 and c for the third, etc. I don't think it will work to simply
>>> change the format, because I would also need to change the value by +/- 97
>>> as well. Is there an easy way to do this or should I be using something
>>> else, like a register perhaps?
>>
>> I found this years ago, but it doesn't increment letters.
>>
>> (defun increment (n) (interactive "p")
>>  ;; Increment the number after point.  With an argument, add that much.
>>  (let (val)
>>    (delete-region
>>     (point)
>>     (progn
>>       (setq val (read (current-buffer)))
>>       (if (not (numberp val)) (error "Not in front of a number"))
>>       (point)))
>>    (insert (int-to-string (+ val n)))))
>> (global-set-key "\C-c+" 'increment)
>
> Here is a command for the other way around.
>
> (defun foo ()
>   (interactive)
>   (insert (format "%c" (+ kmacro-counter 97))))
>
> -ap
This can be done in many ways. There are also inse t-rectangle-number or
such functions available online - I use my own which does something similar.

(defun increment-char (n) (interactive "p")
  "Increment the char after point.  With an argument, add that much."
  (let ((c (char-after)))
    (delete-char 1)
    (insert-char (+ c n) 1)))

Makes the integer start value and char start values independent, if desired.

Chetan