数値を増減

カーソル付近or選択範囲に半角数字列があれば 1 増やし／減らします。

• カーソル位置は、数字の左端・中間・右端どこでもかまいません。
  範囲選択時は、範囲内の数字列が対象となります。
  ※マクロの仕様上、矩形選択には対応していません。

	左端	中間		右端	範囲選択時
元値	999	999	999	999	999,999
増やす	1000	1000	1000	1000	9100,1009

• 先頭の 0 埋め (ゼロパディング／ゼロサプライ) は考慮されます。
  負数 (-1)／小数 (0.1)／指数 (1.2e3) などは考慮されません。

ゼロなし	ゼロあり	※負数	※負数	※小数	※指数
99	0099	-1	-0	0.9	9.8e1
100	0100	-1	-1	0.10	10.9e2
101	0101	-1	-2	0.11	11.10e3

更新履歴

• 2014/06/19
  • 非選択時、探索終了位置(bx)の算出方法を変更。
  • 数値の増減処理を改修（繰り上げ・繰り下げの場合分けが不要に）。
• 2014/06/17
  • 初版公開。

数値を増やす (インクリメント)

//■数値を増やす(インクリメント)
//　2014/06/17-2014/06/19
//・カーソル付近or選択範囲の10進数値(半角)を 1 増やす。
//▲負数(-1)／小数(0.1)／指数(1.2e3)などは考慮しない。

var sel = Document.Selection;
var anp = sel.GetAnchorPos();
var acp = sel.GetActivePos();
var isAcp = (acp<anp)? true: false; //範囲終点が前方にあるか？
var isSel = !sel.isEmpty; //範囲選択しているか？
if (!isSel) { //非選択時、文字を探索して範囲選択
  var meP = mePosLogical, meGL = 0;
  var px = sel.GetActivePointX(meP);
  var py = sel.GetActivePointY(meP);
  var ln = Document.GetLine(py,meGL);
  var tx = 1 + (ln.slice(0,px-1).match(/[0-9]*$/)).index;
  var bx = tx + (ln.slice(tx-1).match(/[0-9]*/))[0].length;
  sel.SetActivePoint(meP,bx,py);
  sel.SetAnchorPoint(meP,tx,py);
  isAcp = (px==tx)? true: false; //カーソルが左端(前方)にあるか？
}
var carry = 0; //文字数(桁)変動量
sel.Text = sel.Text.replace(/[0-9]+/g,function(s){
  return s.replace(/([0-8]?)(9*)$/,function(s0,s1,s2){
    if (!s1) carry++;	//◆桁上がり
    return (parseInt(s1||0)+1)+(new Array(s2.length+1)).join("0");
  });
});
sel.SetAnchorPos(isAcp? anp+carry: anp);	//範囲始点を再設定
sel.SetActivePos(isAcp? acp: acp+carry, isSel);	//範囲終点(カーソル位置)を再設定

数値を減らす (デクリメント)

//■数値を減らす(デクリメント)
//　2014/06/17-2014/06/19
//・カーソル付近or選択範囲の10進数値(半角)を 1 減らす。
//▲負数(-1)／小数(0.1)／指数(1.2e3)などは考慮しない。

var sel = Document.Selection;
var anp = sel.GetAnchorPos();
var acp = sel.GetActivePos();
var isAcp = (acp<anp)? true: false; //範囲終点が前方にあるか？
var isSel = !sel.isEmpty; //範囲選択しているか？
if (!isSel) { //非選択時、文字を探索して範囲選択
  var meP = mePosLogical, meGL = 0;
  var px = sel.GetActivePointX(meP);
  var py = sel.GetActivePointY(meP);
  var ln = Document.GetLine(py,meGL);
  var tx = 1 + (ln.slice(0,px-1).match(/[0-9]*$/)).index;
  var bx = tx + (ln.slice(tx-1).match(/[0-9]*/))[0].length;
  sel.SetActivePoint(meP,bx,py);
  sel.SetAnchorPoint(meP,tx,py);
  isAcp = (px==tx)? true: false; //カーソルが左端(前方)にあるか？
}
var carry = 0; //文字数(桁)変動量
sel.Text = sel.Text.replace(/[0-9]+/g,function(s){
  return s.replace(/([0-9]?)([1-9])(0*)$/,function(s0,s1,s2,s3){
    if (!s1 && s2==1 && s3) {
      carry--; s1=s2="";	//◆桁下がりする ＞100 → /1/00→ / /99→99
    } else s2 = s2-1;		//◆　　　しない ＞1100→1/1/00→1/0/99→1099
    return s1+s2+(new Array(s3.length+1)).join("9");
  });
});
sel.SetAnchorPos(isAcp? anp+carry: anp);	//範囲始点を再設定
sel.SetActivePos(isAcp? acp: acp+carry, isSel);	//範囲終点(カーソル位置)を再設定

位取り対応

  var bx = tx + (ln.slice(tx-1).match(/[0-9]*/))[0].length;
　↓
  var bx = (px!=tx)? px: tx + (ln.slice(tx-1).match(/[0-9]*/))[0].length;

• マクロの中盤(17行目)を上記のように書き換えると、カーソル左側を基準に増減するようになります。
  ※カーソルが数字の左端にある場合／範囲選択時は、通常どおり増減します。

※左端	千の位	百の位	十の位	一の位	※範囲選択時
999	0000	900	990	999	999,999
1000	1000	1000	1000	1000	9100,1009
1001	2000	1100	1010	1001	9101,1019