unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* How modify numbers in a region by a multiplier?
@ 2010-07-01 13:55 Seweryn Kokot
  2010-07-01 14:16 ` Juanma Barranquero
                   ` (3 more replies)
  0 siblings, 4 replies; 28+ messages in thread
From: Seweryn Kokot @ 2010-07-01 13:55 UTC (permalink / raw)
  To: help-gnu-emacs

Hi,

I would like to modify numbers in a region/buffer by a given multiplier.

Imagine that I have some numbers

33.444 3333 4433.4443 3344 .34234

and I want them multiplied for example by 0.1

to receive

3.3444 333.3 443.34443 334.4 .034234

I tried with this function I wrote, but it doesn't work properly.
Any idea why?

(defun my-multiply-numbers-in-region-or-buffer (multiplier)
  (interactive "nGive multiplier: ")
  (let (beg end object)
	(if (use-region-p)
        (progn
          (setq object "region")
          (setq beg (region-beginning))
          (setq end (region-end)))
      (setq object "buffer")
      (setq beg (point-min))
      (setq end (point-max)))
	(goto-char beg)
	(while (re-search-forward "\\([0-9]*\\.?[0-9]*\\)" end t)
	  (replace-match (format "%.3f" (* (string-to-number (match-string 1)) 
multiplier))))
	(message "Numbers in %s modified by multiplier %s." object 
multiplier)))




^ permalink raw reply	[flat|nested] 28+ messages in thread
[parent not found: <mailman.0.1277992530.1006.help-gnu-emacs@gnu.org>]

end of thread, other threads:[~2010-07-05 13:40 UTC | newest]

Thread overview: 28+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-07-01 13:55 How modify numbers in a region by a multiplier? Seweryn Kokot
2010-07-01 14:16 ` Juanma Barranquero
2010-07-01 14:31   ` Seweryn Kokot
2010-07-01 15:56     ` Juanma Barranquero
2010-07-01 20:10       ` Seweryn Kokot
2010-07-01 20:16         ` Juanma Barranquero
2010-07-01 20:36           ` Seweryn Kokot
2010-07-01 22:38             ` Juanma Barranquero
2010-07-02  6:41               ` Seweryn Kokot
2010-07-02  9:33                 ` Juanma Barranquero
2010-07-02  9:53                   ` Seweryn Kokot
2010-07-02 10:05                     ` Juanma Barranquero
2010-07-02 18:15                       ` Štěpán Němec
2010-07-02 20:30                         ` Juanma Barranquero
2010-07-05  9:49                           ` Seweryn Kokot
2010-07-05 11:46                             ` Juanma Barranquero
2010-07-05 13:40                               ` Seweryn Kokot
     [not found]                             ` <mailman.4.1278330410.9916.help-gnu-emacs@gnu.org>
2010-07-05 13:30                               ` David Kastrup
     [not found]           ` <mailman.2.1278016589.8594.help-gnu-emacs@gnu.org>
2010-07-01 20:42             ` David Kastrup
2010-07-01 21:03             ` Andreas Politz
2010-07-01 15:01   ` Dan Davison
2010-07-01 20:16     ` Seweryn Kokot
     [not found] ` <mailman.0.1277993821.20412.help-gnu-emacs@gnu.org>
2010-07-01 14:19   ` David Kastrup
2010-07-01 16:54 ` Qiang Guo
     [not found] ` <mailman.1.1278003297.20718.help-gnu-emacs@gnu.org>
2010-07-01 18:54   ` Pascal J. Bourguignon
     [not found] <mailman.0.1277992530.1006.help-gnu-emacs@gnu.org>
2010-07-01 14:19 ` Marc Mientki
2010-07-01 15:55 ` Andreas Politz
2010-07-01 16:45   ` Pascal J. Bourguignon

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).