help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Emacs: adding 1 to every number made of 2 digits inside a marked reg


From: Emanuel Berg
Subject: Re: Emacs: adding 1 to every number made of 2 digits inside a marked region.
Date: Mon, 27 Sep 2021 03:22:02 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux)

Arthur Miller wrote:

> | some    | 34 |  |
> | word    | 30 |  |
> | another | 38 |  |
> | thing   | 59 |  |
> | to      | 39 |  |
> | say     | 10 |  |
> | here    | 47 |  |

Her you go:

(defun inc-all (&optional beg end)
  (interactive (when (use-region-p)
                 (list (region-beginning) (region-end)) ))
  (let ((bg (or beg (point-min)))
        (ed (or end (point-max))) )
    (save-mark-and-excursion
      (goto-char bg)
      (while (re-search-forward "[[:digit:]]\\{2\\}" ed t)
        (replace-match
         (format "%d" (1+ (string-to-number (match-string 0)))) )))))

-- 
underground experts united
https://dataswamp.org/~incal




reply via email to

[Prev in Thread] Current Thread [Next in Thread]