Add +2 to all numbers in file

Add +2 to all numbers in file

[sharky]

Hi!

I have a file with a lot of numbers. It looks like this:

xx, xx, xx--xx, xx, xx, x
xx, x, xx--xx, xx--xx, x
xx, xx
xx, xx, xx--xx, xx--xx, xx--xx

You get the picture. Can I make emacs add 2 to each and everyone of
these numbers?

Please help!

/Sharky

Re: Add +2 to all numbers in file

[Katsumi Yamaoka]

>>>>> sharky wrote:
> I have a file with a lot of numbers. It looks like this:

> xx, xx, xx--xx, xx, xx, x
> xx, x, xx--xx, xx--xx, x
> xx, xx
> xx, xx, xx--xx, xx--xx, xx--xx

> You get the picture. Can I make emacs add 2 to each and everyone of
> these numbers?

> Please help!

Try `M-x all+2 RET':

(defun all+2 ()
  (interactive "*")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "[0-9]+" nil t)
      (replace-match (number-to-string
		      (+ 2 (string-to-number (match-string 0))))))))

Re: Add +2 to all numbers in file

[sharky]

On Feb 27, 9:32 am, Katsumi Yamaoka <yama...@jpl.org> wrote:
> >>>>> sharky wrote:
> > I have a file with a lot of numbers. It looks like this:
> > xx, xx, xx--xx, xx, xx, x
> > xx, x, xx--xx, xx--xx, x
> > xx, xx
> > xx, xx, xx--xx, xx--xx, xx--xx
> > You get the picture. Can I make emacs add 2 to each and everyone of
> > these numbers?
> > Please help!
>
> Try `M-x all+2 RET':
>
> (defun all+2 ()
>   (interactive "*")
>   (save-excursion
>     (goto-char (point-min))
>     (while (re-search-forward "[0-9]+" nil t)
>       (replace-match (number-to-string
>                       (+ 2 (string-to-number (match-string 0))))))))


I love you. It works perfectly.

Thanks for saving me from several hours of work!

/Sharky

Re: Add +2 to all numbers in file

[Pascal J. Bourguignon]

sharky <landhaj@yahoo.com> writes:

> Hi!
>
> I have a file with a lot of numbers. It looks like this:
>
> xx, xx, xx--xx, xx, xx, x
> xx, x, xx--xx, xx--xx, x
> xx, xx
> xx, xx, xx--xx, xx--xx, xx--xx
>
> You get the picture. Can I make emacs add 2 to each and everyone of
> these numbers?
>
> Please help!

If you have only one file, you can edit it interactively.  With recent
emacs (eg. 22, perhaps even 21), you can substitute an expression.

Type: 

M-x replace-regexp RET \([0-9][0-9]*\) RET \,(+ 2 (car (read-from-string \1))) RET


-- 
__Pascal Bourguignon__

Re: Add +2 to all numbers in file

[David Kastrup]

pjb@informatimago.com (Pascal J. Bourguignon) writes:

> sharky <landhaj@yahoo.com> writes:
>
>> Hi!
>>
>> I have a file with a lot of numbers. It looks like this:
>>
>> xx, xx, xx--xx, xx, xx, x
>> xx, x, xx--xx, xx--xx, x
>> xx, xx
>> xx, xx, xx--xx, xx--xx, xx--xx
>>
>> You get the picture. Can I make emacs add 2 to each and everyone of
>> these numbers?
>>
>> Please help!
>
> If you have only one file, you can edit it interactively.  With recent
> emacs (eg. 22, perhaps even 21), you can substitute an expression.
>
> Type: 
>
> M-x replace-regexp RET \([0-9][0-9]*\) RET \,(+ 2 (car (read-from-string \1))) RET

A bit complicated.

C-M-% [0-9]+ RET \,(+ 2 \#&) RET

-- 
David Kastrup